воскресенье, 15 октября 2017 г.

д/3 на 20 октября. Разобрать решение задач и тем, кто делает синтаксические ошибки ВЫУЧИТЬ

Упражнения
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.


Комментариев нет:

Отправить комментарий