UniShape (belajar pascal)
Hmm… (bingung mo ngomong apa..), hi, i’m back ! (dengan gaya yang kentang). Setelah sekian lama ga menjenguk blog ini, kangen juga mo nulis-nulis.
Kemaren habis bikin program cupu buat hitung-hitung bangun datar dengan menggunakan program turbo pascal 7.1. Walaupun masih banyak kekurangan di sana-sini, tapi berharap dengan di-post di sini, mungkin akan lebih berguna daripada hanya disimpan “berjamur” di hardisk rumah. Langsung aja, silakan dilirik.
Program UniShape;
uses crt;
var
ulang,pilih:char;
{kumpulan procedure mulai disini}
procedure persegi;
var
sisi,keliling,luas:integer;
begin
writeln(‘ UniShape v.1.0′);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
writeln(‘ Anda memilih bidang (1)PERSEGI’);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
write(‘ ¯ Masukkan sisi : ‘);
readln(sisi);
keliling:=sisi*4;
luas:=sisi*sisi;
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Keliling persegi: sisi x 4′);
writeln(‘ : ‘,sisi,’ x 4′);
writeln(‘ : ‘,sisi*4);
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Luas persegi : sisiý’);
writeln(‘ : ‘,sisi,’ý’);
writeln(‘ : ‘,luas);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
end;
procedure persegi_panjang;
var
panjang,lebar,keliling,luas:integer;
begin
writeln(‘ UniShape v.1.0′);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
writeln(‘ Anda memilih bidang (2)PERSEGI PANJANG’);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
write(‘ ¯ Masukkan panjang(P): ‘);
readln(panjang);
write(‘ ¯ Masukkan lebar(L) : ‘);
readln(lebar);
keliling:=(panjang+lebar)*2;
luas:=panjang*lebar;
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Keliling : (P + L) x 2′);
writeln(‘ : (‘,panjang,’ + ‘,lebar,’) x 2′);
writeln(‘ : ‘,panjang + lebar,’ x 2′);
writeln(‘ : ‘,keliling);
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Luas : P x L’);
writeln(‘ : ‘,panjang,’ x ‘,lebar);
writeln(‘ : ‘,luas);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
end;
procedure lingkaran;
const
phi=3.14;
var
jari:integer;
keliling,luas:real;
begin
writeln(‘ UniShape v.1.0′);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
writeln(‘ Anda memilih bidang (3)LINGKARAN’);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
write(‘ ¯ Masukkan jari-jari(R): ‘);
readln(jari);
keliling:=2*phi*jari;
luas:=phi*jari*jari;
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Keliling : 2 x ã x R’);
writeln(‘ : 2 x ‘,phi:0:2,’ x ‘,jari);
writeln(‘ : ‘,keliling:0:2);
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Luas : ã x Rý’);
writeln(‘ : ‘,phi:0:2,’ x ‘,jari,’ý’);
writeln(‘ : ‘,phi:0:2,’ x ‘,sqr(jari));
writeln(‘ : ‘,luas:0:2);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
end;
procedure segitiga_siku;
var
sisi_alas,sisi_tinggi:integer;
sisi_miring,keliling,luas:real;
begin
writeln(‘ UniShape v.1.0′);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
writeln(‘ Anda memilih bidang (4)SEGITIGA SIKU-SIKU’);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
write(‘ ¯ Masukkan sisi alas(A) : ‘);
readln(sisi_alas);
write(‘ ¯ Masukkan sisi tinggi(T): ‘);
readln(sisi_tinggi);
sisi_miring:=sqrt(sqr(sisi_alas)+sqr(sisi_tinggi));
keliling:=sisi_alas+sisi_tinggi+sisi_miring;
luas:=sisi_alas*sisi_tinggi/2;
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Sisi miring(M) : û(Aý + Tý)’);
writeln(‘ : û(‘,sisi_alas,’ý + ‘,sisi_tinggi,’ý)’);
writeln(‘ : û(‘,sqr(sisi_alas),’ + ‘,sqr(sisi_tinggi),’)');
writeln(‘ : û’,sqr(sisi_alas) + sqr(sisi_tinggi));
writeln(‘ : ‘,sisi_miring:0:2);
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Keliling : A + T + M’);
writeln(‘ : ‘,sisi_alas,’ + ‘,sisi_tinggi,’ + ‘,sisi_miring:0:2);
writeln(‘ : ‘,keliling:0:2);
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Luas : « x (A x T)’);
writeln(‘ : « x (‘,sisi_alas,’ x ‘,sisi_tinggi,’)');
writeln(‘ : « x ‘,sisi_alas*sisi_tinggi);
writeln(‘ : ‘,luas:0:2);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
end;
procedure segitiga_samasisi;
var
sisi,keliling:integer;
sementara,sisi_tinggi,luas:real;
begin
writeln(‘ UniShape v.1.0′);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
writeln(‘ Anda memilih bidang (5)SEGITIGA SAMA SISI’);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
write(‘ ¯ Masukkan sisi(S) : ‘);
readln(sisi);
sementara:=sisi/2;
sisi_tinggi:=sqrt(sqr(sisi)-sqr(sisi/2));
keliling:=sisi*3;
luas:=sisi*sisi_tinggi/2;
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Sisi tinggi(T) : û(Sý – («S)ý)’);
writeln(‘ : û(‘,sisi,’ý – ‘,sementara:0:2,’ý)’);
sementara:=sqr(sisi/2);
writeln(‘ : û(‘,sqr(sisi),’ – ‘,sementara:0:2,’)');
sementara:=sqr(sisi)-sementara;
writeln(‘ : û’,sementara:0:2);
writeln(‘ : ‘,sisi_tinggi:0:2);
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Keliling : S x 3′);
writeln(‘ : ‘,sisi,’ x 3′);
writeln(‘ : ‘,keliling);
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Luas : « x (S x T)’);
writeln(‘ : « x (‘,sisi,’ x ‘,sisi_tinggi:0:2,’)');
sementara:=sisi*sisi_tinggi;
writeln(‘ : « x ‘,sementara:0:2);
writeln(‘ : ‘,luas:0:2);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
end;
procedure segitiga_samakaki;
var
sisi_alas,sisi_miring,keliling:integer;
sisi_tinggi,luas,sementara:real;
begin
writeln;
writeln(‘ UniShape v.1.0′);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
writeln(‘ Anda memilih bidang (6)SEGITIGA SAMA KAKI’);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
write(‘ ¯ Masukkan alas(A) : ‘);
readln(sisi_alas);
write(‘ ¯ Masukkan sisi miring(M): ‘);
readln(sisi_miring);
if (sisi_alas/2 < sisi_miring) then
begin
sisi_tinggi:=sqrt(sqr(sisi_miring)-sqr(sisi_alas/2));
keliling:=sisi_alas+(sisi_miring*2);
luas:=sisi_alas*sisi_tinggi/2;
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Sisi tinggi : û(Mý – («A)ý)’);
sementara:=sisi_alas/2;
writeln(‘ : û(‘,sisi_miring,’ý – ‘,sementara:0:2,’ý)’);
sementara:=sqr(sementara);
writeln(‘ : û(‘,sqr(sisi_miring),’ – ‘,sementara:0:2,’)');
sementara:=sqr(sisi_miring)-sementara;
writeln(‘ : û’,sementara:0:2);
writeln(‘ : ‘,sisi_tinggi:0:2);
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Keliling : A + (M x 2)’);
writeln(‘ : ‘,sisi_alas,’ + (‘,sisi_miring,’ x 2)’);
writeln(‘ : ‘,sisi_alas,’ + ‘,sisi_miring*2);
writeln(‘ : ‘,keliling);
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
writeln(‘ ¯ Luas : « x (A x T)’);
writeln(‘ : « x (‘,sisi_alas,’ x ‘,sisi_tinggi:0:2,’)');
sementara:=sisi_alas*sisi_tinggi;
writeln(‘ : « x ‘,sementara:0:2);
writeln(‘ : ‘,luas:0:2);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
end
else
begin
sementara:=sisi_alas/2+1;
writeln;
writeln(‘ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ’);
textColor(YELLOW+BLINK);
writeln(‘ WARNING!’);
writeln(‘ Nilai sisi miring(M) terlalu kecil,’);
writeln(‘ Nilai sisi miring(M) minimal: ‘,sementara:0:0,’..!!’);
textColor(WHITE);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
end;
end;
procedure buka;
begin
clrscr;
textcolor(White);
writeln;
writeln;
writeln(‘ °²²² ²²² ²²± ±²²²²²²² ²²² ‘);
writeln(‘ ²²² ²²²° °²²°²²²± °²²² ²²² ‘);
writeln(‘ ²²² ²²²°±±° ±²² ° °°°²²² ° ±²²±²²²°°²²±°° ±²²²° °±±°°²²±°°°° ±²²°’);
writeln(‘ ²²² ²²²°²²²²²²²²² ²²±±²²²²²± ° ²²²²²²²²²°²²²²²²²² ²²²²²²²²²°²²²²²²²’);
writeln(‘ ²²² ²²²°²²² °±²² ²²° ±²²²²²²²°²²²° °²² ° ° °°²² ²²²° °²²²²² ±²²’);
writeln(‘ ²²² ²²²°²²± ±²² ²²± ° ²²²²²²²° °²² °²²²²²²² ²²± °²²²²²²²²²²²’);
writeln(‘ °²²² ²²²°²²±° ±²² ²²±²²² ²²²²²² °²²±²²± °±²² ²²² °²²²²²’);
writeln(‘ °²²²²±±²²²± ²²±° ±²² ²²±²²²²±±²²²²±²²² °²²²²²° °²²²°²²²² °²²²±²²² ²²²’);
writeln(‘ ²²²²²²² ° ²²± ±²² ²²° °²²²²²²² °²²² ²²°²²²²²°²²±²²±²²²²² ²²²²²²’);
writeln(‘ °° ° ° ° ²²± °°’);
writeln(‘ ²²±’);
writeln(‘ °° °²² ° ²²²°’);
writeln(‘ °² ²°° °² °²° ±²’);
writeln(‘ ²°±² °² °²² °²’);
writeln(‘ °²²°°² °²°² ²²² ‘);
writeln(‘ ° ° °° °’);
writeln;
writeln(‘ UniShape v.1.0′);
writeln(‘ Tugas Pemrograman 1 – Kelompok Copy-Paste – Kelas 1h’);
writeln(‘ Teknik Informatika – Unindra’);
writeln;
textColor(Yellow+Blink);
write(‘ Tekan ENTER untuk melanjutkan…’);
readln;
textcolor(White);
end;
{Akhir dari kumpulan procedure}
begin
buka;
ulang:=’Y';
while ulang=’Y’ do
begin
clrscr;
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
writeln(‘ Program UniShape v.1.0′);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
writeln(‘ 1. Persegi’);
writeln(‘ 2. Persegi panjang’);
writeln(‘ 3. Lingkaran’);
writeln(‘ 4. Segitiga siku-siku’);
writeln(‘ 5. Segitiga sama sisi’);
writeln(‘ 6. Segitiga sama kaki’);
writeln(‘ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ’);
writeln;
write(‘ Pilih jenis bidang (1-6): ‘);
readln(pilih);
clrscr;
case pilih of
’1′:persegi;
’2′:persegi_panjang;
’3′:lingkaran;
’4′:segitiga_siku;
’5′:segitiga_samasisi;
’6′:segitiga_samakaki;
end;
writeln;
write(‘ Hitung yang lain(Y/T)? ‘);
readln(ulang);
end;
clrscr;
writeln;
writeln;
writeln;
writeln;
writeln;
writeln(‘ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿’);
writeln(‘ ³ Terima kasih ³’);
writeln(‘ ³ Telah menggunakan UniShape v.1.0 ³’);
writeln(‘ ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´’);
writeln(‘ ³ Kelompok COPY-PASTE – Kelas 1h ³’);
writeln(‘ ³ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ³’);
writeln(‘ ³ Saia³’);
writeln(‘ ³ Teman³’);
writeln(‘ ³ Teman juga³’);
writeln(‘ ³ Temenan³’);
writeln(‘ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ’);
writeln;
textColor(14+Blink);
write(‘ Tekan ENTER untuk keluar…’);
readln;
end.
