Расчет формулы по циклу, выход по нажатии клавиши - Turbo Pascal
Формулировка задачи:
есть формула (прмиер)
Использовать цикл, чтобы после каждого расчета, очищается экран, и начинается заного расчет
При нажатии ESC или другой клавиши просиходит выход из программы
Решение задачи: «Расчет формулы по циклу, выход по нажатии клавиши»
textual
Листинг программы
program cycle; uses crt; var a,b:integer; ch:char; begin repeat clrscr; write('Enter а: '); readln(a); write('Enter b: '); readln(b); writeln(a+b); writeln('Press any key to continue or ESC to quit.'); ch:=readkey; until ch=#27; end.
Объяснение кода листинга программы
- Программа называется
cycle
. - Используется библиотека
crt
. - Объявляются переменные
a
,b
иch
типаinteger
иchar
соответственно. - В цикле
repeat
выполняется следующий код:- Вызывается функция
clrscr
, которая очищает экран. - Выводится сообщение
Enter а:
и считывается значение переменнойa
с помощью функцииreadln
. - Выводится сообщение
Enter b:
и считывается значение переменнойb
с помощью функцииreadln
. - Вычисляется сумма переменных
a
иb
с помощью оператора+
. - Выводится результат суммы.
- Выводится сообщение
Press any key to continue or ESC to quit.
. - Считывается символ с клавиатуры с помощью функции
readkey
.
- Вызывается функция
- Цикл
repeat
продолжается до тех пор, пока символ, введенный пользователем, не равен символу#27
, который представляет собой символ ESC. - После выхода из цикла
repeat
программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д