TIKET MID ALPRO : Kumpulan Program Menggunakan Turbo Pascal 7.0

Program Tiket MID.

PRAKTIKUM

ALGORITMA DAN PEMROGRAMAN

OLEH

LUH PUTU SUCI VANDASARI

F1A113054

KELAS A

JURUSAN MATEMATIKA

PROGRAM STUDI MATEMATIKA

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS HALU OLEO

2014

 

SOAL.

Buat kumpulan program menggunakan turbo pascal!

PENYELESAIAN.

uses crt;

var

e : integer;

r,l,t,luas,a,b,c,d,k,s,f,g,h : real;

begin

textbackground(1);

textcolor(15);

clrscr;

while e<>5 do

begin

clrscr;

gotoxy(43,7);writeln('|');

gotoxy(43,8);writeln('|');

gotoxy(43,9);writeln('|');

gotoxy(43,10);writeln('|');

gotoxy(43,11);writeln('|');

gotoxy(43,12);writeln('|');

gotoxy(43,13);writeln('|');

gotoxy(43,14);writeln('|');

gotoxy(43,15);writeln('|');

gotoxy(43,16);writeln('|');

gotoxy(43,17);writeln('|');

gotoxy(30,1);write('PROGRAM MENGHITUNG KELILING');

gotoxy(43,2);write('DAN');

gotoxy(35,3);writeln('LUAS BANGUN DATAR');

gotoxy(0,4);writeln('================================================================================');

gotoxy(18,6);writeln('PILIHAN');

writeln;

gotoxy(0,8);writeln('1. Menghitung Keliling dan Luas Lingkaran.');

gotoxy(0,9);writeln('2. menghitung Keliling dan Luas Trapesium.');

gotoxy(0,10);writeln('3. Menghitung Keliling dan Luas Segitiga.');

gotoxy(0,11);writeln('4. Menghitung Keliling dan Luas persegi.');

gotoxy(0,12);writeln('5. Exit/Keluar Dari Program.');

gotoxy(5,14);write('Masukkan pilihan anda : ');read(e);

if e=1 then

begin

textcolor(14);

gotoxy(55,6);write('LINGKARAN');

gotoxy(45,8);write('Masukkan Jari-Jari Lingkaran = ');readln(r);

luas:=pi*sqr(r);

k:=2*pi*r;

gotoxy(45,10);writeln('Keliling Lingkaran = ',k:2:2);

gotoxy(45,12);writeln('Luas Lingkaran     = ',luas:2:2);

textcolor(15);

readln;

end;

if e=2 then

begin

textcolor(14);

gotoxy(55,6);write('TRAPESIUM');

gotoxy(45,7);write('Masukkan sisi panjang trapesium = ');readln(a);

gotoxy(45,8);write('Masukkan sisi pendek trapesium  = ');readln(b);

gotoxy(45,9);write('Masukkan tinggi trapesium       = ');readln(c);

luas:=0.5*(a+b)*c;

f:=sqrt(sqr((a-b)/2)+sqr(c));

k:=a+b+2*f;

gotoxy(45,11);writeln('Keliling Trapesium = ',k:2:2);

gotoxy(45,13);writeln('Luas Trapesium     = ',luas:2:2);

textcolor(15);

readln;

end;

if e=3 then

begin

textcolor(14);

gotoxy(55,6);write('SEGITIGA');

gotoxy(45,7);write('Masukkan panjang sisi alas = ');readln(l);

gotoxy(45,8);write('Masukkan panjang sisi 1    = ');readln(g);

gotoxy(45,9);write('Masukkan panjang sisi 2    = ');readln(h);

gotoxy(45,10);write('Masukkan tinggi segitiga   = ');readln(t);

luas:=0.5*l*t;

k:=l+g+h;

gotoxy(45,12);writeln('Keliling segitiga   = ',k:2:2);

gotoxy(45,14);writeln('Luas segitiga       = ',luas:2:2);

textcolor(15);

readln;

end;

if e=4 then

begin

textcolor(14);

gotoxy(55,6);write('PERSEGI');

gotoxy(45,7);write('Masukkan panjang sisi persegi = ');readln(s);

luas:=sqr(s);

k:=4*s;

gotoxy(45,10);writeln('Keliling persegi  = ',k:2:2);

gotoxy(45,12);writeln('Luas persegi      = ',luas:2:2);

textcolor(15);

readln;

end;

if e>5 then

begin

textcolor(14);

gotoxy(18,20);writeln('MAAF, PILIHAN YANG ANDA MASUKKAN TIDAK TERSEDIA');

gotoxy(18,22);writeln('TEKAN " ENTER " UNTUK MELANJUTKAN PILIHAN ANDA !');

textcolor(15);

readln;

end;

if e<1 then

begin

textcolor(14);

gotoxy(18,20);writeln('MAAF, PILIHAN YANG ANDA MASUKKAN TIDAK TERSEDIA');

gotoxy(18,22);writeln('TEKAN " ENTER " UNTUK MELANJUTKAN PILIHAN ANDA !');

textcolor(15);

readln;

end;

if e=5 then

begin

textcolor(14);

gotoxy(18,22);write('***** TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI*****');

readln;

end;

readln;

end;

end.

Berikut tampilannya sesetalh di-RUN.

1.      Tampilan awal program.

2.   Tampilan program yang dipilih.

3.      Tampilan ketika memilih Exit/keluar dari program.

4.      Tampilan ketika program pilihan yang diinput tidak tersedia.