Tugas Praktikum Pertama "Pengenalan Pascal"

program menghitung volume dan luas bola, kerucut, prisma segi empat, dan tabung pada PASCAL

Program volume_dan_luas_bola;
Uses crt;
Var
V:real;
L:real;
Pi:real;
r: integer;
begin
clrscr;
writeln(‘ menghitung volume dan luas bola’);
write(‘masukkan jari – jari:,);readln(r);
pi:=3.14;
V:=4/3*(pi*r*r*r);
L:=4*pi*r*r;
Writeln(‘volume bola adalah:’, V:0:3);
Writln (‘luas alasnya adalah:’, L:0:3);
Readln;
End.

Ctrl + F9
Menghitung volume dan luas bola
Input jari-jari:
Volume bola adalah :
Luas alasnya adalah:

Program volume_dan_luas_kerucut;
Uses crt;
Var
V,L,pi:real;
r: integer;
t:integer;
begin
clrscr;
writeln(‘ menghitung volume dan luas bola’);
write(‘masukkan tinggi:,);readln(t);
write(‘masukkan jari – jari:,);readln(r);
pi:=3.14;
V:=1/3*pi*r*r*t;
L:=4*pi*r*r;
Writeln(‘volume kerucut adalah:’, V:0:3);
Writln (‘luas alasnya adalah:’, L:0:3);
Readln;
End.

Ctrl + F9
Menghitung volume dan luas kerucut
Input tinggi:
Input jari-jari:
Volume kerucut adalah :
Luas alasnya adalah:
Program volume_dan_luas_tabung;
Uses crt;
Var
V,L,pi:real;
r: integer;
t:integer;
begin
clrscr;
writeln(‘ menghitung volume dan luas tabung’);
write(‘masukkan tinggi:,);readln(t);
write(‘masukkan jari – jari:,);readln(r);
pi:=3.14;
V:=2*pi*r;
L:=2*pi*r*(r+t);
Writeln(‘volume kerucut adalah:’, V:0:3);
Writln (‘luas alasnya adalah:’, L:0:3);
Readln;
End.

Ctrl + F9
Menghitung volume dan luas tabung
Input tinggi:
Input jari-jari:
Volume tabung adalah :
Luas alasnya adalah:
Program volume_dan_luas_tabung;
Uses crt;
Var
V,Luas:real;
P,L,t: integer;
begin
clrscr;
writeln(‘ menghitung volume dan luas prisma segi empat’);
write(‘masukkan panjang:,);readln(P);
write(‘masukkan lebar:,);readln(L);
write(‘masukkan tinggi:,);readln(t);
V:=1/3*(P*L*t);
Luas:=(P*L)+2*(1/2*P*t)+2*(1/2*L*t);
Writeln(‘volume prisma segi empat adalah:’, V:0:3);
Writln (‘luas alasnya adalah:’, Luas:0:3);
Readln;
End.

Ctrl + F9
Menghitung volume dan luas prisma segi empat
Input panjang:
Input lebar:
Input tinggi:
Volume prisma segi empat adalah :
Luas alasnya adalah: