contoh listing program antrian dalam bahasa pascal

oke, kali ini saya akan masukkan listing program pascal tentang program antrian 

uses crt;

type lingkar=array[1..10] of char;

type ling=record

nilai:lingkar;

dep:integer;

bel:integer;

isi:integer;

end;

var n:integer;

antrian:ling;

{---------------------------------------------------------------------}

procedure push(var antrian:ling;x:char);

begin

if antrian.isi=n then write('antrian penuh')

else

begin

if antrian.bel=n then antrian.bel:=1

else antrian.bel:=antrian.bel+1;

antrian.nilai[antrian.bel]:=x;

antrian.isi:=antrian.isi+1;

end;

end;

{---------------------------------------------------------------------}

procedure pop(var antrian:ling;var x:char);

begin

if antrian.isi=0 then write('antrian kosong')

else

begin

antrian.dep:=antrian.dep+1;

if antrian.dep=n+1 then antrian.dep:=1;

x:=antrian.nilai[antrian.dep];

antrian.nilai[antrian.dep]:=' ';

antrian.isi:=antrian.isi-1;

end;

end;

{---------------------------------------------------------------------}

var i,ingin:integer;

x:char;

begin

n:=5;

i:=0;

repeat

i:=i+1;

write('masukkan antrian ke - ',i,' = ');readln(x);

push(antrian,x);

until i=n;

for i:=1 to antrian.bel do write(antrian.nilai[i],' ');

readln;

repeat

write('Anda ingin (0) Udah  (1) Push  (2) pop  : ');readln(ingin);

if ingin<>0 then

case ingin of

1: begin

write('nilai yang akan masuk : ');readln(x);

push(antrian,x);

for i:=1 to n do

write(antrian.nilai[i],' ');

writeln;

end;

2: begin

x:=' ';

pop(antrian,x);

writeln('Data keluar = ',x);

for i:=1 to n do

write(antrian.nilai[i],' ');

writeln;

end;

end

until ingin=0;

end. 

contoh gambar setelah di Run

itu saja yang bisa saya berikan, kalau terjadi kesalahan atau program error... cob di cek dan cari kesalahannya...

PENGURANGAN DUA MATRIX DENGAN BAHASA PASCAL

Oke sob, hari ini dimana saya akan berbagi listing pascal tentang pengurangan 2 matrix
langsung aja nih..


LISTING PROGRAM DUA MATRIK

program pengurangan_matriks2;
uses crt;
var
    M1  : array[1..20, 1..20] of integer;
    M2  : array[1..20, 1..20] of integer;
    M3  : array[1..20, 1..20] of integer;
    
    i, j, m, n, x, y    : integer;
begin
    clrscr;
    write('Banyak baris : ');
    readln(m);
    write('Banyak kolom : ');
    readln(n);
     writeln('Matriks pertama : ');
    y := 4;
    for i := 1 to m do begin
        x := 8;
        for j := 1 to n do begin
            gotoxy(x,y);
            readln(M1[i,j]);
            x := x + 8;
        end;
        y := y + 1;
    end;
     writeln('Matriks kedua : ');
    y := 5 + m;
    for i := 1 to m do begin
        x := 8;
        for j := 1 to n do begin
            gotoxy(x,y);
            readln(M2[i,j]);
            x := x + 8;
        end;
        y := y + 1;
    end;
    begin
    clrscr;
    textcolor(10);
    writeln('Proses Pengurangan');
    textcolor(15);
    y := 2 + (2 * m);
    for i := 1 to m do begin
        x := 8;
        for j := 1 to n do begin
            M3[i,j] := M1[i,j] - M2[i,j];
            gotoxy(x,y);
            write(M1[i,j], ' - ',  M2[i,j]);
            x := x + 15;
        end;
        y := y + 1;
    end;
    end;
    readln;
 writeln;
 begin
 clrscr;
    writeln('Hasil Pengurangan Matriks : ');
    for i := 1 to m do begin
        for j := 1 to n do
            write(M3[i,j]:8);
        writeln;
        end;
    end;
readln;
end.


itu aja yang bisa saya bagi untuk kalian sob... smoga bermanfaat bagi semuanya..
langsung like aja ya...