Program FIle Pada Pascal

Contoh Program File Pada Pascal Program FileTeman;Uses Crt;VarJenisFile    : Text;Nama         : String;ALamat       : String;Telp         : String;Tanya        : Char;Pilihan      : shortint;BeginRepeatClrScr;Writeln;writeln(' ____________________________________');writeln('|       ...

Read More

Linked List

Contoh Program Linked List uses crt;  type pointer=^typedata;       Typedata = RECORD       Nilai : INTEGER;       Berikutnya : POINTER;  end;var list :pointer;procedure mas_dep(var L : pointer; x : Integer);var baru : pointer; begin  new(baru);  baru^.Nilai:=x;  baru^.Berikutnya:= nil;  if L= nil then L:=baru  else ...

Read More

Program Pointer Tak Bertipe Pada Pascal

Contoh Program Pointer Tak Bertipe Pada Pascal uses crt;varp : Pointer;q : ^Byte;r : array [0..100] of Byte;i : Byte;n : integer;beginclrscr;write('Masukkan jumlah data : '); readln(n);writeln;writeln;GetMem(p, 20);q:=p;for i:=0 to n dobeginr[i]:=n-i;q^:= n-i;inc(q);end;q:=p;for i:=0 to n dobeginwriteln(' ___________________________');writeln('|             |            ...

Read More

Program Mencari Nilai Maksimum dan Minimum pada pascal

Contoh program mencari nilai yang sudah kita inputkan serta mencari nilai maksimum dan nilai minimum uses crt;label awal;const nmin = 1;      nmax = 100;type  arrint = array [nmin..nmax] of integer;var tabint : arrint;    x,n,i,indeks,max,min,maks : integer;function seqsearch1(xx : integer): integer;  var i : integer;  begin    i := 1;    while ((i<n) and (tabint[i]...

Read More

Contoh Proogram Selection Sort Data Mahasiswa pada Pascal

Berikut contoh program pengurutan nilai IPK pada data mahasiswa uses crt;type mhs= record     Nama, NIM: string;     IPK : real;end;var Data : array [1..100] of mhs;    i, j, n, temp : integer;    pilih : char;procedure input;beginclrscr;write('Masukkan jumlah mahasiswa : ');readln(n);for i := 1 to n dobegin  writeln(' ___________________________________');  writeln('|       ...

Read More

Contoh Program Rekursif pada pascal uses crt;function kali(a,b:integer):longint;beginif b>1 thenbegin        kali:= kali(a,b-1)+a;end elsekali:=a;end;procedure  Volume;var a,b,c:integer;    v:real;begin clrscr;      write('Panjang Limas  : '); readln(a);      write('Lebar Limas    : '); readln(b);     ...

Read More

Array dan Record dalam Bahasa Pascal 1. Array       Array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman. 2. Record Normal 0 false false false IN X-NONE X-NONE ...

Read More