Monday, 9 July 2012

Turbo Pascal

        pernahkah anda mengalami masalaha dalam mempelajari matematika ?

   saya yakin anda pernah mengalami masalah dalam mempelajari matematika,seperti dalam mempelajari operasi bilangan real, operasi hitung dalam bilangan pecahan, perbandingan, aprokasi masih kesalahan, logaritma, dan lain-lain.  Sekalipun materi yang sederhana seperti menghitung luas bangun datar dua dimensi.
 tapi terkadang kita lupa dengan rumusnya, .atau anda malas menghitungnya jangan khawatir disini anda tidak perlu pusing-pusing menghitugnya. anda hanya cukup memasukan data dari luas bangun datar yang anda pilih.. 

maka, karna itu saya harap materi di blog ini bisa membantu anda khususnya untuk operasi luas bangun datar..


 program luas_2d;
 uses crt;
 var pil1,pil2:byte;
 a,b,t:integer;
 l:real;

 label x,y,z;

procedure menu;
begin
clrscr;
 writeln('pilih');
 writeln('1 segitiga');
  writeln('2 persegi');
 writeln('3 trapesium');
 writeln('4 exit');
 write('pil1-4:');
readln(pil1);
 end;


procedure luas_segitiga;
 begin
 clrscr;
 write('masukan alas');
 readln(a);
 write('masukan tinggi');
 readln(t);
 l:=a*t/2;
end;

procedure luas_persegi;
begin
clrscr;
write('masukan panjang');
readln(a);
write('masukan lebar');
readln(t);
l:=a*t;
end;













procedure luas_trapesium;
begin
clrscr;
write('masukan sisi pertama');
readln(a);
write('masukan sisi ke dua');
readln(b);
write('masukan tinngi');
readln(t);
 l:=sisi pertama(a)*sisi ke dua(b)*t;
end;



begin
menu;
case pil1 of
1: luas_segitiga;
2: luas_persegi_panjang;
end;
writeln;
writeln ('maka luasnya adalah ',l:10:2);
repeat until keypressed;
end.



 Kreasi anak rpl smk al-marwah dengan bimbingan pak Rahri Ramdani

lihat juga :
Biawak AirKeanekaragaman Hayati,  Dasar-dasar Algoritma

No comments:

Post a Comment