Тема:Программирование ветвлений - Pascal ABC
Формулировка задачи:
Решение задачи: «Тема:Программирование ветвлений»
textual
Листинг программы
var p,q,f:real; begin writeln('Ведите p,q'); readln(p,q); if p>=100 then f:=p-3*q else if(p>0)and(p<100)and(q<20) then f:=p-2*q else f:=p+q/2/q; write('f=',f:0:2); end.
Объяснение кода листинга программы
- Создается переменная
f
типаreal
, которая будет использоваться для хранения результата вычисления. - Выводится сообщение «Ведите p,q» для запроса значений переменных
p
иq
. - Считываются значения переменных
p
иq
с помощью функцииreadln()
. - Выполняется проверка условия
if p>=100 then f:=p-3*q
. Если значениеp
больше или равно 100, то вычисляется значениеf
как разность междуp
и3*q
. - Выполняется проверка условия
else if(p>0)and(p<100)and(q<20)
. Если значениеp
больше 0, но меньше или равно 100, и значениеq
меньше 20, то вычисляется значениеf
как разность междуp
и2*q
. - Если ни одно из условий не выполняется, то вычисляется значение
f
как сумма значенийp
иq
. - Выводится сообщение «f=», за которым следует значение переменной
f
с приставкой0:2
, чтобы отобразить его в виде десятичного числа с двумя знаками после запятой.