5. Текст моделирующей программы.
uses graph,crt,dos;
type
mas=array[1..7,1..2] of integer;
imtype=array[1..4] of real;
var
Cist,Cminmax,Ccr,Cerr,A,In,Iv,Hi:word;
CerrH,CerrV,Pcr,Pminmax,B:integer;
ftxt:text;
begin
repeat {Ввод исходных данных}
g:=0;
textbackground(1);
window(1,1,79,25);
clrscr;
gotoxy(25,7);
textcolor(14);
write('И С Х О Д Н Ы Е Д А Н Н Ы Е');
gotoxy(8,23);
textcolor(7);
write('< Enter > - продолжить < Tab > - настройка < Esc > - выход');
gotoxy(18,25);
textcolor(7);
write('Вся информация записывается в файл rezult.txt');
window(16,10,65,19);
textbackground(0);
clrscr;
window(15,9,64,18);
textbackground(7);
textcolor(0);
Cist=’’
Emax=’’
N=’’
clrscr;
writeln;
window(56,10,58,17); {Инициализация массива замеров}
textbackground(0);
textcolor(15);
clrscr;
for lin:=1 to 4 do symbol[lin]:='000';
for lin:=4 to 8 do symbol[lin]:=' 00';
str(S100,s);i:=ord(s[0]);
for col:=1 to i do symbol[1,4-col]:=s[i-col+1];
str(S200,s);i:=ord(s[0]);
utimage(xy0[1,1]-2,xy0[1,2]-2,image1,0);
putimage(xy0[2,1]-2,xy0[2,2]-2,image2,0);
setviewport(534,0,639,479,true);
randomize; {Моделирование замеров}
X[i]:=Cist+2*esmax(random(1)-0.5;
tp2:=round(s2/v2);
str(s10,s);outtextxy(40,200,s); {Запуск расчета данных }
str(s20,s);oufor col:=1 to i do symbol[2,4-col]:=s[i-col+1];
dmax:=dmax5*5;
end;
assign(ftxt,'rezult.txt'); {Создание файла rezult.txt}
rewrite(ftxt);
setfillstyle(0,1);
outtextxy(17,2,'X');
outtextxy(520,405,'Z');
for i:=-4 to 4 do
begin
str(dmax/5*i:2:0,s);
if s[1]<>'-' then s:=' '+s;
outtextxy(265+i*50,405,s);
outtextxy(3,197-round(i*50/1.25),s);
end;
str(-dmax,s);outtextxy(0,405,s);
setviewport(534,0,639,479,true);
outtextxy(5,0,'N');outtextxy(5,27,'S');
line(5,13,8,10);line(8,10,11,13);line(8,10,8,20);
arc(8,24,0,180,3);
str(dmax/5:2:0,s);outtextxy(30,20,'1кл:'+s+'км');
line(0,40,105,40);
setcolor(14);
setcolor(7);
setfillstyle(1,5);
bar(0,420,105,435);
restorecrtmode;
key:=readkey;
until key=#27; {Если нажата <Esc> - выход из программы}
close (ftxt);
end.
6. Список литературы.
1. Бронштейн И.Н., Семендяев К.А. Справочник по математике для инженеров и учащихся втузов – М.:Наука. Физматлит, 1998.
2. Епанешников А., Епанешников В. Программирование в среде Turbo Pascal 7.0. – М.:”ДИАЛОГ-МИФИ”,1998.