Цитата:
Повідомлення від <SANTA>
Program a;
uses crt;
var x,P1,P2,P3:real;
n:integer;
begin
x:=0;
n:=0;
repeat
P1:=x;
P2:=(3*x*x-1)/2;
p3:=(5*x*x-3*x)/2;
writeLn('P1=',P1);
writeLn('P2=',P2);
writeLn('P3=',P3);
x:=x+0.05;
n:=n+1;
x<=20;
if n mod20=0 then
repeat;
until keypressed;
end.
что тут не так в проге?мне на завтра надо здать помогите пожалуйста.Спасибо.
http://forum.vn.ua/showthread.php?p=2080380#post2080380
|
не было оглашено окончание выделенного цикла....
x<=20; это я вообше не понимаю....
if n mod20=0 then
repeat;
until keypressed;
тут тоже я не осилил смысл цикла...да и не будет он работать