Вычислить значение выражения

@Monten1 · Регистрация: 25.12.2017

Author24 — интернет-сервис помощи студентам

Составить программу и вычислить:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> P=\sqrt{|S|}+\frac{S^2}{x^{\,}}+\frac{e^x}{bm}-\sum_{j=1}^{5}(c_j+b);\ \ \ S=\sum_{i=1}^{10}A_i\\\\m=5.5;\ b=0.264;\ x=1.2;\ c_0=15;\ c_k=35;\ h=5;\\\\A(10)=-0.5,\,4.2,\,0.67,\,12.7,\,101,\,55,\,11.4,\,0.4,\,-12,\,2.8<br />$

Для организации цикла при вычислении суммы с участием cj использовать оператор цикла repeat.

@Puporev · 25.12.2017, 08:23

Pascal

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.

@Monten1 · 25.12.2017, 09:11 **[ТС]**

Спасибо ещё раз!

@Monten1 0 / 0 / 0 Регистрация: 25.12.2017 Сообщений: 14
		1
	Вычислить значение выражения 25.12.2017, 06:24. Показов 973. Ответов 2 Метки нет (Все метки) Составить программу и вычислить: $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> P=\sqrt{\|S\|}+\frac{S^2}{x^{\,}}+\frac{e^x}{bm}-\sum_{j=1}^{5}(c_j+b);\ \ \ S=\sum_{i=1}^{10}A_i\\\\m=5.5;\ b=0.264;\ x=1.2;\ c_0=15;\ c_k=35;\ h=5;\\\\A(10)=-0.5,\,4.2,\,0.67,\,12.7,\,101,\,55,\,11.4,\,0.4,\,-12,\,2.8<br />$ Для организации цикла при вычислении суммы с участием cj использовать оператор цикла repeat. 0

@Monten1 0 / 0 / 0 Регистрация: 25.12.2017 Сообщений: 14
	25.12.2017, 09:11 [ТС]	3
	Спасибо ещё раз! 0

Вычислить значение выражения

Решение