Тема:Программирование ветвлений - 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.

Объяснение кода листинга программы

  1. Создается переменная f типа real, которая будет использоваться для хранения результата вычисления.
  2. Выводится сообщение «Ведите p,q» для запроса значений переменных p и q.
  3. Считываются значения переменных p и q с помощью функции readln().
  4. Выполняется проверка условия if p>=100 then f:=p-3*q. Если значение p больше или равно 100, то вычисляется значение f как разность между p и 3*q.
  5. Выполняется проверка условия else if(p>0)and(p<100)and(q<20). Если значение p больше 0, но меньше или равно 100, и значение q меньше 20, то вычисляется значение f как разность между p и 2*q.
  6. Если ни одно из условий не выполняется, то вычисляется значение f как сумма значений p и q.
  7. Выводится сообщение «f=», за которым следует значение переменной f с приставкой 0:2, чтобы отобразить его в виде десятичного числа с двумя знаками после запятой.

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы