program luas_dan_volume_kubus;

uses

wincrt;

var

luas,vol,s:integer;

begin

writeln(‘masukkan sisi kubus’);

readln(s);

luas:=s*s;

writeln(‘jadi luas kubus adalah’,luas,’satuan persegi’);

writeln(‘masukan sisi kubus’);

readln(s);

vol:=s*s*s;

writeln(‘volume kubus tersebut adalah’,vol,’satuan kubik’);

end.

 

tugas 2

program pilihCaseof;

 

uses wincrt;

 

var pilih:char;

var kubus:string;

var angka:integer;

var sisi:integer;

var bidang:integer;

begin

clrscr;

writeln(‘PROGRAM LUAS DAN VOLUME kubus’);

Writeln(‘Pilih sifat-sifat yang dimiliki kubus [1=sisi] [3=diagonal ruang] [9=bidang]’); readln(pilih);

writeln;

case pilih of

‘1’:writeln(‘kubus memiliki panjang sisi yang sama’);

‘3’:writeln(‘kubus memiliki nilai diagonal ruang akar 3’);

‘9’:writeln(‘kubus memiliki 6 bidang’);

else

write(‘Segera periksakan mata Anda..’)

 

end;

 

 

begin

 

writeln;

writeln;

writeln(‘INGAT!! Rumus volume kubus adalah:’);

angka:=1;

while (angka)<9 do

 

begin

angka:=(angka)+1;

writeln(‘Volume=s*s*s’);

end;

 

 

 

begin

 

writeln;

writeln;

writeln(‘INGAT!! Rumus luas kubus adalah:’);

angka:=1;

while (angka)<9 do

 

begin

angka:=(angka)+1;

writeln(‘Luas kubus=s*s’);

end;

 

begin

 

writeln;

writeln;

writeln(‘Masukkan jumlah bidang kubus:’);

read(bidang_kubus);

bidang_kubus:=6;

if bidang_kubus:=3 then writeln(‘Benar, Bangun kubus!!’);

else write(‘Bukan kubus’);

 

end;

 

end

 

end

 

end

 

end.