Получить и вывести на экран произведение действительных чисел - Pascal ABC
Формулировка задачи:
Даны действительные числа Известно, что .Получить и вывести на экран , где - последнее положительное число из всех введённых. Окончание ввода - отрицательное число - в вычислениях не участвует.
Решение задачи: «Получить и вывести на экран произведение действительных чисел»
textual
Листинг программы
var a1,a2,a,p:real; begin repeat writeln('Введите 2 положительных числа'); readln(a1,a2); until(a1>0)and(a2>0); p:=a1*a2; writeln('Вводите положительные числа, окончание ввода отрицательное число'); repeat repeat readln(a); until a<>0; if a>0 then p:=p*a; until a<0; write('Произведение=',p); end.
Объяснение кода листинга программы
- Создаются переменные
a1
,a2
,a
иp
типаreal
. - В цикле
repeat-until
пользователю предлагается ввести два положительных числа. - Числа считываются в переменные
a1
иa2
. - Проверяется, что введенные числа положительны.
- Вычисляется произведение
p
чиселa1
иa2
. - В цикле
repeat-until
пользователю предлагается ввести положительное число. - Число считывается в переменную
a
. - Проверяется, что введенное число не равно нулю.
- Если число положительно, то произведение
p
умножается на это число. - Цикл продолжается до тех пор, пока введенное число не станет отрицательным.
- Выводится сообщение с произведением
p
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д