3 программы на тему repeat-until,while-do,for

[ilya55555]

Надо по блок-схеме составить 3 программы на операторы repeat-until,while-do,for1506201112641.jpg


program program3;
uses crt;
var s,a,e:real;
i:byte;
begin
clrscr;
writeln('введите точность:');
readln(e);
a:=-1;
S:=0;
i:=1;
repeat
s:=s+A;
a:=a*1/(i+1)*(-1);
i:=i+1;
until abs(A)<e;
if e>1 then s:=0;
writeln(s:10:9);
readln;
end.

*****************

program program4;
uses crt;
var s,a,e:real;
i,j:byte;
begin
clrscr;
writeln('VVedi:');
readln(e);
s:=0;
a:=-1;
i:=1;
for j:=2 to 2 do begin
if abs(a)<e then break;
j:=j-1; // Бесконечный цикл
s:=s+a;
a:=a*1/(i+1)*(-1);
i:=i+1;
end;
writeln(s:10:9);
readln;
end.

*****************

program program5;
uses crt;
var s,a,b,c,e:real;
i:byte;
begin
clrscr;
writeln('vvedi:');
readln(e);
a:=-1;
i:=1;
s:=0;
while abs(a)>=e do begin
s:=s+a;
a:=a*1/(i+1)*(-1);
i:=i+1;
end;
writeln(s:10:9);
readln;
end.

[Pein95]

ну а в чем проблема? чтото не работает?