Арифметические циклы

[NeoX_2011]

Помогите пожалуйста с простенькой задачкой:

Вычислить сумму и произведение полученных значений функции. Составить три варианта программы – с операторами repeat, while, for.

t=|sin(ax2+bx-c)| 1<=x<=5; ∆x=0,2 a=2,1; b=3; c=-14,2

[Necare]

а язык программирования - то какой?

[NeoX_2011]

язык программирования - pascal

[Necare]

Слепил, только не кидайтесь помоями, я паскаль забросил ещё в 9 классе ><

Цикл for

program cycles;
var
t,x,a,b,c,ts,tp :double;
i,xn : integer;
begin
a:=2.1;
b:=3;
c:=-14.2;
x:=1;
ts:=0;tp:=1;
for i:= 1 to 21 do
begin
t:=abs(sin(a*x*2+b*x-c));
ts:=ts+t;
tp:=tp*t;
x:=x+0.2;
end;
writeln('Произведение:',tp);
writeln('Сумма:',ts);
end.

Цикл while

program cycles;
var
t,x,a,b,c,ts,tp :double;
i,xn : integer;
begin
a:=2.1;
b:=3;
c:=-14.2;
x:=1;
ts:=0;tp:=1;
while(x<5.2) do
begin
t:=abs(sin(a*x*2+b*x-c));
tp:=tp*t;
ts:=ts+t;
x:=x+0.2;
end;
writeln('Произведение:',tp);
writeln('Сумма:',ts);
end.

цикл repeat

program cycles;
var
t,x,a,b,c,ts,tp :double;
i,xn : integer;
begin
a:=2.1;
b:=3;
c:=-14.2;
x:=1;
i:=0;
ts:=0;tp:=1;
Repeat
t:=abs(sin(a*x*2+b*x-c));
ts:=ts+t;
tp:=tp*t;
x:=x+0.2;
i:=i+1;
Until i=21;
writeln('Произведение:',tp);
writeln('Сумма:',ts);
end.

[NeoX_2011]

Спасибо!!!

[IT-man]

program cycles;
var
t,x,a,b,c,ts,tp :real;
xn : integer;
begin
a:=2.1;
b:=3;
c:=-14.2;
x:=1;
ts:=0;tp:=1;
Repeat
t:=abs(sin(a*x*2+b*x-c));
ts:=ts+t;
tp:=tp*t;
x:=x+0.2;
Until x>5;
writeln('Произведение:',tp);
writeln('Сумма:',ts);
end.

[NeoX_2011]

почкму-то выдает ошибку:
неизвестное имя double

[IT-man]

NeoX_2011

замени все double на Real

[Necare]

хм я компилировал в FreePascal IDE.

Попробуй вместо double написать float или real.