1. PROGRAM RECORD DATA MAHASISWA
program recordku; uses wincrt; type mahasiswa = record nama: string [20]; nim : string [10]; jurusan : string [30]; nilai : real; end; var datamhs : array [1..50] of mahasiswa; n,i : integer; begin clrscr ; write (' <<<<<<<<<<<<< PROGRAM DATA MAHASISWA >>>>>>>>>>>>>> writeln ; write ('Masukkan banyaknya data : '); readln (n); writeln; for i:=1 to n do begin writeln; writeln ('^.^ Untuk Data ke-',i); writeln; write ('Masukkan Nama = '); readln(datamhs[i].nama); readln(datamhs [i].nama); write ('Masukkan Nim = '); readln (datamhs[i] .nim) ; write ('Masukkan Jurusan = '); readln (datamhs[i].jurusan); (datamhs[i].jurusan); write ('Masukkan Nilai = '); readln (datamhs[i] .nilai); end; writeln; writeln ('tekan enter donk...'); readln; clrscr; writeln (' DAFTAR MAHASISWA '); writeln; for i:= 1 to n do begin with datamhs[i] do begin write (i,#32,nama,#32:20-length(nama));
'); readln;
write (nim,#32:10-length(nim)); write (jurusan,#32:30-length(jurusan)); writeln (nilai : 3:2); end; end; end. Hasil :
1
2. PROGRAM ENUMERASI PROGRAM ENUM1; USES WINCRT; type namabulan = (jan, feb, mar, april, mei, juni, juli, agust, sept, okt, nov, des) ; var hari, n : integer; bulan : namabulan; const K : set of namabulan = [april , mei, juni, juli, agust, sept]; begin randomize; {membangkitkan bilangan acak} writeln('program enumerasi nama bulan'); n:= random(12); bulan:= namabulan(n); write('tahukah anda bahwa bulan '); case bulan of jan : begin write ('januari'); hari := 31; end; feb : begin write ('februari'); hari := 28; end; mar : begin write ('maret'); hari := 31; end; april : begin write ('april'); hari := 30; end; mei : begin write ('mei'); hari:= 31; end; juni : begin write ('juni'); hari := 30; end; juli : begin write ('juli'); hari := 31; end; agust : begin write ('agustus'); hari := 31; end; sept : begin write ('september'); hari := 30; end; okt : begin write ('oktober'); hari := 31; end; nov : begin write ('november'); hari := 30; end; des : begin write('desember');hari := 31; end; end; writeln(' bulan ke- ', ord(bulan)+1, ' dan terdiri atas ', hari, ' hari'); if (bulan in K) then writeln ('musim kemarau') else writeln ('musim penghujan'); end. HASIL :
3. PROGRAM ARITMATIKA 2 BILANGAN
program aritmatika; uses wincrt; var a, b : integer; operasi, pilih : char; label baca ; begin baca: clrscr; write (' <<<<< program aritmatika >>>>> ');
2
writeln; writeln; write ('masukkan bilangan pertama = ');readln (a); write ('masukkan bilangan kedua = '); readln (b); write ('pilih operasi bilangan (* , / , +, - )= '); readln (operasi); writeln ('maka, hasil dari '); case operasi of '+' : writeln (a, '+', b, '=' , a + b); '-' : writeln (a , '-',b,'=',a-b); '*' : writeln (a, '*',b ,'=', a*b); '/' : if b<> 0 then writeln (a,'/',b,'=',a/b:4:3); else writeln ('anda tidak tahu aritmatika ?'); end; writeln; writeln ('apakah anda ingin mengetahui operasi lain ? '); readln (pilih); if pilih = 'y' then goto baca else writeln ('sampai jumpa'); end. HASIL :
4. PROGRAM CETAK MATRIKS
program cetak_matriks; uses wincrt; var matA : array [1..100] of array [1..100] of longint; i, j : integer; bar,kol : integer; begin write (' <<<<< PROGRAM CETAK MATRIKS >>>>> '); writeln; writeln; write ('banyaknya baris : '); readln (bar); write ('banyaknya kolom : '); readln (kol); for i:= 1 to bar do begin for j:= 1 to kol do begin write ('mariks A [',i,',',j,'] = '); readln (matA [i,j]); end; end; writeln; writeln ('nilai matriks A : '); for i:= 1 to bar do begin for j := 1 to kol do write (matA [i,j]:3);
3
writeln; end; end. HASIL PROGRAM :
5. PROGRAM TRIPLE PHITAGORAS
4
HASIL PROGRAM
6. PROGRAM MENGHITUNG KPK DAN FPB
program mencari_nilai_fpb_dan_kpk; uses wincrt; var a,b,c : longint; begin clrscr; write (' <<<<< PROGRAM MENGHITUNG KPK & FPB >>>>> '); writeln ; writeln; write ('Masukkan Bilangan pertama = '); readln (a); write ('Masukkan bilangan kedua = '); readln (b); for c := b downto 1 do begin if (a mod c =0) and (b mod c = 0) then begin writeln; writeln ('Maka diperoleh :'); writeln ('FPB dari ',a:4,' dan ',b:4,' adalah ', c:7); c:=1 end; end; for c := b to (a*b) do begin if (c mod a = 0 ) and (c mod b = 0) then begin writeln ('KPK dari ',a:4,' dan ',b:4,' adalah ',c:7); c:= a*b; end; end; end. HASIL PROGRAM :
5
7. PROGRAM FAKTORIAL
program faktorial; uses wincrt; var i,x:integer; a:real; begin write (' <<<<< PROGRAM MENGHITUNG FAKTORIAL >>>>>'); writeln; writeln; write('Masukkan bilangan: ');readln(x); a:=1; for i:=1 to x do a:=a*i; write('Nilai ',x,' faktorial adalah ', a:3:0); end. HASIL PROGRAM :
8. PROGRAM TABEL PERKALIAN 2 BUAH BILANGAN BULAT
program Tabel_perkalian; uses wincrt; var i, j,dimensi : integer; begin write ('<<<<< PROGRAM TABEL PERKALIAN >>>>>'); writeln; writeln; writeln('program perkalian dua bilangan bulat'); write('masukkan dimensi(1...15): dimensi(1... 15): '); readln(dimensi); readln(dimens i); writeln; if (dimensi >= 1) and (dimensi <= 15) then begin write (' *|'); for i := 1 to dimensi do write (i:4); writeln; for i:= 1 to (dimensi+1)*4 do write ('='); writeln; for i:= 1 to dimensi do begin if i< 10 then write (' '); write(i,'|'); for j:= 1 to dimensi do write (i*j:4); writeln; end; end else
6
writeln('Anda writeln('Anda Salah.....!!!!!!!!!!') Salah.....!!!!!!!!!!') end. HASIL PROGRAM
9. PROGRAM HARI
program HAri; Uses Wincrt; type namahari=(minggu,senin,selasa,rabu,kamis,jumat,sabtu); var n:integer; x:namahari; lagi:char; Const k:set of namahari=[minggu]; begin randomize; writeln('program nama hari'); repeat writeln; n:=random(7); x:=namahari(n); write('tahukah anda nama hari'); case x of Minggu:begin write (' minggu ');end; senin:begin write(' senin ');end; Selasa:begin write(' selasa ');end; rabu:begin write(' rabu ');end; kamis:begin write(' kamis ');end; jumat:begin write(' jumat ');end; sabtu:begin write(' sabtu ');end; end; writeln(' hari ke' ,ord(x)+1,' ,ord(x)+1, ' adalah ','hari'); if(x in k)then writeln('hari libur') else Writeln('hari Writeln('hari biasa'); Writeln; x:=pred(namahari(n)); case x of Minggu:begin write (' minggu ');end; senin:begin write(' senin ');end; Selasa:begin write(' selasa ');end; rabu:begin write(' rabu ');end; kamis:begin write(' kamis ');end; jumat:begin write(' jumat ');end; sabtu:begin write(' sabtu ');end; end; writeln('hari ke',ord(x)+1,' hari sebelumnya ,','hari');
7
if(x in k)then writeln('hari libur') else Writeln('hari Writeln('hari biasa'); writeln; x:=succ(namahari(n)); case x of Minggu:begin write (' minggu ');end; senin:begin write(' senin ');end; Selasa:begin write(' selasa ');end; rabu:begin write(' rabu ');end; kamis:begin write(' kamis ');end; jumat:begin write(' jumat ');end; sabtu:begin write(' sabtu ');end; end; writeln('hari writeln('hari ke',ord(x)+1,' ke',ord(x)+1,' hari sesudahnya sesudahnya ,','hari'); if(x in k)then writeln('hari libur') else Writeln('hari Writeln('hari biasa'); writeln; writeln('apakah anda ingin mengetahui yang lain(Y/T)...??'); readln(lagi); until (lagi in ['Y','y'])=false; ['Y','y'])=false; donewincrt; end. HASIL PROGRAM :
10. contoh procedure : Program PersegiP anjang; uses wincrt; var p,l:byte; ls,kel:integer; Procedure Hitung_Luas; begin ls:=p*l; writeln('Luas :',ls); end; Procedure Hitung_Keliling; begin kel:=(2*p)+(2*l); writeln('Keliling :',kel); end;
{judul Program Utama} {deklarasi variabel global} {p :panjang, l:lebar} {ls:luas, kel:keliling} {Prosedur untuk menghitung luas}
{Prosedur {Prosedu r untuk menghitung keliling}
{===program utama===} begin
8
clrscr; writeln('Program Untuk Menghitung luas dan keliling persegipanjang'); writeln; write('Masukan panjang : ');readln(p); write('Masukan lebar : ');readln(l); ');readln(l) ; writeln; Hitung_Luas; {Memanggil prosedur Hitung_Luas} Hitung_Keliling; {Memanggil prosedur Hitung_Keliling} readln; end.
9
