Scribd
Unggah
2 tayangan4 halaman

Program Uts

Dokumen ini adalah program Pascal yang memungkinkan pengguna untuk menghitung luas atau volume dari berbagai bentuk geometri seperti kubus, balok, bola, dan tabung. Pengguna dapat memilih bentuk dan kemudian memilih untuk menghitung luas atau volume dengan memasukkan nilai yang diperlukan. Program ini menggunakan konstanta phi untuk perhitungan bola dan tabung.

Diunggah oleh

ridwanazhari18
Hak Cipta
© All Rights Reserved
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOCX, PDF, TXT atau baca online di Scribd
2 tayangan4 halaman

Program Uts

Dokumen ini adalah program Pascal yang memungkinkan pengguna untuk menghitung luas atau volume dari berbagai bentuk geometri seperti kubus, balok, bola, dan tabung. Pengguna dapat memilih bentuk dan kemudian memilih untuk menghitung luas atau volume dengan memasukkan nilai yang diperlukan. Program ini menggunakan konstanta phi untuk perhitungan bola dan tabung.

Diunggah oleh

ridwanazhari18
Hak Cipta
© All Rights Reserved
Kami menangani hak cipta konten dengan serius. Jika Anda merasa konten ini milik Anda, ajukan klaim di sini.
Format Tersedia
Unduh sebagai DOCX, PDF, TXT atau baca online di Scribd

program uts;

uses
crt;

const
phi = 3.14;

var
P1, P2: char;
RUSUK, P, L, TB, R, TT: byte;
LUAS, VOL: real;

begin
clrscr;

writeln('SILAHKAN PILIH 1-4');


writeln('------------------------');
writeln;
writeln('1. KUBUS');
writeln('2. BALOK');
writeln('3. BOLA');
writeln('4. TABUNG');
write('PILIHAN 1...4 : '); readln(P1);

if (P1 = '1') then


begin
writeln('SILAHKAN PILIH A/B');
writeln('A. LUAS KUBUS');
writeln('B. VOLUME KUBUS');
write('PILIHAN A/B : '); readln(P2);

if (P2 = 'A') then


begin
writeln;
writeln('LUAS KUBUS');
write('INPUT RUSUK KUBUS : '); readln(RUSUK);
LUAS := 6 * RUSUK * RUSUK;
writeln('LUAS KUBUS = ', LUAS:0:1);
end
else if (P2 = 'B') then
begin
writeln;
writeln('VOLUME KUBUS');
write('INPUT RUSUK KUBUS : '); readln(RUSUK);
VOL := RUSUK * RUSUK * RUSUK;
writeln('VOLUME KUBUS = ', VOL:0:1);
end;
end
else if (P1 = '2') then
begin
writeln('SILAHKAN PILIH A/B');
writeln('A. LUAS BALOK');
writeln('B. VOLUME BALOK');
write('PILIHAN A/B : '); readln(P2);

if (P2 = 'A') then


begin
writeln;
writeln('LUAS BALOK');
write('INPUT PANJANG BALOK : '); readln(P);
write('INPUT LEBAR BALOK : '); readln(L);
write('INPUT TINGGI BALOK : '); readln(TB);
LUAS := 2 * (P * L) + (2 * P * TB) + (2 * L * TB);
writeln('LUAS BALOK = ', LUAS:0:1);
end
else if (P2 = 'B') then
begin
writeln;
writeln('VOLUME BALOK');
write('INPUT PANJANG BALOK : '); readln(P);
write('INPUT LEBAR BALOK : '); readln(L);
write('INPUT TINGGI BALOK : '); readln(TB);
VOL := P * L * TB;
writeln('VOLUME BALOK = ', VOL:0:1);
end;
end
else if (P1 = '3') then
begin
writeln('SILAHKAN PILIH A/B');
writeln('A. LUAS BOLA');
writeln('B. VOLUME BOLA');
write('PILIHAN A/B : '); readln(P2);

if (P2 = 'A') then


begin
writeln;
writeln('LUAS BOLA');
write('INPUT JARI-JARI BOLA : '); readln(R);
LUAS := 4 * phi * R * R;
writeln('LUAS BOLA = ', LUAS:0:1);
end
else if (P2 = 'B') then
begin
writeln;
writeln('VOLUME BOLA');
write('INPUT JARI-JARI BOLA : '); readln(R);
VOL := (4 / 3) * phi * R * R * R;
writeln('VOLUME BOLA = ', VOL:0:1);
end;
end
else if (P1 = '4') then
begin
writeln('SILAHKAN PILIH A/B');
writeln('A. LUAS TABUNG');
writeln('B. VOLUME TABUNG');
write('PILIHAN A/B : '); readln(P2);

if (P2 = 'A') then


begin
writeln;
writeln('LUAS TABUNG');
write('INPUT JARI-JARI TABUNG : '); readln(R);
write('INPUT TINGGI TABUNG : '); readln(TT);
LUAS := 2 * phi * R * (R + TT);
writeln('LUAS TABUNG = ', LUAS:0:1);
end
else if (P2 = 'B') then
begin
writeln;
writeln('VOLUME TABUNG');
write('INPUT JARI-JARI TABUNG : '); readln(R);
write('INPUT TINGGI TABUNG : '); readln(TT);
VOL := phi * R * R * TT;
writeln('VOLUME TABUNG = ', VOL:0:1);
end;
end
else
writeln('Pilihan tidak valid!');

writeln;
write('Tekan Enter untuk keluar...'); readln;
end.

Anda mungkin juga menyukai