Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

gas / (4)OPTIM / OPTIM

.PAS
Скачиваний:
14
Добавлен:
15.06.2014
Размер:
1.14 Кб
Скачать
uses gnk,gnk2,fkt,crt;

const k:word=4;
nuk:word=0;
vs:real=0.7;
ms:real=0;
ss:real=0.5;
N=90;
T=80;
KU:word=3;
Ax:array [0..5] of real=(0,22.22,35.55,40,53.33,80);
AY:array [0..5] of real=(4,10,4,-4,-10,4);

var x,y,Yk,YKout:array [1..N] of real;
arnuk:array [1..N] of word;
wt,wp:array[1..N,1..3] of word;
kod: array[1..N,1..6] of char;
pc:array[1..N,1..2] of word;
tree: array [1..N,1..3] of word;

Ymax,Ymin,Q,pk,t0,t1:real;
dif,realkol:word;

i, j:integer;

begin
clrscr;
realkol:=0;
GKLF(T,Ax,Ay,x,y);
Ymin:=min(y);
Ymax:=max(y);
SAG(1,Vs,Ms,Ss,Ymin,Ymax,KU,Q);
rpt(t0,vs,ms,ss,pk,t1);

writeln('N=',n);
for i:=1 to N do begin
KVN(KU,Q,Ymin,y[i],NUK,Yk[i]);
arnuk[i]:=nuk;
write(nuk,' ');
{if i mod 3=0 then write('|');}
end;
writeln;writeln;

seg('l',N,3,arnuk,wt);
fpc('f',N,3,wt,wp,pc,dif);

ftab(dif, pc, tree);

fpc('f',N,3,wt,wp,pc,dif);


fkod(N,DIF,6,pc,tree,kod);

writeln('‘®®ЎйҐ­ЁҐ Љ®«-ў® Љ®¤');
for i:=1 to dif do
writeln(pc[i,1]:5,' ',pc[i,2]:7,' ',kod[i]:7);
end.