Упражнения
1. С
клавиатуры вводят символ. Составьте программу, которая выводит два следующих
символа.
program upr4_2_1;
var s: char;
begin
write ('Введите символ ');
readln (s);{ввод символа}
writeln
('Следующий за ',s, ' символ ',succ(s));
{вывод следующего символа}
writeln ('Следующий за ',succ(s), ' символ
',succ(succ(s))); {вывод следующего
символа}
end.
2. С
клавиатуры вводят код символа. Составьте программу, которая выводит предыдущий
символ.
program upr4_2_2;
var
m: integer;
begin
write ('Введите код символа ');
readln (m);{ввод кода символа}
writeln ('Предыдущий символ ',pred(chr(m)));
{вывод предыдущего символа}
end.
3. Составьте
программу, которая выводит символы с кодами от 60 до 70.
Технология
составления программы:
program upr4_2_3;
var k: integer;
begin
for k:=60 to 70 do
write
(k,' ', chr(k),' '); {вывод символов по
их кодам}
end.
Комментариев нет:
Отправить комментарий