program luas_permukaan_bola;

uses

wincrt;

var

r,luas:real;

begin

write(‘PROGRAM BOLA’);writeln;

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

luas:=4*22/7*r*r;

writeln(‘jadi luas tabung adalah’,luas:0:2);

end.

Tugas 2

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

program pilihCaseof;

uses wincrt;

var
pilih,lagi,kembali:char;
r:integer;
luas:real;

pass:string;

begin
writeln(‘masukan prodi:’);readln(pass);
if pass=’matematika’ then

begin
lagi:=’y’;
while lagi=’y’ do
begin
clrscr;
begin
writeln(‘PROGRAM BANGUN BOLA’);
Writeln(‘Pilih Penjelasan yang Anda inginkan’);
writeln(‘[1] Pengertian Bangun Bola]’);
writeln(‘[2] Unsur-unsur Bola]’);
writeln(‘[3] Luas Permukaan Bola]’);
writeln(‘pilih no :’);readln(pilih);
case pilih of
‘1’:
begin
clrscr;
writeln(‘BOLA adalah bangun ruang yang dibatasi oleh sebuah sisi lengkung atau kulit bola’);
end;
‘2’:
begin
clrscr;
writeln(‘memiliki satu sisi’);
end;
‘3’:begin
clrscr;
repeat
writeln(‘LUAS PERMUKAAN BOLA’);
writeln(‘——————-‘);
write(‘masukan r= ‘);readln(r);
luas:=4*22/7*r*r;
writeln(‘maka luas bangun bola tersebut adalah= ‘,luas:6:2);
writeln(‘————————————————-‘);
until kembali=’T’ ;
end;
else
clrscr;
writeln(‘LIHAT DAN BACALAH DENGAN TELITI..!!!’);
end;
writeln(‘kembali ke menu?(y/t)’);readln(lagi);

end;
end;
end;
end.

TUGAS 3
=====================================================
program menuOke_luas_permukaan_bola;
uses wincrt;
var tanya,pilih:char;
var sandi:string;

procedure luas_permukaan_bola;
var r,volumebola,jarijari,angka,hasil:real;
const phi : real=3.14;

begin
clrscr;
writeln(‘luas permukaan bola’);
writeln(‘+++++++++++++++++++++’);
write(‘masukkan jarijari: ‘);readln(r);
write(‘masukkan phi: ‘);readln(phi);
volumebola:=4*phi*r*r*r;
writeln(‘Sehingga,’);
writeln(‘luas permukaan bola: ‘,volumebola:6:2);
end;

procedure luas_permukaan_setengah_bola;
var r,luaspermukaansetengahbola,jarijari,angka,hasil:real;
const phi : real=3.14;

begin
clrscr;
writeln(‘luas permukaan setengah bola’);
writeln(‘^^^^^^^^^^^^^^^^^^^^^^^^^^^^’);
write(‘masukkan jarijari: ‘);readln(r);
write(‘masukkan phi: ‘);readln(phi);
luaspermukaansetengahbola:=2*phi*r*r*r;
writeln(‘Sehingga,’);
writeln(‘luas permukaan setengah bola: ‘,luaspermukaansetengahbola:6:2);
writeln;
end;

begin

clrscr;
writeln(‘WELCOME TO MY PROGRAM’);
writeln(‘Hai kawan, perkenalkan saya Lisda Hairani’);
writeln(‘Nim: 2225092810’);
writeln(‘Fakultas Keguruan dan Ilmu Pendidikan ‘);
writeln(‘lisdahairani@gmail.com’);
writeln(‘lisdahairani.wordpress.com’);
writeln(‘Untuk menggunakan program ini, gunakan kata sandi,yaitu: delicha’);
writeln(‘^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^’);

begin
write(‘Masukkan sandi. . .’);readln(sandi);
if sandi=’delicha’then write (‘Anda boleh masuk’)
else
write(‘Sorry, you can not use this program. Please, read again…………..!!!’);
readln;

end;

begin
repeat
clrscr;
writeln(‘+++++++++++++++++++++++++++++++’);
writeln(‘===============================’);
writeln(‘PROGRAM BOLA ‘);
writeln(‘===============================’);
writeln(‘+++++++++++++++++++++++++++++++’);
writeln(‘1.menghitung luas bola’);
writeln(‘2.menghitung luas permukaan setengah bola’);
writeln(‘=========================================’);
write(‘masukkan pilihan anda:….’);
readln(pilih);
clrscr;
case pilih of
‘1’:luas_permukaan_bola;
‘2’:luas_permukaan_setengah_bola;
else
writeln(‘pilih sesuai menu…..!!!’);
writeln;
end;
write(‘Anda Masih Mau Lanjut [TEKAN y/t]:…’);readln(tanya);
until (tanya=’t’) or (tanya=’T’);
clrscr;
writeln(‘TERIMA KASIH ANDA TELAH MENGUNJUNGI PROGRAM INI ‘);
writeln(‘……………….Good Bye………………..’);
writeln(‘cHayooooooo….!!!’);
end;

end.

 

TUGAS 4

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

program LUAS_BOLA;

uses wincrt;
procedure garis;

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

const phi : real=3.14;
var r,luasbola: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 : lisdahairani@gmail.com’);
writeln(‘blog   : http://lisdahairani.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   : LISDA HAIRANI’);
writeln(‘NIM    : 2225092810’);
writeln(‘KELAS  : 3D ‘);
writeln;
writeln(‘==============================================’);
writeln(‘PROGRAM LUAS PERMUKAAN BOLA’);
writeln(‘==============================================’);
writeln(‘[1] LUAS PERMUKAAN 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(‘LUAS BOLA’);

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

write(‘masukkan JARI-JARI bola:.. ‘);readln(r);
luasBola:=4*phi*r*r;

writeln(‘Sehingga,’);

writeln(‘Luas Permukaan BOLA: ‘,luasbola:0:2);
writeln;
end;
end;

‘2’:begin
clrscr;
writeln(‘LUAS BOLA’);

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

write(‘masukkan Jari-jari Bola:.. ‘);readln(r );

writeln(‘Sehingga,’);

writeln(‘Luas Bola:.. ‘,luasbola:0:2);

writeln;

end;

‘3’:lainnya;
‘4’:selesai;
‘5’: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 : lisdahairani@gmail.com’);
writeln(‘blog   : http://lisdahairani.wordpress.com&#8217;);
end;
end;
end;

end.