Задание:
Ввести 2 действительных числа с и d. Найти число х, соответствующее целому от делении с и d. Определить символ, порядковый номер которого равняется аргументу х. В данном задании нужно вывести букву.
Выбор алгоритма:
Данное задание можно решить следующими способами: разделить 2 числа, а затем применить условие с командой сase. Но более лучший вариант решения этой задачи будет увеличение х на число 64 и написать Writeln(char(x)), тогда выведется буква соответствующая данному числу. Потом поставить условие, если х >91, то такой буквы нет, в английском алфавите всего 26 букв. Этот метод проще и уменьшается объъем программы. И время ее выполнения.
Блок-схема алгоритма
Текст программы:
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.
Данная программа проверяет условие, если c<d, то программа повторяет ввод заново, пока не будет c>d. Тогда к х присваивается целое число от деления и приплюсовывается 64. Потому что 65 – это кодовое число буквы "А". При помощи Writeln(char(x)), мы выведем букву, соответствующую номеру деления C и D.
