Модуль 3 задание 6
program Pr;
var x:byte;
c,d,x1:real;
BEGIN
repeat
writeln('vvesty C i D');
ReadLn(c,d);
if (c<d) then
writeln('Vu nepravilno vveli cheslo, vvedite eshe raz');
until (c>d);
x1:=c/d;
x:=trunc(x1);
writeln('x = ', x);
x:=x+64;
if x>91 then
writeln(' takoy bukvi NET')
else
WriteLn('Vu poluchili bykvu:::: ',char(x));
writeln('END-END');
readln;
end.
пояснение:
Название программы "Pr"
Раздел переменных: x - переменная целого типа. byte (длина - 1 байт, диапозон значений - 0..255)
c,d,x1 - переменные вещественного типа. real (длина - 6 байт, диапозон значений - 2,9e-39 - 1,7e38)
Начала блока операторов главной программы, который начинается с ключевого слова begin
выполнение цикла с постусловием - repeat
вывод текста "vvesty C i D" на экран с помощью writeln
считывание значений c и d c помощью read
выполнение условия, если c меньше d, тогда вывод текста на экран "Vu nepravilno vveli cheslo, vvedite eshe raz"
будет работать цилк с постусловием до тех пор, пока не будет введено с, которое больше d
переменной x1 присвоили результат деления c на d
переменной x присвоили результат функции trunc от x1, где trunc - возвращает целую часть вещественно числа, откидывая вещественную часть
вывод текста на экран "'x = ', x"
переменной x присвоили результат суммы x и 64
выполнение условия, если x больше 91, тогда вывод текста на экран "takoy bukvi NET", иначе вывод текста на экран "Vu poluchili bykvu:::: ',char(x)", где char - возвращает символ ASCII кода х
ожидаем ввод
Конец основного блока операторов главной программы, который заканчивается ключевым словом end. . - конец выполнения программы