Model_1 / CTM

program scanning_tunnel_microscope;
uses graph,crt;
label m1;
var
x, {⥪гй п Є®®а¤-  •}
z0, {ўлб®в  ®в Ї®ўҐае-Ё ¤® ЁЈ«л}
Iet, {нв «®­­л© в®Є}
It, {⥪гйЁ© в®Є}
z:integer;{⥪гй п ўлб®в  ¤® ЁЈ«л ®в Ї®ўҐае-Ё}
st:real; {и Ј }

Procedure InitializGraph;
var gd,ec,gm:integer;
Begin
gd:=detect;
initgraph(gd,gm,'c:\tp\bgi');
ec:=graphresult;
if ec<>grok then begin writeln('STOP,WRONG GRAPHIC INITIALISATION!');
sound(1000);delay(10);nosound;
halt(1);
end;

End;
{
Function J(Z:real):real;{‚лзЁб«Ґ­ЁҐ Ї«®в­®бвЁ в®Є  Z-а ббв-Ґ ¤® в®зЄЁ Ї®ўҐае.}
{var
acp,{б।­пп «®Є «м­ п а Ў®в  ўл室  н«ҐЄ- }
{ s2:real;{s1,s2-Є« ббЁзҐбЄЁҐ в®зЄЁ Ї®ў®а®в }
{Begin
s2:=z*(1-23/(z*(3*a-2*U)+10))+s1;
acp:=a-u*(s1+s2)/(2*z)-(2.86/(s2-s1))*ln(s2*(z-s1)/(s1*(z-s2)));
j:=k1*exp(k2*z*sqrt(abs(acp)));
end;
}
Function Surface(x:integer):integer;
begin
case x of
0..20:surface:=50;
21..60:surface:=100;
61..190:surface:=110+(x div 3);
191..320:surface:=80-x;
end;

end;

Procedure Integral;
Begin
end;

BEGIN
InitializGraph;
TextColor(red);
Textbackground(LightGray);
outtextxy(10,10,'Њ®¤Ґ«Ёа®ў ­ЁҐ бЄ ­Ёаго饣® вг­­Ґ«м­®Ј® ¬ЁЄа®бЄ®Ї ');
outtextxy(10,20,'(C) 2001 Љ®««ҐЄвЁў а §а Ў®взЁЄ®ў:');
outtextxy(100,30,'‚ бЁ«мҐў Ђ.Њ.');
outtextxy(100,40,'Љг«ЁЄ®ў Џ.Њ.');
outtextxy(100,50,'’гв Ґў Ђ.‚.');
outtextxy(x,z,'');
x:=0;Iet:=100;st:=200.0;
z:=200;
putpixel(x,z,green);
setcolor(10);
m1:
inc(x);
st:=200;
it:=surface(x);
while abs(it-iet)>=iet/1000 do
begin
if it<iet then st:=-st/2;
if it>iet then st:=st/2;
z:=z+round(st);
it:=surface(x);
if st<10 then break;
end;
lineto(x,z);
z:=200;
if x<300 then goto m1;
readkey;
END.