GABUNGAN WHILE DAN IF

uses wincrt;
var ket :string;
pilihan,jwb : char;
pjg,lbr,ls,kl,r :integer;
p,l,t,vol : integer;volt,rt,tt :real;pi,lsl,kll :real;beginjwb := ‘Y’;
while (jwb = ‘Y’) or (jwb = ‘y’) do

begin
writeln(’Menu Pilihan ‘);
writeln(’———————————---------—’);
writeln(’a. Mencari luas & keliling Persegi ‘);
writeln(’b. Mencari luas & keliling lingkaran’);
writeln(’c. Mencari volume balok ‘);
writeln(’d. Mencari volume tabung ‘);
writeln(’————————————’);
write(’Pilihan Anda [a,b,c,d] : ‘);readln(pilihan);
pi :=3.14;
case pilihan of‘A’,'a’ : ket:= ‘Pilihan A’;
‘B’,'b’ : ket:= ‘Pilihan B’;
‘C’,'c’ : ket:= ‘Pilihan C’;
‘D’,'d’ : ket:= ‘Pilihan D’;
else ket:= ‘pilihan anda salah’;
end;
clrscr;
writeln(’Keterangan :’,ket);
if (pilihan = ‘a’) or (pilihan = ‘A’) then
begin
writeln(’Mencari luas & keliling Persegi’);
writeln(’——————————-----------’);
write(’nilai panjang : ‘);readln(pjg);
write(’nilai lebar : ‘);readln(lbr);
writeln(’ ‘);
ls := pjg * lbr;
kl :=2 * (pjg * lbr);
writeln(’Luas Persegi : ‘,ls);
writeln(’Keliling Persegi :’,kl);
writeln(’——————————-’);
write(’kembali ke menu utama [Y/T] :’); readln(jwb);
clrscr;
endelse
if (pilihan = ‘b’) or (pilihan = ‘B’) then

begin
writeln(’Mencari luas & keliling lingkaran’);
writeln(’——————————-’);
write(’nilai jari-jari : ‘);readln(r);
writeln(’ ‘);
lsl :=pi * r * r;
kll :=2 * pi * r;
writeln(’Luas Lingkaran :’,lsl:8:0);
writeln(’Keliling Lingkaran :’,kll:8:0);
writeln(’——————————-’);
write(’kembali ke menu utama [Y/T] :’); readln(jwb);
clrscr;
end

else if (pilihan =’c') or (pilihan =’C') then

begin
writeln(’Mencari volume balok’);
writeln(’——————————-’);
write(’nilai panjang : ‘);readln(p);
write(’nilai lebar : ‘);readln(l);
write(’nilai tinggi : ‘);readln(t);
writeln(’ ‘);
vol := p*l*t;
writeln(’volume balok :’,vol);
writeln(’——————————-’);
write(’kembali ke menu utama [Y/T] :’); readln(jwb);
clrscr;
endelse if (pilihan =’d') or (pilihan =’D') then
begin
writeln(’Mencari volume tabung’);
writeln(’——————————-’);
write(’jari-jari alas : ‘);readln(rt);
write(’tinggi tabung : ‘);readln(tt);
writeln(’ ‘);
volt := pi*(rt*rt)*tt;
writeln(’volume Tabung :’,volt:8:0);
writeln(’——————————-’);
write(’kembali ke menu utama [Y/T] :’); readln(jwb);
clrscr;
end;
end;
end.

Read More..

GABUNGAN ANTARA WHILE , FOR, CASE, PROCEDURE

uses wincrt;
procedure office;
vara,jml : integer;
nm,word,exl,pp : string;


begin
clrscr;
writeln(’DATA NILAI OFFICE’);
writeln(’——-----------————’);
write(’Jumlah Siswa :’); readln(jml);
for a := 1 to jml do
begin
write(’Nama ‘,a,’:');readln(nm);
write(’Nilai Ms.Word =’);readln(word);
write(’Nilai Ms.Excel =’);readln(exl);
write(’Nilai Ms.Power Point =’); readln(pp);
end;
end;

procedure desain;
vara,jml : integer;
nm,ps,cd : string;
begin
clrscr;
writeln(’DATA NILAI DESAIN’);
writeln(’—-----------—————’);
write(’Jumlah Siswa :’); readln(jml);
for a := 1 to jml do
begin
write(’Nama ‘,a,’:'); readln(nm);
write(’Nilai Photoshop =’); readln(ps);
write(’Nilai Corel Draw =’); readln(cd);
end;
end;

procedure pemrograman;
var a,jml : integer;
nm,nl : string;

begin
clrscr;
writeln(’DATA NILAI PEMROGRAMAN’);
writeln(’—------------------——————–’);
write(’Jumlah Siswa :’); readln(jml);
for a := 1 to jml do
begin
write(’Nama ‘,a,’:'); readln(nm);
write(’Nilai Nilai =’); readln(nl);
end;
end;


var pil,jwb : char;
begin
jwb := ‘Y’;
while (jwb = ‘Y’) or (jwb = ‘y’) do
begin
writeln(’PROGRAM INPUT DATA NILAI’);
writeln(’======================================’);
writeln(’1.MICROSOFT OFFICE’);
writeln(’2.DESAIN GRAFIS’);
writeln(’3.PEMROGRAMAN’);
writeln(’======================================’);
writeln(”);
write(’Pilihan Anda [1/2/3] = ‘); readln(pil);
case pil of‘1′ : office;‘2′ : desain;‘3′ : pemrograman;
else writeln(’Pilihan Anda Salah’);
end;
writeln(’————————’);
write(’Kembali Ke Menu [Y/T] = ‘);
readln(jwb);
clrscr;
end;
end.

********SELAMAT MENCOBA & BERKREASI*********
Read More..

PROGRAM PENJUALAN PASCAL

Program Nota_Penjualan(layar);
uses wincrt;
var nm_plg,alm_plg,tgl:string;

hrg_kel,Q_kel,jml_kel,hrg_bola,Q_bola,jml_bola,hrg_boneka,Q_boneka,jml_boneka:longint;
total:real;
disk:real;
bayar:real;


begin
write('Nama Pelanggan :');readln(nm_plg);
write('Alamat Pelanggan :');readln(alm_plg);
write('tanggal :');readln(tgl);
hrg_kel:=750;
Q_kel:=50;
jml_kel:=hrg_kel*Q_kel;
hrg_bola:=5800;
write('Masukan Banyak Bola :');readln(Q_bola);
jml_bola:=hrg_bola*Q_bola;
write('Masukan Harga Boneka :');readln(hrg_boneka);
Q_boneka:=3;
jml_boneka:=hrg_boneka*Q_boneka;
total:=jml_kel+jml_bola+jml_boneka;
disk:=total*0.1;
bayar:=total-disk;
clrscr;
writeln('Nama : Ayesa Putri');
writeln('NIM :2010.110.000198');
writeln;
writeln('Nota Penjualan Mainan');
writeln('Toko " Ayo Bermain"');
writeln;
writeln('Nama Pelanggan:',nm_plg);
writeln('Alamat :',alm_plg);
writeln('tanggal :',tgl);
writeln;
writeln('Macam Barang Dan Pembelian:');
write('Kelereng:Harga Satuan :',hrg_kel);gotoxy(30,12);write('Banyak:',Q_kel);
gotoxy(50,12);writeln('Jumlah:',jml_kel);
write('Bola :Harga Bola :',hrg_bola);gotoxy(30,13);writeln('Banyak:',Q_bola);
gotoxy(50,13);writeln('Jumlah:',jml_bola);
write('Boneka :Harga Satuan :',hrg_boneka);gotoxy(30,14);writeln('Banyak:',Q_boneka);
gotoxy(50,14);writeln('Jumlah:',jml_boneka);
Gotoxy (50,15);
writeln('===============[+]');
gotoxy(37,16);
writeln('Total ',total);
gotoxy(37,17);
writeln('Diskon 10% ',disk);
gotoxy(50,18);
writeln('================[-]');
gotoxy(37,19);
write( 'Jumlah Bayar ',bayar);
readln;
donewincrt;

end.
********Selamet Mencoba********
Read More..

Pascal Record Dan Array

Program Contoh Record Dan Array
║program record01; ▲
║uses crt; ■
║type ▒
║ databrg=record ▒
║ namabrg:string[15]; ▒
║ hargabrg:real; ▒
║end; ▒
║var ▒
║jumlahbrg,i,j:byte; ▒
║totalharga:real; ▒
║barang:array[1..50]of databrg; ▒
║{Masukan Data} ▒
║begin clrscr; ▒
║write('Jumlah Barang ? ');readln(jumlahbrg); ▒
║for i :=1 to jumlahbrg do ▒
║ begin ▒
║ writeln;writeln('Barang ke ',i:2); ▒
║ with barang[i]do ▒
║ begin ▒
║ write('Nama Barang? ');readln(namabrg); ▼
║ write('harga ? ');readln(hargabrg); ▲
║ end; ▒
║ end; ▒
║{Menampilkan Hasil} ▒
║writeln;writeln; ▒
║writeln('--------------------------------------------------------'); ▒
║writeln(' Struk penjualan'); ▒
║writeln('Nama Barang harga '); ■
║writeln('--------------------------------------------------------'); ▒
║totalharga:=0; ▒
║for i:= 1to jumlahbrg do ▒
║begin ▒
║with barang[i]do ▒
║ begin ▒
║ totalharga:=totalharga+hargabrg; ▒
║ write(namabrg:10); ▒
║ writeln(hargabrg:10:0); ▒
║ end; ▒
║end; ▒
║writeln; ▒
║writeln('--------------------------------------------------------'); ▒
║writeln('*****Total',totalharga:10:0); ▒
║writeln('--------------------------------------------------------'); ▒
║writeln(' TERIMA KASIH '); ▒
║readln; end.

Selamat Mencoba.......
Read More..