Вычислить значение выражения. - Pascal ABC
Формулировка задачи:
Составить программу и вычислить:
Для организации цикла при вычислении суммы с участием cj использовать оператор цикла repeat.
Решение задачи: «Вычислить значение выражения.»
textual
Листинг программы
uses crt; const m=5.5; b=0.264; x=1.2; c0=15; ck=35; h=5; a:array[1..10] of real=(-0.5,4.2,0.67,12.7,101,55,1.4,0.4,-12,2.8); var s1,s2,p:real; i,c:byte; begin s1:=0; for i:=1 to 10 do s1:=s1+a[i]; s2:=0; c:=c0; repeat s2:=s2+c+b; c:=c+h; until c>ck; p:=sqrt(abs(s1))+sqr(s1)/x+exp(x)/b/m-s2; write('P=',p:0:2) end.
Объяснение кода листинга программы
- Установка начального значения переменной
s1
равным нулю. - Проход по элементам массива
a
с помощью циклаfor
и суммирование значений в переменнуюs1
. - Инициализация переменной
s2
равной нулю и переменнойc
равнойc0
. - Создание цикла
repeat
, который будет выполняться до тех пор, пока значение переменнойc
не станет большеck
. В каждой итерации значение переменнойs2
увеличивается на суммуc
иb
, а значениеc
увеличивается наh
. - Вычисление значения переменной
p
с использованием формулыsqrt(abs(s1))+sqr(s1)/x+exp(x)/b/m-s2
. - Вывод значения переменной
p
с помощью функцииwrite
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д