Source Code Sistem Penjadwalan FIFO Dalam Pascal

Source code pascal berikut menerapkan konsep sistem penjadwalan FIFO (First In First Out) pada sistem operasi.

Program fifo;
uses crt;
var
   x:array[1..100] of integer;
   y:array[1..100] of integer;
   z:array[1..100] of integer;
   i,jum,n,t,jum2 : integer;

begin
clrscr;
  t:=0;
  jum:=0;
  write('Masukkan proses = ');readln(n);
  for i:= 1 to n do
   begin
     write('Proses ke-',i,' = ');readln(x[i]);
     y[i]:=t;
     z[i]:=x[i]+y[i];
     jum:=jum+y[i];
     jum2:=jum2+z[i];
     t:=x[i]+t;
   end;
    writeln('===================================================');
    writeln('Proses | CPU Time | Waiting Time | TAT ');
    writeln('===================================================');
    for i:=1 to n do
    begin
       writeln('   P',i,'         ',x[i],'          ',y[i],'          ',z[i]);
    end;
    writeln('===================================================');
    writeln('   Rata-rata = ','        ',jum/n:4:2,'        ',jum2/n:4:2);
    readln;
end.

Output program :

>> DOWNLOAD SOURCE CODE <<