program volum_bola;

uses

wincrt;

var

r,vol:real;

begin

write(‘PROGRAM BOLA’);writeln;

write(‘masukkan jari-jari bola’);readln(r);

vol:=4/3*22/7*r*r*r;

writeln(‘volume bola tersebut adalah’,vol:0:2);

end.

Tugas 2.

program pilihcaseOf;

uses wincrt;

var pilih,tekan:char;

var r,t,volumebola,jarijari,angka,hasil:real;

const phi : real=3.14;

begin

repeat

clrscr;

writeln(‘PROGRAM VOLUME BOLA’);

writeln(‘Pilih sifat-sifat yang dimiliki BOLA [1=jari-jari] [2=phi]’); readln(pilih);

writeln;

case pilih of

‘1’:writeln(‘bola memiliki jari-jari ‘);

‘2’:writeln(‘bola memiliki phi’);

else

writeln(‘Segera periksa kembali..’);

end;

writeln(‘Anda masih mau lanjut?? [Tekan y/t]:….’);

readln(tekan);

until tekan=’t’;

begin

clrscr;

writeln;

writeln;

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

angka:=1;

while (angka)<6 do

begin

angka:=(angka)+1;

writeln(‘Volume = 4/3*phi*jari-jari*jari-jari*jari-jari ‘);

end;

if (pilih=’1’)then

begin

write(‘masukkan jari-jari: ‘);readln(r);

write(‘masukkan phi=3,14: ‘);

volumebola:=4/3*phi*r*r*r;

writeln(‘Sehingga,’);

writeln(‘volume bola: ‘,volumebola:0:2);

volumebola:=(hasil);

writeln;

end;

end;

end.

Tugas 3

program menuOke_volume_bola;

uses wincrt;

var tanya,pilih:char;

procedure volume_bola;

var r,volumebola,jarijari,angka,hasil:real;

const phi : real=3.14;

begin

clrscr;

writeln(‘volume bola’);

writeln(‘———————-‘);

write(‘masukkan jarijari: ‘);readln(r);

write(‘masukkan phi: ‘);readln(phi);

volumebola:=4/3*phi*r*r*r;

writeln(‘Sehingga,’);

writeln(‘volume bola: ‘,volumebola:0:2);

end;

procedure volume_setengah_bola;

var r,volumesetengahbola,jarijari,angka,hasil:real;

const phi : real=3.14;

begin

clrscr;

writeln(‘volume setengah bola’);

writeln(‘———————-‘);

write(‘masukkan jarijari: ‘);readln(r);

write(‘masukkan phi: ‘);readln(phi);

volumesetengahbola:=2/3*phi*r*r*r;

writeln(‘Sehingga,’);

writeln(‘volume setengah bola: ‘,volumesetengahbola:0:2);

writeln;

end;

begin

repeat

clrscr;

writeln(‘nama :sri rahayu’);

writeln(‘NIM  :2225092516’);

writeln(‘Kelas:3D’);

writeln(‘………………………….’);

writeln(‘——————————-‘);

writeln(‘Program bola ‘);

writeln(‘——————————-‘);

writeln(‘………………………….’);

writeln(‘1.menghitung volume bola’);

writeln(‘2.menghitung volume setengah bola’);

writeln(‘===================’);

write(‘masukkan pilihan anda:….’);

readln(pilih);

case pilih of

‘1’:volume_bola;

‘2’:volume_setengah_bola;

else

writeln(‘pilih sesuai menu…..!!!’);

writeln;

end;

write(‘Anda Masih Mau Lanjut [TEKAN y/t]:…’);readln(tanya);

until tanya=’t’;

clrscr;

writeln(‘TERIMA KASIH ANDA TELAH MEMAKAI PROGRAM INI ‘);

writeln(‘sayounara…..’);

writeln(‘miss u …….’);

end.

 

 

 

 

TUGAS 4

=================================================

program bola;

uses wincrt;
procedure garis;

begin
writeln(‘================================================’);
writeln(‘================================================’);
end;

const phi : real=3.14;
var r,volumebola:real;
var jari_jari:real;
var lagi,lagi2,pilih,pilih2:char;
var n,i,tot,data,angka:integer;
var faktorial:longint;
x:array [1..100] of integer;
function pangkat1(a:integer; n:integer):integer;
var
pangkat:integer;
begin
pangkat:=1;
for i:=1 to n do
pangkat:=pangkat*a;
pangkat1:=pangkat;
end;

procedure lainnya;

begin
repeat
clrscr;
writeln(‘MENU “LAINNYA” ‘);
garis;
writeln(‘[1] PROGRAM ARRAY’);
writeln(‘[2] BILANGAN FAKTORIAL’);
writeln(‘[3] BILANGAN BERPANGKAT’);
garis;
write(‘pilih no: ‘);readln(pilih2);
case pilih2 of

‘1’:begin
clrscr;
writeln(‘PROGRAM ARRAY’);
garis;
writeln;
write(‘masukkan jumlah data: ‘);readln(n);
writeln;
for i:= 1 to n do
readln(x[i]);
writeln;
write(‘data yang telah dimasukkan: ‘);
for i:= 1 to n do
write(x[i],’ ‘);
writeln;
garis;
end;

‘2’:begin
clrscr;
writeln(‘BILANGAN FAKTORIAL’);
garis;
writeln;
write(‘masukkan nilai faktorial: ‘);readln(n);
writeln;
if (n<=0) then
writeln(‘hasil faktorial dari ‘,n,’ = ‘,1)
else

begin

faktorial:=1;
for i := 1 to n do
faktorial:=faktorial*i;
Writeln(‘hasil faktorial dari ‘,n,’ = ‘,faktorial);
garis;
end;
end;

‘3’:begin
clrscr;
writeln(‘BILANGAN BERPANGKAT’);
garis;
writeln;
write(‘masukan angka yang mau dipangkatkan: ‘);readln(angka);
write(‘masukan jumlah pangkat: ‘);readln(n);
writeln;
writeln(‘hasil dari ‘,angka,’ pangkat ‘,n,’ = ‘,pangkat1(angka,n));
writeln;
garis;
end;
else
clrscr;
writeln(‘########## ERROR ##########’);
garis;
end;
write(‘mau lagi?(y/t): ‘);readln(lagi2);
lagi2:=upcase(lagi2);
writeln;
until lagi2=’T’;
end;

procedure selesai;
begin
clrscr;
writeln(‘TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI’);
writeln(‘e-mail : yayu_2612@yahoo.com’);
writeln(‘blog   : http://srirahayu.wordpress.com&#8217;);

garis;
end;
begin
lagi:=’y’;
while (lagi=’y’) or (lagi=’Y’) do
begin
clrscr;

begin
clrscr;
begin
writeln(‘       ________SELAMAT   DATANG_______’);
writeln;
writeln(‘NAMA   : Sri Rahayu’);
writeln(‘NIM    : 2225092516’);
writeln(‘KELAS  : 3D ‘);
writeln;
writeln(‘==============================================’);
writeln(‘PROGRAM VOLUME BOLA’);
writeln(‘==============================================’);
Writeln(‘[1] VOLUME  BOLA’);
Writeln(‘[2] LAINNYA’);
writeln(‘[3] SELESAI’);
writeln(‘==============================================’);
writeln(‘[4] KELUAR’);
writeln(‘==============================================’);
writeln;
writeln(‘Pilih Materi Nomor:….’); readln(pilih);

case pilih of
‘1’: begin
clrscr;

begin
clrscr;
writeln(‘VOLUME BOLA’);

writeln(‘———————-‘);

write(‘masukkan jari_jari bola:.. ‘);readln(r);
writeln;
volumebola:=4/3*phi*r*r*r;

writeln(‘Sehingga,’);

writeln(‘VOLUME BOLA: ‘,volumebola:0:2);
writeln;
end;
end;

‘2’:lainnya;
‘3’:selesai;
‘4’:donewincrt;
else
clrscr;
Writeln(‘Menu tidak tersedia! Silahkan Pilih Menu yang ada’);
garis;
end;

writeln;
writeln(‘KEMBALI KE MENU AWAL??  [Y/T]’); Readln(lagi);
clrscr;
writeln(‘TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI’);
writeln(‘e-mail :yayu_2612@yahoo’);
writeln(‘blog   : http://srirahayu.wordpress.com&#8217;);
end;
end;
end;

end.