Source Code Sistem Penjadwalan FIFO Dalam Pascal

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













01Program fifo;




02uses crt;




03var




04   x:array[1..100] of integer;




05   y:array[1..100] of integer;




06   z:array[1..100] of integer;




07   i,jum,n,t,jum2 : integer;




08 




09begin




10clrscr;




11  t:=0;




12  jum:=0;




13  write('