Program matematika dasar..

Setelah lama ga ng’posting di blog..kali ne Q coba post ge dech..

Namun agak berbeda dgn postingan2 sebelumnya..kali bener2 sesuai dengan jurusan Q.. haha.. Postingan ini berawal dari komen2n di FB,hingga akhirnya Q tau seperti apa soal final Ilmu komputer n pemrograman di salah satu PT di Kalsel.. Dari soal tu menggelitik hati dan isi kepala Q untuk mencoba memecahkan masalah yang diberikan..Namun ga cukup sampe situ z..Q beri sedikit tambahan n Q kembangkan..Q gabungin dengan tugas Alpro1 Q..hehe .. Maka jadilah seperti ini..

program Matematika_dasar;
{Selasa, 29 Juni 2010)
{Oleh RIZQAN ASWADI NOOR}

uses crt;

var
pilih : integer;

procedure kalkulator;
var
total,angka2: real;
operasi : string;
BEGIN
clrscr;
total:=0;
write ('Angka 1 : '); readln (total);
repeat
repeat
write ('Operasi (+,-,*,/,=) : '); readln (operasi);
until (operasi='+')or(operasi='-')or(operasi='*')or(operasi='/')or(operasi='=');

IF (operasi='+')or(operasi='-')or(operasi='*')or(operasi='/') then
begin
write ('Angka 2 : '); readln (angka2);

{operasi +,-,*,/,=}
IF operasi='+' THEN
total:= (total+angka2)
ELSE IF operasi='-' THEN
total:= (total-angka2)
ELSE IF operasi='*' THEN
total:= (total*angka2)
ELSE IF operasi='/'THEN
total:= (total/angka2);
end;

IF (operasi='=') then
{operasi =}
total:=(total*1);

writeln ('Total : ',total:0:0);
until (operasi='=');
writeln;
writeln;
END;

procedure tabel_perhitungan;
var n,i,j : integer;

BEGIN
clrscr;
writeln (' TABEL PENJUMLAHAN ');
write (' Mau tabel Penjumlahan berapa ? : '); readln (n);
write (' + ');
FOR i:=1 TO n DO
write (i:4);
writeln;
writeln;
FOR i:=1 TO n DO
Begin
write (i:4);
FOR j:= 1+0 TO n DO
write (i+j:4);
writeln;
writeln;
End;
writeln;
writeln;
writeln;

writeln (' TABEL PENGURANGAN ');
write (' Mau tabel Pengurangan berapa ? : '); readln (n);
write (' - ');
FOR i:=n DOWNTO 1 DO
write (i:4);
writeln;
writeln;
FOR i:=n DOWNTO 1 DO
Begin
write (i:4);
FOR j:= n DOWNTO 1 DO
write (j-i:4);
writeln;
writeln;
End;
writeln;
writeln;
writeln;

writeln (' TABEL PERKALIAN ');
write (' Mau tabel Perkalian berapa ? : '); readln (n);
write (' * ');
FOR i:=1 TO n DO
write (i:4);
writeln;
writeln;
FOR i:=1 TO n DO
Begin
write (i:4);
FOR j:= 1+0 TO n DO
write (i*j:4);
writeln;
writeln;
End;
writeln;
writeln;
writeln;

writeln (' TABEL PEMBAGIAN ');
write (' Mau tabel Pembagian berapa ? : '); readln (n);
write (' / ');
FOR i:=n DOWNTO 1 DO
write (i:6);
writeln;
writeln;
FOR i:=n DOWNTO 1 DO
Begin
write (i:6);
FOR j:= n DOWNTO 1 DO
write (i/j:6:2);
writeln;
writeln;
End;
writeln;
writeln;
writeln;
END;

Procedure persegi;
var sisi,keliling,luas : real;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Sisi : ');read(sisi); writeln('cm');
writeln (' Ditanya : ');
writeln (' Keliling Persegi : ...?');
writeln (' Luas Persegi : ...?');
writeln (' Dijawab : ');

keliling:=4*sisi;
luas:=sisi*sisi;
write (' Keliling Persegi : ',keliling:2:0); writeln (' cm');
write (' Luas Persegi : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure Persegi_panjang;
var p,l,keliling,luas : real;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Panjang : ');read(p); writeln ( 'cm');
write (' Lebar : ');read(l); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Keliling Persegi Panjang : ...?');
writeln (' Luas Persegi Panjang : ...?');
writeln (' Dijawab : ');

keliling:=2*(p+l);
luas:=p*l;
write (' Keliling Persegi Panjang : ',keliling:2:0); writeln (' cm');
write (' Luas Persegi Panjang : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure lingkaran;
var r, keliling,luas : real;

const phi = 3.14;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Jari-Jari : ');read(r); writeln ( 'cm');
writeln (' Phi : 3.14');
writeln (' Ditanya : ');
writeln (' Keliling Lingkaran : ...?');
writeln (' Luas Lingkaran : ...?');
writeln (' Dijawab : ');

keliling:= 2*phi*r;
luas:=phi*(r*r);
write (' Keliling Lingkaran : ',keliling:2:0); writeln (' cm');
write (' Luas Lingkaran : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;


Procedure segitiga_siku2;
var a,sisi1,sisi2,t,keliling,luas : real;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Panjang Alas : ');read(a); writeln ( 'cm');
write (' Panjang Sisi Miring1 : ');read(sisi1); writeln ( 'cm');
write (' Panjang Sisi Miring2 : ');read(sisi2); writeln ( 'cm');
write (' Tinggi : ');read(t); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Keliling Segitiga : ...?');
writeln (' Luas Segitiga : ...?');
writeln (' Dijawab : ');

keliling:=sisi1+sisi2+a;
luas:=(a*t)/2;
write (' Keliling Segitiga : ',keliling:2:0); writeln (' cm');
write (' Luas Segitiga : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure kubus;
var s,volume,luas : real;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Panjang sisi : ');read(s); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Volume Kubus : ...?');
writeln (' Luas Permukaan Kubus : ...?');
writeln (' Dijawab : ');

volume:=s*s*s;
luas:=6*(s*s);
write (' Volume Kubus : ',volume:2:0); writeln (' cm3');
write (' Luas Permukaan Kubus : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure balok;
var p,l,t,volume,luas : real;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Panjang : ');read(p); writeln ( 'cm');
write (' Lebar : ');read(l); writeln ( 'cm');
write (' Tinggi : ');read(t); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Volume Balok : ...?');
writeln (' Luas Permukaan Balok : ...?');
writeln (' Dijawab : ');

volume:=p*l*t;
luas:= (2*(p*l))+(2*(p*t))+(2*(l*t));
write (' Volume Balok : ',volume:2:0); writeln (' cm3');
write (' Luas Permukaan Balok : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure silinder;
var r,h,volume,luas : real;

const phi = 3.14;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Jari-Jari Alas : ');read(r); writeln ( 'cm');
write (' Tinggi Silinder : ');read(h); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Volume Silinder : ...?');
writeln (' Luas Permukaan Silinder : ...?');
writeln (' Dijawab : ');

volume:=phi*(r*r)*h;
luas:= (2*phi*(r*r)+(2*phi*r*h));
write (' Volume Silinder : ',volume:2:0); writeln (' cm3');
write (' Luas Permukaan Silinder : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

Procedure bola;
var r,volume,luas : real;

const phi = 3.14;

BEGIN
clrscr;
writeln (' Diketahui : ');
write (' Jari-Jari Bola : ');read(r); writeln ( 'cm');
writeln (' Ditanya : ');
writeln (' Volume Bola : ...?');
writeln (' Luas Permukaan Bola : ...?');
writeln (' Dijawab : ');

volume:=(4*phi*(r*r*r))/3;
luas:= 4*phi*(r*r);
write (' Volume Bola : ',volume:2:0); writeln (' cm3');
write (' Luas Permukaan Bola : ',luas:2:0); writeln (' cm2');
writeln;
writeln;
END;

BEGIN
clrscr;
REPEAT
writeln ('########## MENU ##########' );
writeln ('1. Kalkulator' );
writeln ('2. Tabel Perhitungan Dasar' );
writeln ('3. Persegi' );
writeln ('4. Persegi Panjang' );
writeln ('5. Lingkaran' );
writeln ('6. Segitiga Siku-Siku' );
writeln ('7. Kubus' );
writeln ('8. Balok' );
writeln ('9. Silinder' );
writeln ('10. Bola' );
writeln ('11. Keluar' );
write ('Pilihan : ' ); readln (pilih);

IF pilih=1 THEN kalkulator;

IF pilih=2 THEN tabel_perhitungan;

IF pilih=3 THEN persegi; {menghitung keliling dan luas persegi}

IF pilih=4 THEN persegi_panjang; {menghitung keliling dan luas persegi panjang}

IF pilih=5 THEN lingkaran;

IF pilih=6 THEN segitiga_siku2;

IF pilih=7 THEN kubus;

IF pilih=8 THEN balok;

IF pilih=9 THEN silinder;

IF pilih=10 THEN bola;

UNTIL pilih=11;

END.

Semoga Bermanfaat