Rumus - rumus pascal

Asslmkm agan" & sista", ini first post ane di blog d'scravto lho.
woke, langsung wae lah cekicrot..
Gan, ane iseng-iseng nih pencet-pencet keyboard.
eh jadinya ane malah pencet tulisan kaya gini gan :
(1)

program lingkaran;

uses wincrt;

const

  pi=22/7;

var

radius:integer;

dia,kel,luas:real;

begin

writeln('~ OPERASI HITUNG LINGKARAN ~');

writeln;

write('masukkan radius : ');readln (radius);

dia:=2*radius;

kel:=2*pi*radius;

luas:=pi*radius*radius;

writeln;

writeln('diameter lingkaran adalah =',dia:0:0);

writeln('keliling lingkaran adalah =',kel:0:0);

writeln('luas lingkaran adalah =',luas:0:0);

end.


(2)

program tabung;

uses wincrt;

const

 pi=22/7;

var

radius,tinggi:integer;

luas,volum:real;

begin

writeln('~ OPERASI HITUNG TABUNG ~');

writeln;

write('masukkan radius : ');readln (radius);

write('masukkan tinggi : ');readln (tinggi);

luas:=2*pi*radius*(radius+tinggi);

volum:=pi*radius*radius*tinggi;

writeln;

writeln('luas tabung adalah = ',luas:0:0);

writeln('volume tabung adalah = ',volum:0:0);

end.


(3)

program kerucut;

uses wincrt;

const

 pi=22/7;

var

radius,tinggi:integer;

luas,volum:real;

begin

writeln('~ OPERASI HITUNG KERUCUT ~');

writeln;

writeln('masukkan radius = ');readln (radius);

writeln('masukkan tinggi = ');readln (tinggi);

volum:=1/3*pi*radius*radius*tinggi;

writeln;

writeln('volume kerucut adalah = ',volum:0:0);

end.


(4)

program bola;

uses wincrt;

const

 pi=22/7;

var

radius:integer;

luas,volum:real;

begin

writeln('~ OPERASI HITUNG BOLA ~');

writeln;

write('masukkan radius :');readln (radius);

luas:=4*pi*radius*radius;

volum:=4/3*pi*radius*radius*radius;

writeln;

writeln('luas bola adalah = ',luas:0:0);

writeln('volume bola adalah = ',volum:0:0);

end.


ini cuma share aja gan, ane masih nubi di pascal
rate 5 ya gan!
semoga bermanfaat.. (^_^)

CMIIW

(Correct Me If I Wrong)

kalo mau tanya" komeng di sini aja gan!

thx..