Tugas 1

program luas_dan_volume_limas;

uses

wincrt;

var

s,t,vol,luas:real;

begin

write(‘PROGRAM limas’);writeln;

write(‘masukkan sisi alas limas’);readln(s);

writeln(‘masukkan tinggi limas’);readln(t);

luas:=s*s+1/2*s*t;

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

write(‘masukkan tinggi limas:’);readln(t);

vol:=1/3*s*s*t;

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

end.

Tugas 2

program pilihcaseOf;

uses wincrt;

var pilih,tekan:char;

var s1,t1,s2,t2,luasAlas1,luasAlas2,luasSelimutSegitiga,luasLimas,volumeLimas,angka:real;

begin

repeat

clrscr;

writeln(‘PROGRAM LUAS PERMUKAAN DAN VOLUME LIMAS’);

writeln(‘Pilih sifat-sifat yang dimiliki PRISMA [1=alas] [2=selimut]’); readln(pilih);

writeln;

case pilih of

‘1’:writeln(‘Limas memiliki alas berupa segiempat ‘);

‘2’:writeln(‘Limas memiliki selimut berupa segitiga yang jumlahnya ada empat buah’);

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 limas adalah:’);

angka:=1;

while (angka)<6 do

begin

angka:=(angka)+1;

writeln(‘Volume = 1/3*luasAlas2*t2 ‘);

end;

begin

clrscr;

writeln;

writeln;

writeln(‘Ingat!!!!!!! Rumus luas permukaan Limas adalah:’);

angka:=1;

while (angka)<6 do

begin

angka:=(angka)+1;

writeln(‘luas Permukaan Limas= luas alas1+luas selimut segitiga’);

end;

if (pilih=’1′)then

begin

write(‘masukkan alas: ‘);readln(s1);

write(‘masukkan tinggi: ‘);readln(t1);

luasAlas1:=sqr(s1);

luasSelimutSegitiga:=1/2*s1*t1*4;

luasLimas:=luasAlas1+luasSelimutSegitiga;

writeln(‘Luas Alas: ‘,luasAlas1:0:2);

writeln(‘Luas Selimut Segitiga: ‘,luasSelimutSegitiga:0:2);

writeln(‘Sehingga,’);

writeln(‘Luas Limas: ‘,luasLimas:0:2);

writeln;

end;

if (pilih=’2’)then

begin

write(‘masukkan alas: ‘);readln(s2);

write(‘masukkan tinggi: ‘);readln(t2);

luasAlas2:=sqr(s2);

volumeLimas:=1/3*luasAlas2*t2;

writeln(‘Luas Alas: ‘,luasAlas2:0:2);

writeln(‘Sehingga,’);

writeln(‘Volume Limas: ‘,volumeLimas:0:2);

writeln;

end;

end;

end;

end.

Tugas 3

program menuOke_Luas_dan_Volume_Limas;

uses wincrt;

var tanya,pilih:char;

procedure luasLimas;

var s,t,luasAlas,luasSelimutSegitiga,luasLimas:real;

begin

clrscr;

writeln(‘LUAS LIMAS’);

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

write(‘masukkan alas: ‘);readln(s);

write(‘masukkan tinggi: ‘);readln(t);

luasAlas:=sqr(s);

luasSelimutSegitiga:=1/2*s*t*4;

luasLimas:=luasAlas+luasSelimutSegitiga;

writeln(‘Luas Alas: ‘,luasAlas:0:2);

writeln(‘Luas Selimut Segitiga: ‘,luasSelimutSegitiga:0:2);

writeln(‘Sehingga,’);

writeln(‘Luas Limas: ‘,luasLimas:0:2);

writeln;

end;

procedure volumeLimas;

var s,t,luasAlas,volumeLimas:real;

begin

clrscr;

writeln(‘VOLUME LIMAS’);

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

write(‘masukkan alas: ‘);readln(s);

write(‘masukkan tinggi: ‘);readln(t);

luasAlas:=sqr(s);

volumeLimas:=1/3*luasAlas*t;

writeln(‘Luas Alas: ‘,luasAlas:0:2);

writeln(‘Sehingga,’);

writeln(‘Volume Limas: ‘,volumeLimas:0:2);

writeln;

end;

begin

repeat

clrscr;

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

writeln(‘Program Limas ‘);

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

writeln(‘1.menghitung luas permukaan limas’);

writeln(‘2.menghitung volume limas’);

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

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

readln(pilih);

case pilih of

‘1’:luasLimas;

‘2’:volumeLimas;

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(‘angleonthesky.17@gmail.com’);writeln(‘SEE YOU…..’);

end.

 

TUGAS 4

program Limas;

uses wincrt;
procedure garis;

begin
writeln(‘————————————————‘);
end;

var s,t,a,luasAlas,luasSelimutSegitiga,luasLimas:real;
var sisi,tinggi,luasAlass,volumelimas:real;
var lagi,lagi2,pilih,pilih2:char;
var n,i,tot,data,angka:integer;
var faktorial:longint;
var rata:real;
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] BILANGAN BERPANGKAT’);
writeln(‘[2] BILANGAN FAKTORIAL’);
writeln(‘[3] MENGHITUNG RATA-RATA’);
writeln(‘[4] PROGRAM ARRAY’);
garis;
write(‘pilih no: ‘);readln(pilih2);
case pilih2 of

‘1’: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;

‘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(‘MENGHITUNG RATA-RATA’);
garis;
write(‘masukan banyaknya data bilangan: ‘);readln(n);
writeln;
tot:=0;
for i:= 1 to n do

begin

write(‘bilangan ke-‘,i,’ = ‘);readln(data);
tot:=tot+data;
end;
rata:=tot/n;
writeln;
writeln(‘jumlah data bilangan = ‘,tot);
writeln(‘maka rata-rata dari data tersebut adalah ‘,rata:0:2);
garis;
end;

‘4’: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;
else
clrscr;
writeln(‘########## SALAH ##########’);
garis;
end;
write(‘ingin lagi?(y/t): ‘);readln(lagi2);
lagi2:=upcase(lagi2);
writeln;
until lagi2=’T’;
end;

procedure selesai;
begin
clrscr;
writeln(‘TERIMA KASIH BANYAK ANDA TELAH MENGGUNAKAN PROGRAM INI’);
writeln(‘e-mail : angelonthesky.17.com’);

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

begin
clrscr;

begin
writeln(‘       ===============WELCOME===============’);
writeln;
writeln(‘NAMA   : ERWIN YUNIYANTO’);
writeln(‘NIM    : 2225092498’);
writeln;
writeln(‘==============================================’);
writeln(‘PROGRAM VOLUME DAN LUAS PERMUKAAN LIMAS’);
writeln(‘==============================================’);
writeln(‘[1] LUAS PERMUKAAN LIMAS’);
Writeln(‘[2] VOLUME LIMAS’);
Writeln(‘[3] LAINNYA’);
writeln(‘[4] SELESAI’);
writeln(‘==============================================’);
writeln(‘[5] KELUAR’);
writeln(‘==============================================’);
writeln;
writeln(‘Pilih Materi Nomor:….’); readln(pilih);

case pilih of
‘1’: begin
clrscr;

begin
clrscr;
writeln(‘LUAS LIMAS’);

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

write(‘masukkan sisi SEGIEMPAT:.. ‘);readln(s);
writeln;
write(‘masukkan tinggi :.. ‘);readln(t);
writeln;
writeln;
luasAlas:=s*s;
luasSelimutSegitiga:=1/2*s*t;

luasLimas:=luasAlas+luasSelimutSegitiga;

writeln(‘Luas Alas: ‘,luasAlas:0:2);

writeln(‘Luas Selimut SEGITIGA: ‘,luasSelimutSegitiga:0:2);

writeln(‘Sehingga,’);

writeln(‘Luas Permukaan LIMAS: ‘,luasLimas:0:2);
writeln;
end;
end;

‘2’:begin
clrscr;
writeln(‘VOLUME LIMAS’);

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

write(‘masukkan sisi:.. ‘);readln(s);
writeln;
write(‘masukkan tinggi:.. ‘);readln(t);
writeln;

luasAlas:=s*s;

volumeLimas:=1/3*luasAlas*t;

writeln(‘Luas ALAS: ‘,luasAlas:0:2);

writeln(‘Sehingga,’);

writeln(‘Volume LIMAS:.. ‘,volumeLimas: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 BANYAK ANDA TELAH MENGGUNAKAN PROGRAM INI ‘);
writeln(‘e-mail : angleonthesky.17@gmail.com’);
end;
end;
end;

end.