Презентация на тему: Обработка символьной информации (задачи, часть2)

Обработка символьной информации (задачи, часть2)
Сравнить длину двух введённых с клавиатуры строк.
2. Сравнить две введённые с клавиатуры строки.
3. Найти длину самой длинной из трёх введённых строк.
3. Найти самую длинную из трёх введённых строк.
4. Вывести на экран латинский алфавит от ‘ a ’ до ‘ z ’.
5. Вывести на экран латинский алфавит в обратном порядке.
1/7
Средняя оценка: 4.8/5 (всего оценок: 30)
Код скопирован в буфер обмена
Скачать (54 Кб)
1

Первый слайд презентации: Обработка символьной информации (задачи, часть2)

( Turbo Pascal)

Изображение слайда
2

Слайд 2: Сравнить длину двух введённых с клавиатуры строк

Program pr 1 ; Uses crt; var s1, s2 : string; n1, n2: integer; Begin clrscr; ReadLn(s1); n1:= Length(s1); ReadLn(s2); n2:= Length(s2); if n1 > n2 then WriteLn(s1, ' длинее чем ', s2) else if n1 < n2 then WriteLn(s1, ' короче чем ', s2) else WriteLn ('строки равны по длине'); end. Сравнивается количество символов в строках.

Изображение слайда
3

Слайд 3: 2. Сравнить две введённые с клавиатуры строки

Program pr 2 ; Uses crt; var s1, s2 : string; Begin clrscr; ReadLn(s1); ReadLn(s2); if s1 > s2 then WriteLn(s1, ', больше, чем ', s2) else if s1 < s2 then WriteLn(s1, ' меньше, чем ', s2) else WriteLn ('строки равны'); end. Строки сравниваются посимвольно (коды символов).

Изображение слайда
4

Слайд 4: 3. Найти длину самой длинной из трёх введённых строк

var s1, s2, s3 : string; max,n1,n2,n3 : integer ; begin readLn (s1); readLn (s2); readLn (s3); n1:= Length(s1); n2:= Length(s2); n3:= Length(s3); if n1 > n2 then max := n1 else max := n2; if n3 >max then max := n3; writeLn ( max ); end. Ввод s1,s2,s3 Вывод мах n1>n2 конец начало n1:= Length(s1) n2:= Length(s2) n3:= Length(s3) max := n1 max := n2 n3>max max := n3 да да нет нет Тест 1) : Ввод: S1=‘ab’ S2=‘abcd’ S3=‘abc’ Вывод: max:=4 Тест 2) : Ввод: S1=‘abcde’ S2=‘abc’ S3=‘ab’ Вывод: max:=5 Тест 3) : Ввод: S1=‘a’ S2=‘ab’ S3=‘abc’ Вывод: max:=3

Изображение слайда
5

Слайд 5: 3. Найти самую длинную из трёх введённых строк

var max, s1, s2, s3 : string; begin readLn (s1); readLn (s2); readLn (s3); if s 1 > s2 then max := s1 else max := s2; if s 3 >max then max := s3; writeLn ( max ); end. конец Вывод мах s1>s2 max := s1 max := s2 s3>max max := s3 Ввод s1,s2,s3 начало да да нет нет Тест 1) : Ввод: S1=‘ab’ S2=‘abcd’ S3=‘abc’ Вывод: max:=‘abcd’ Тест 2) : Ввод: S1=‘abcde’ S2=‘abc’ S3=‘ab’ Вывод: max:=‘abcde’ Тест 3) : Ввод: S1=‘a’ S2=‘ab’ S3=‘abc’ Вывод: max:=‘abc’

Изображение слайда
6

Слайд 6: 4. Вывести на экран латинский алфавит от ‘ a ’ до ‘ z ’

var i : char; begin for i := 'a' to 'z' do WriteLn(i); end.

Изображение слайда
7

Последний слайд презентации: Обработка символьной информации (задачи, часть2): 5. Вывести на экран латинский алфавит в обратном порядке

var i : char; begin for i := 'z' downto 'a' do WriteLn(i); end.

Изображение слайда