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

Обработка символьной информации в 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.
English     Русский Правила