gas / KOSNHOR

uses crt,gnk,graph;
const ay:array [1..10] of real=(0,-5,11,11,-7,7,-7,11,-11,0);
ax:array [1..10] of real=(0,4,8,13,19,25,35,45,55,60);
T:word=60;
N:word=200;
M:real=0;
v1:real=70;
s:real=0;
{dy:real=0.2;}
dY=1e-5;
var x,y,yk,ykp,ykp1,ykp2:array [1..200] of real;i:integer;
ku,nuk,c:word;q,v2,y1,y2:real;

begin
clrscr;
gklf(60,ax,ay,x,y);

ku:=12;
sag(1,v1,m,s,min(y),max(y),ku,q);


for i:=1 to 200 do begin
kvn(ku,q,min(y),y[i],nuk,yk[i]);
end;

for i:=1 to 200 do begin
ykp[i]:=yk[i]+gauss(m,s);
end;


for i:=1 to 200 do begin
kvn(ku,q,min(yk),yk[i],nuk,ykp1[i]);
pv(i,N,yk[i],ykp1[i],dy,c,v2);
end;

gra(1,1,x,y,x,yk,'1 Ўл«®','2 бв «®','3 иг¬');
gra(1,1,x,yk,x,ykp,'1 Ўл«®','2 бв «®','3 иг¬');
gra(1,1,x,yk,x,ykp1,'1 Ўл«®','2 бв «®','3 иг¬');



end.






























textmode(3);
asm
jmp @next
@: db '‡Ђ‘Ђ„Ђ‡Ђ‘Ђ„Ђ‡Ђ‘Ђ„Ђ‡Ђ‘Ђ„Ђ','$',13,10
@next: push ds
push cs
pop ds
mov dx, offset @
mov ah,9
int 21h
pop ds

end;
textcolor(4+blink);
writeln('‡Ђ‘Ђ„Ђ');
readln;