Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему Строковые и символьные данные (урок 2)

ЗадачиСтроковые и символьные данные
Процедуры и функции обработки строковых данных в Паскаль  (урок 2)Жевтило Ирина Аскольдовнаучитель информатики высшей категории ЗадачиСтроковые и символьные данные Задача 1Вывести таблицу ASCII для:Цифр (48);Букв прописных латинских (65)Букв строчных латинских (97)Букв Program simb;var s: char; i: integer;beginfor i:=48 to 57 do begins:=chr(i);writeln (i:5,s:5);endend.	0	1	2…57	9 Задача 2Удвоить каждый символ (повторить каждый символ два раза) в введенной строке Program D5; Var S,a:string; i:integer; Begin Writeln('Введите текст '); Readln(a); s:=''; For Задача 3Составить новые слова из слова информатика Program D3; Var S,a:string; Begin a:='информатика'; S:=copy (a,3,5); Writeln(a);Writeln(s);S:=copy (a,8,3);Writeln(s);S:=copy (a,3,6);Writeln(s);End.форматикформат Задача 4Является ли слово перевертышем (палиндромом)? Program perevert; Var S : String; D, i : Integer; Flag :
Слайды презентации

Слайд 2 Задачи
Строковые и символьные данные

ЗадачиСтроковые и символьные данные

Слайд 3 Задача 1
Вывести таблицу ASCII для:
Цифр (48);
Букв прописных латинских

Задача 1Вывести таблицу ASCII для:Цифр (48);Букв прописных латинских (65)Букв строчных латинских

(65)
Букв строчных латинских (97)
Букв прописных русских (192)
Букв строчных русских

(224)



Слайд 4 Program simb;
var s: char; i: integer;
begin
for i:=48 to

Program simb;var s: char; i: integer;beginfor i:=48 to 57 do begins:=chr(i);writeln (i:5,s:5);endend.	0	1	2…57	9

57 do begin
s:=chr(i);
writeln (i:5,s:5);
end
end.
0
1
2

57 9


Слайд 5 Задача 2
Удвоить каждый символ (повторить каждый символ два

Задача 2Удвоить каждый символ (повторить каждый символ два раза) в введенной строке

раза) в введенной строке


Слайд 6 Program D5;
Var S,a:string;
i:integer;
Begin
Writeln('Введите текст

Program D5; Var S,a:string; i:integer; Begin Writeln('Введите текст '); Readln(a); s:='';

');
Readln(a);
s:='';
For i:=1 to length(a) do
S:=s+a[i]+a[i];


Writeln(a);
Writeln(s);
End.

Слайд 7 Задача 3
Составить новые слова из слова информатика

Задача 3Составить новые слова из слова информатика

Слайд 8 Program D3;
Var S,a:string;
Begin
a:='информатика';
S:=copy (a,3,5);

Program D3; Var S,a:string; Begin a:='информатика'; S:=copy (a,3,5); Writeln(a);Writeln(s);S:=copy (a,8,3);Writeln(s);S:=copy (a,3,6);Writeln(s);End.форматикформат


Writeln(a);
Writeln(s);
S:=copy (a,8,3);
Writeln(s);
S:=copy (a,3,6);
Writeln(s);
End.
форма
тик
формат


Слайд 9 Задача 4
Является ли слово перевертышем (палиндромом)?

Задача 4Является ли слово перевертышем (палиндромом)?

  • Имя файла: strokovye-i-simvolnye-dannye-urok-2.pptx
  • Количество просмотров: 158
  • Количество скачиваний: 0