CONTOH PROGRAM TURBO PASCAL LUAS TRAPESIUM & VOLUME BOLA

Menentukan Luas Trapesium
Program Luas_Trapesium;
Uses crt;
Var
sisi_a,sisi_b,tinggi,luas:real;
Begin
clrscr;
write (‘masukkan sisi a:’);
readln (sisi_a);
write(‘masukkan sisi b:’);
readln(sisi_b);
write (‘masukkan tinggi:’);
readln(tinggi);
Luas:=(sisi_a+sisi_b)/2*tinggi;
writeln(‘Luas Trapesium adalah:’,Luas:8:2);
readln;
end.
Menentukan Volume Bola
Program Volume_Bola;
Uses crt;
Var
jari_jari,volume:real;
Begin
clrscr;
write (‘masukkan jari-jari:’);
readln (jari_jari);
volume:=jari_jari*jari_jari*4/3*pi;
writeln(‘Volume Bola adalah:’,volume:8:2);
readln;
end.
Semoga bermanfaat, selamat mencoba..

Free Template Blogger collection template Hot Deals SEO