fork download

copy

var g,sigma:real;
x,i:integer;
 begin
 
  x:=100;
  sigma:=0;
 
   repeat
   sigma:=sigma+0.1;
   g:=1/(2.506628275*sigma)*power(2.718281828,(-1*sqr(x))/(2*sqr(sigma)));
   g:=roundto(g,-4);
   writeln(g:10,4);  //g перестаёт изменятся дойдя до значения 0.0E+00004 , что, как 
   until g>1;        //я понимаю, больше 1. Но цикл продолжается, хотя значение  
                     //остаётся
 readln;
 end.

prog.pas:1: warning: missing program header
prog.pas: In main program:
prog.pas:10: error: undeclared identifier `power' (first use in this routine)
prog.pas:10: error:  (Each undeclared identifier is reported only once
prog.pas:10: error:  for each routine it appears in.)
prog.pas:11: error: undeclared identifier `roundto' (first use in this routine)

Standard output is empty