Selasa, 28 Februari 2012

menghitung menggunakan turbo pascal

Menghitung Menggunakan Turbo Pascal

Volume Kerucut
program menghitung_volume_kerucut;
uses windos, wincrt;
var
v,r,t:real;
ch:char;
Kerucut
begin
clrscr;
Writeln ('program ini dibuat oleh :TRIANA ASILINA');
writeln ('masukan panjang (r)=   ');
Readln (r);
writeln ('masukan nilai (t)=   ');
Readln (t);
v:=1/3*pi*sqr(r);
Writeln ('volume kerucut=',v:10:2,'cm2');
ch:=Readkey;
end.
Luas Layang-Layang
program menghitung_luas_layang_layang;
uses windos, wincrt;
var
a,b,L:real;
ch:char;
Layang-Layang
begin
clrscr;
Writeln ('program ini dibuat oleh : TRIANA ASILINA');
writeln ('masukan panjang (a)=   ');
Readln (a);
writeln ('masukan panjang (b)=   ');
Readln (b);
Writeln;
L:=(a*b)/2;
Writeln ('luas layang layang=',L:10:2,'cm2');
ch:=Readkey;
end.

Tidak ada komentar:

Posting Komentar