Создайте программу для вычисления значения функции p по данным формулам

@SashaPl · Регистрация: 25.06.2014

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

Создайте программу для вычисления значения функции p по формулам:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> p=\begin{cases}\sum_{i=2}^{8}c^2\cdot i &,\ \ c\leq -1.5\\\\\\\\ \prod_{i=1.6}^{10.6}c+i &,\ \ c>-1.5\end{cases}<br />$

Pascal

Uses Crt;
Var S, P, c, i : integer;
Begin
Clrscr;
S:=0;
P:=1;
Writeln('Введите c');
Readln(c);
For i:=2 to 8 do
S:=s+c+i;
For i:=1.6 to 10.6 do
P:=P*c*c*i;
If c>-1.5 then Writeln('p = ', s)
else Writeln('p = ', P);
end

С вещественным количеством повторений код не работает. Если убрать дробную часть у 1.6 и 10.6, то все заработает, но можно ли так.

Помогите, пожалуйста

@Puporev · 25.06.2014, 15:47

Pascal

Uses Crt;
Var S, P, c, i : real;
Begin
Clrscr;
Writeln('Введите c');
Readln(c);
if c<=-1.5 then
 begin
  S:=0;
  i:=2;
  repeat
  S:=S+c*c*i;
  i:=i+1;
  until i=8;
  writeln('S=',S:0:4,' i=',i:0:1);
 end
else
 begin
  P:=1;
  i:=0.6;
  repeat
  P:=P*(c+i);
  i:=i+1;
  until i=10.6;
  writeln('P=',P:0:4,' i=',i:0:1)
 end;
readln
end.

@SashaPl · 25.06.2014, 16:03 **[ТС]**

Большое спасибо

@SashaPl 50 / 37 / 9 Регистрация: 25.06.2014 Сообщений: 406
	25.06.2014, 16:03 [ТС]	3
	Большое спасибо 0