Версия для печати темы

Автор: A&B 17.05.2007 23:45

Программа для задания, прикрепленного в файле, не могу понять, в чем ошибка. Если кто знает, подскажите плиз.

!

Прикреплять doc-файлы запрещено. Или текст, или картинка. мисс_граффити

Прикрепленные файлы
 LAB4.PAS ( 535 байт ) Кол-во скачиваний: 220

Автор: Артемий 18.05.2007 0:48

Var j,K,d,N:integer;
res:real;
function proizv(N:integer):real;
var
i,k:integer;
P:real;
begin
P:=0;
k:=1;
for i:=1 to N do
begin
k:=k*i;
P:=P*(N+1/sqrt(k));
proizv:=P;
end;
end;
begin
writeln('N='); read (N);
if N<1 then
begin
writeln('N<1!');
exit;
end;
writeln('step=');
read(K);
if K<1 then
begin
writeln('K<1!');
exit;
end;
writeln('kol-vo=');
read(d);
if d<1 then
begin
writeln('d<1!');
exit;
end;
for j:=1 to n do
begin
res:=proizv(N);
writeln(j,' ',N,' ',res);
N:=N+K;
end;
readln
end.

Вот так вроде компилится! А может объяснишь условие?