Найти разность двух чисел - Pascal
Формулировка задачи:
Через процедуру найти разность двух чисел (30-20)
Только начинаю, объясните пожалуйста.
Решение задачи: «Найти разность двух чисел»
textual
Листинг программы
procedure razn(a,b:integer;var c:integer); begin c:=a-b; end; var a,b,c:integer; begin writeln('Введите 2 целых числа'); readln(a,b); razn(a,b,c); write('Разность=',c) end.
Объяснение кода листинга программы
- Создаются три переменные типа
integer
:a
,b
иc
. - Выводится сообщение
Введите 2 целых числа
. - Вводятся два целых числа.
- Вызывается процедура
razn
с параметрамиa
,b
иc
. - В процедуре
razn
происходит вычисление разности междуa
иb
, и результат сохраняется в переменнойc
. - Выводится сообщение
Разность=
и значение переменнойc
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д