Закрыть
Все сервисы
Главная
Лента заметок
Теги
Группы
Рейтинги

Героиновый приход :-)))

22 мая´07 23:00 Просмотров: 431 Комментариев: 6
program lab_sjf_2;
uses crt;
var ch_n,ch_v,ch_z,ch_zat,t_t,ch_p:array[1..6]of byte;
i,j,t,a_pr,mn,tm,tm2,l:byte;
zan,en,mo:boolean;
cmpl:array[1..6]of boolean;
grf:array[1..6]of string;
tt:string;
s_ch:real;
begin
clrscr;
writeln ('1 - Vvod danyh z klaviaturi');
writeln ('2 - Vypadkovi dani');
readln(t);
if t=1 then begin
for i:=1 to 6 do begin
write('Proces',i,' - chas nadhodjenna - ');
read(ch_n[i]);
write(',chas vikonannja - ');
readln(ch_v[i]);
end;
end
else begin
randomize;
ch_n[1]:=1;
ch_v[1]:=random(15)+2;
for i:=2 to 6 do begin
ch_n[i]:=ch_n[i-1]+random(8)+1;
ch_v[i]:=random(15)+2;
end;
end;
for i:=1 to 6 do t_t[i]:=ch_v[i];
zan:=true;
i:=0;

a_pr:=1;
zan:=true;
ch_p[1]:=1;
repeat
i:=i+1;
if not(zan) then begin
a_pr:=0;
mo:=false;
for t:=2 to 6 do if ((ch_n[t]<=i)and(not(cmpl[t]))) then begin
tm2:=t;
mo:=true;
end;
mn:=255;
for t:=2 to tm2 do if ((ch_v[t] tm:=t;
mn:=ch_v[t];
end;
if mo then begin
a_pr:=tm;
ch_p[tm]:=i;
end;
end;
if a_pr<>0 then begin
zan:=true;
t_t[a_pr]:=t_t[a_pr]-1;
if t_t[a_pr]<=0 then begin
zan:=false;
ch_z[a_pr]:=i;
cmpl[a_pr]:=true;
end;
end;
en:=true;
for l:=1 to 6 do if not(cmpl[l]) then en:=false;


until en;
writeln('#PR|Ch.nadhodj|Ch.vikon|Ch.zaver|Ch.zatrim|');
writeln('___________________________________________');
for i:=1 to 6 do begin
ch_zat[i]:=ch_p[i]-ch_n[i];
writeln(i:3,'|',ch_n[i]:7,' |',ch_v[i]:5,' |',ch_z[i]:5,' |',ch_zat[i]:6,' |');
grf[i]:='|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||';
end;

for i:=1 to 79 do begin
for j:=1 to 6 do begin
tt:=grf[j];
if ((i>=ch_n[j])and(i if ((i>=ch_p[j])and(i<=ch_z[j])) then tt[i]:='Ы';
grf[j]:=tt;
end;
end;
Writeln('Grafik roboti procesiv ');
mn:=0;
for i:=1 to 6 do begin
writeln (grf[i]);
writeln;
mn:=mn+ch_zat[i];
end;
s_ch:=mn/6;
writeln('Serednij chas zatrimki - ',s_ch:3:1);
readkey;

end.
Пожаловаться
Комментариев (6)
Отсортировать по дате Вниз
Addheiser    09.09.2007, 21:05
Оценка:  0
Addheiser
дык для Дробязко вся эта хрень делалась???
EwgenW    09.09.2007, 21:05
Оценка:  0
EwgenW
Для Кота! Ты же ж ету хрень и сдавал! Правда уже не Коту...
Addheiser    21.06.2007, 10:30
Оценка:  0
Addheiser
Ассемблер рулит!!!! :79: :79: :79: :79: :79: :61: :61: :61:
EwgenW    21.06.2007, 10:30
Оценка:  0
EwgenW
Антонио не позорься, это паскаль!

Программист мля ...
GR@NDESK@    22.05.2007, 23:16
Оценка:  0
GR@NDESK@
что это?????????
EwgenW    22.05.2007, 23:16
Оценка:  0
EwgenW
Ну дык.... приход.
Реклама