#Tugas 1#

program prisma;
uses wincrt;
var tinggi_prisma,alas_segitiga,tinggi_segitiga:real;
var luas_alas,luas_bidang_sisi_tegak:real;
var luas_permukaan,volume_prisma,luas_segitiga:real;
var nama,pilih:string;

begin

clrscr;
writeln(‘Selamat Datang!!’);
writeln(‘Ini adalah program penghitungan prisma segitiga’);
writeln(‘Masukkan nama Anda:’);read(nama);
write;
write(‘Apakah Anda siap??’);readln(pilih);

if pilih=’ya’ then
begin
write(‘ silahkan mulai’);

end

else

begin

writeln(‘Siapkan diri Anda’);

end;
writeln;
writeln(‘Tekan tombol apa saja untuk mulai!!’);
readkey;
writeln;
writeln;
write(‘Masukkan tinggi limas:’); readln(tinggi_prisma);
writeln;
write(‘Masukkan panjang alas segitiga:’); readln(alas_segitiga);
writeln;
Write(‘Masukan tinggi segitiga:’); readln(tinggi_segitiga);
writeln;
luas_alas:=tinggi_segitiga*alas_segitiga*0.5;
volume_prisma:=luas_alas*tinggi_prisma;
luas_bidang_sisi_tegak:=3*tinggi_prisma*alas_segitiga;
luas_segitiga:=2*alas_segitiga*tinggi_segitiga*0.5;
luas_permukaan:=2*luas_alas+3*luas_bidang_sisi_tegak;
writeln;
writeln(‘Mencari luas permukaan dan volume prisma’);
writeln(‘_ _ _ _ _ _ _ _ _ _ _…P L E A S E    W A I T…_ _ _ _ _ _ _ _ _ _ _’);
readkey;
writeln(‘Luas permukaan limas segiempat=’,luas_permukaan,luas_permukaan:3:4);
writeln(‘volume limas=’,volume_prisma,volume_prisma:3:4);

end.

#Tugas 2#

program pilihCaseof;

uses wincrt;

var pilih,tekan:char;
var prisma:string;
var angka:integer;
var sisi_segiempat,sisi_segitiga,rusuk:integer;

begin
repeat
clrscr;
writeln(‘PROGRAM LUAS PERMUKAAN DAN VOLUME PRISMA’);
Writeln(‘Pilih sifat-sifat yang dimiliki PRISMA [1=alas] [2=rusuk] [3=sisi]’); readln(pilih);
writeln;
case pilih of
‘1’:writeln(‘Prisma memiliki alas yang berupa segitiga atau segi empat’);
‘2’:writeln(‘Prisma memiliki 9 rusuk’);
‘3’:writeln(‘Prisma memiliki 5 buah sisi yang terdiri dari 3 buah sisi segi empat dan 2 sisi segitiga’);
else
writeln(‘Segera periksakan mata Anda..’)

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

begin
clrscr;
writeln;
writeln;
writeln(‘INGAT!! Rumus volume Prisma adalah:’);
angka:=1;
while (angka)<6 do

begin
angka:=(angka)+1;
writeln(‘Volume = Luas Alas * Tinggi Prisma’);
end;

begin
clrscr;
writeln;
writeln;
writeln(‘INGAT!! Rumus luas permukaan Prisma adalah:’);
angka:=1;
while (angka)<6 do

begin
angka:=(angka)+1;
writeln(‘Luas permukaan = (2 * Luas Alas) * (3 * Luas Bidang Sisi Tegak)’);
end;

begin
clrscr;
writeln;
writeln;
writeln(‘Masukkan jumlah sisi segiempat:’);
read(sisi_segiempat);
Writeln(‘Masukkan jumlah sisi segitiga:’);
read(sisi_segitiga);
writeln(‘Masukkan jumlah rusuk:’);
read(rusuk);
sisi_segiempat:=3;
sisi_segitiga:=2;
rusuk:=9;
if (sisi_segiempat=3) and (sisi_segitiga=2) and (rusuk=9) then

begin

writeln(‘Benar, Bangun Prisma!!’);
end

else

begin

write(‘Bukan Prisma’);

end;

end

end

end

end.

——————————————————————————————————————————————

Tugas 3: Procedure

program menuOke_Luas_Permukaan_dan_Volume_Prisma;

uses wincrt;

var tanya,pilih:char;

procedure luasPrisma;

var a,t,p,l,luasAlas,luasSelimutPersegi,luasPrisma:real;

begin

clrscr;

writeln(‘LUAS PRISMA’);

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

write(‘masukkan alas SEGITIGA:.. ‘);readln(a);

writeln;

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

writeln;

write(‘Masukkan Panjang PERSEGI:..’); readln(p);

writeln;

write(‘Masukkan Lebar PERSEGI:..’) ;readln(l);

writeln;

luasAlas:=0.5*a*t;

luasSelimutPersegi:=p*l*3;

luasPrisma:=2*luasAlas+luasSelimutPersegi;

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

writeln(‘Luas Selimut PERSEGI: ‘,luasSelimutPersegi:0:2);

writeln(‘Sehingga,’);

writeln(‘Luas Permukaan PRISMA: ‘,luasPrisma:0:2);

writeln;

end;

procedure volumePrisma;

var a,t,tinggiP,luasAlas,volumePrisma:real;

begin

clrscr;

writeln(‘VOLUME PRISMA’);

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

write(‘masukkan alas SEGITIGA:.. ‘);readln(a);

writeln;

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

writeln;

write(‘Masukkan Tinggi PRISMA:..’); readln(tinggiP);

writeln;

luasAlas:=0.5*a*t;

volumePrisma:=luasAlas*tinggiP;

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

writeln(‘Sehingga,’);

writeln(‘Volume PRISMA:.. ‘,volumePrisma:0:2);

writeln;

end;

begin

repeat

clrscr;

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

writeln(‘###############  PROGRAM PRISMA  ################ ‘);

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

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

writeln(‘2.menghitung volume PRISMA’);

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

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

readln(pilih);

case pilih of

‘1’:luasPrisma;

‘2’:volumePrisma;

else

writeln(‘$$$$$  ERROR!!! $$$$$’);

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(‘…… ADIOS …..’);

end.

 

TUGAS 4

program Prisma;

uses wincrt;
procedure garis;

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

var a,t,p,l,luasAlas,luasSelimutPersegi,luasPrisma:real;
var alas,tinggi,luasAlass,volumeprisma: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 FAKTORIAL’);
writeln(‘[2] MENGHITUNG RATA-RATA’);
writeln(‘[3] PROGRAM ARRAY’);
writeln(‘[4] BILANGAN BERPANGKAT’);
garis;
write(‘pilih no: ‘);readln(pilih2);
case pilih2 of

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

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

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

‘4’: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 : updull.aziz@yahoo.com’);
writeln(‘blog   : http://updullaziz.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   : ABDUL AZIZ’);
writeln(‘NIM    : 2225092702’);
writeln;
writeln(‘==============================================’);
writeln(‘PROGRAM VOLUME DAN LUAS PERMUKAAN PRISMA’);
writeln(‘==============================================’);
writeln(‘[1] LUAS PERMUKAAN PRISMA’);
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 PRISMA’);

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

write(‘masukkan alas SEGITIGA:.. ‘);readln(a);
writeln;
write(‘masukkan tinggi SEGITIGA:.. ‘);readln(t);
writeln;
write(‘Masukkan Panjang PERSEGI:..’); readln(p);
writeln;
write(‘Masukkan Lebar PERSEGI:..’) ;readln(l);
writeln;
luasAlas:=0.5*a*t;

luasSelimutPersegi:=p*l*3;

luasPrisma:=2*luasAlas+luasSelimutPersegi;

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

writeln(‘Luas Selimut PERSEGI: ‘,luasSelimutPersegi:0:2);

writeln(‘Sehingga,’);

writeln(‘Luas Permukaan PRISMA: ‘,luasPrisma:0:2);
writeln;
end;
end;

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

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

write(‘masukkan alas SEGITIGA:.. ‘);readln(a);
writeln;
write(‘masukkan tinggi SEGITIGA:.. ‘);readln(t);
writeln;
write(‘Masukkan Tinggi PRISMA:..’); readln(tinggi);
writeln;
luasAlas:=0.5*a*t;

volumePrisma:=luasAlas*tinggi;

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

writeln(‘Sehingga,’);

writeln(‘Volume PRISMA:.. ‘,volumePrisma: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 : updull.aziz@yahoo.com’);
writeln(‘blog   : http://updullaziz.wordpress.com&#8217;);
end;
end;
end;

end.