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

1. Обработка символьной информации (задачи, часть2)

(TurboPascal)

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

1.
Сравнить длину двух введённых с
клавиатуры строк.
Сравнивается количество
символов в строках.
Program pr1;
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. 2. Сравнить две введённые с клавиатуры строки.

Строки сравниваются
посимвольно (коды
символов).
Program pr2;
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. 3. Найти длину самой длинной из трёх введённых строк.

Тест 1):
Ввод:
S1=‘ab’
S2=‘abcd’
S3=‘abc’
Вывод:
max:=4
начало
Ввод
s1,s2,s3
n1:= Length(s1)
n2:= Length(s2)
n3:= Length(s3)
Тест 2):
Ввод:
нет
да
S1=‘abcde’
n1>n2
S2=‘abc’
S3=‘ab’
max := n1
max := n2
Вывод:
max:=5
да
нет
n3>max
Тест 3):
max := n3
Ввод:
S1=‘a’
S2=‘ab’
Вывод
S3=‘abc’
мах
Вывод:
max:=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.

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

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

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

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

7. 5. Вывести на экран латинский алфавит в обратном порядке.

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