TP 9 ALPRO : About Procedure in Turbo Pascal 7.0

Tugas Pendahuluan 9.

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.

1.      Jelaskan apa yang dimaksud dengan procedure, variabel global,variabel local, dan variabel gabungan  pada procedure dan berikan contohnya!

2.      Buat program untuk menghitung luas dan keliling lingkaran menggunakan procedur. Procedur yang harus ada minimal procedur input, procedur hitung luas, procedur hitung keliling, procedur tampilan (untuk menampilkan semua data yang diinput dan dihitung).

PENYELESAIAN.

1.      Pengertian.

Ø  Procedure merupakan sub-program yang memiliki bagian deklarasi dan begin-end; tersendiri layaknya suatu program pascal. Procedure bertujuan untuk memecah program menjadi kesatuan logika yang lebih kecil (sub-sub program) untuk menghindari perulangan pengetikan dan memudahkan pembacaan.

Ø  Variabel local merupakan variabel yang dideklarasikan dan digunakan pada sub-sub program utama saja atau dimana variabel tersebut dideklarasikan.

Ø  Variabel global merupakan variabel yang pemakaiannya pada keseluruhan program.

Ø  Variabel gabungan merupakan variabel yang digunakan baik pada sub-sub program utama maupun pada keseluruhan program.

Contoh.

Ø  Procedure menggunakan variabel local.

uses crt;

procedure volume;

var V,u,c,i : real;

begin

textbackground(1);

textcolor(14);

clrscr;

writeln('RUMUS VOLUME BALOK');

writeln;

writeln('Rumus : V = PxLxT');

writeln;

write('Masukkan tinggi balok  = ');readln(u);

write('Masukkan panjang balok = ');readln(c);

write('Masukkan lebar balok   = ');readln(i);

writeln;

V:=u*c*i;

writeln('Jadi, volume balok adalah = ',V:0:2);

writeln;

writeln('TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI .^^');

readln;

end;

procedure kabisat;

var I, T   : integer;

begin

textbackground(red);

textcolor(lightgreen);

clrscr;

writeln('****** PROGRAM MENENTUKAN TAHUN KABISAT ******');

writeln('______________________________________________');

writeln;

write('Masukkan Tahun yang anda inginkan = ');readln(T);

I:= T mod 4;

writeln;

writeln;

textcolor(15);

if (I=0) then write('Tahun yang anda masukkan adalah tahun kabisat!') else

if (I<>0) then write('Tahun yang anda masukkan bukan tahun kabisat!');

readln;

end;

begin

volume;

clrscr;

kabisat;

end.

Tampilan hasil RUN.

Ø  Procedure menggunakan variabel global.

uses crt;

var S,U,C : integer;

procedure ulang;

begin

TEXTBACKGROUND(1);

TEXTCOLOR(14);

clrscr;

writeln('PROGRAM PERULANGAN MENYUSUT');

WRITELN;

WRITELN;

write('Masukkan banyak perulangan = ');readln(U);

writeln;

for S:=1 to U do

 begin

 for C:=S to U do

     begin

     write(C,' ':4);

     end;

  readln;

 end;

writeln;

Writeln('TERIMA KASH .^^');

readln;

end;

begin

ulang;

end.

Tampilan hasil RUN.

Ø  Procedure menggunakan variabel gabungan.

uses crt;

var T : longint;

procedure tahun;

var S,U,C,I,V,A : longint;

begin

textbackground(5);

textcolor(14);

clrscr;

writeln(' PERHITUNGAN ABAD,DASAWARSA,WINDU,TAHUN');

writeln;

write('Masukkan tahun yang Anda inginkan = ');readln(T);

 S:=T DIV 100;

 U:=T MOD 100;

 C:=U DIV 10;

 I:=U MOD 10;

 V:=I DIV 8;

 A:=I MOD 8;

writeln;

write('Jadi ',T,' tahun adalah ');

 if S>0 then write(S,' Abad ');

 if C>0 then write(C,' Dasawarsa ');

 if V>0 then write(V,' Windu ');

 if A>0 then write(A,' Tahun ');

writeln;

writeln;

writeln;

writeln('               TERIMA KASIH .^^');

readln;

end;

procedure kabisat;

var I       : integer;

begin

textbackground(red);

textcolor(lightgreen);

clrscr;

writeln('****** PROGRAM MENENTUKAN TAHUN KABISAT ******');

writeln('______________________________________________');

writeln;

write('Masukkan Tahun yang anda inginkan = ');readln(T);

I:= T mod 4;

writeln;

writeln;

textcolor(15);

if (I=0) then write('Tahun yang anda masukkan adalah tahun kabisat!') else

if (I<>0) then write('Tahun yang anda masukkan bukan tahun kabisat!');

readln;

end;

begin

tahun;

clrscr;

kabisat;

end.

Tampilan hasil RUN.

2.      Procedure hitung luas dan keliling lingkaran.

uses crt;

const pi=3.14;

var   R : real;

procedure mulai;

   begin

   textbackground(1);

   textcolor(15);

   clrscr;

   writeln('PROGRAM MENGHITUNG LUAS DAN KELILING LINGKARAN');

   writeln;

   writeln;

   end;

procedure inputnilai;

   begin

   write('Masukkan jari-jari lingkaran = ');readln(R);

   end;

procedure hitungluas;

   var L : real;

   begin

   L:=pi*sqr(R);

   writeln;

   writeln('Luas lingkaran     = ',L:0:2);

   end;

procedure hitungkeliling;

   var K : real;

   begin

   K:=2*pi*R;

   writeln;

   writeln('Keliling Lingkaran = ',K:0:2);

   end;

procedure display;

   begin

   mulai;

   inputnilai;

   hitungluas;

   hitungkeliling;

   writeln;

   writeln('TERIMA KASIH .^^');

   readln;

   end;

begin

display;

end.

Berikut tampilannya setelah di-RUN.