gas / (1)KVANT / KVANT

uses crt,gnk;
const ay:array [1..6] of real=(10,10,0,-10,10,10);
ax:array [1..6] of real=(0,10,15,20,25,30);
T:word=60;
N:word=200;
M:real=0;
v1:real=70;
s:real=0.4;
dy:real=0.2;
var x,y,yk,ykp:array [1..200] of real;i:integer;
ku,nuk,c:word;q,v2,y1,y2:real;


begin
clrscr;
gklf(60,ax,ay,x,y);
{sag(0,v1,m,s,min(y),max(y),ku,q);}
q:=2*s;ku:=round((max(y)-min(y))/q);
for i:=1 to 200 do begin
kvn(ku,q,min(y),y[i],nuk,yk[i]);
yk[i]:=yk[i]+gauss(M,s);
end;
ku:=round((max(yk)-min(yk))/q);
for i:=1 to 200 do begin
kvn(ku,q,min(yk),yk[i],nuk,ykp[i]);
pv(i,N,yk[i],ykp[i],dy,c,v2);
end;

gra(1,0,x,y,x,ykp,'1','2','3');
end.