PRAKTIKUM SISTEM OPERASI

PRAKTIKUM SISTEM OPERASI
NAMA: MERINA VELLA SISCHA
NRP:060411100832
KELAS:E

TUGAS PENDAHULUAN MODUL V
1. Apa perbedaan antara fungsi dan prosedur pada bahasa Pascal?
JAWAB:
1.Prosedur adalah suatu program terpisah dalam blok sendiri yang berfungsi sebagai sub program, diletakkan di atas bagian pernyataan dan diawali dengan kata procedure
Bentuk Umum: procedure nama_procedure(parameter);

Paramater dalam procedure:
1.Parameter Lokal
Parameter/variabel yang hanya bisa dibaca di sub program saja, tidak bisa digunakan pada bagian pernyataan sehingga program akan mengalami error
Contoh:
uses crt;
procedure kali;
var a,b:byte;
begin
write('Nilai A : ');readln(a);
b:=a*a;
end;

begin
clrscr;
kali;
writeln('Nilai B: ',b);
readln;
end.

2. Parameter Global
Parameter bisa digunakan pada prosedur dan bagian pernyataan
Contoh program:
uses crt;
var a,b:byte;
procedure kali;
begin
write('Nilai A : ');readln(a);
b:=a*a;
end;

begin
clrscr;
kali;
writeln('Nilai B: ',b);
readln;
end.


Fungsi / function dalam Turbo Pascal adalah mengelompokkan beberapa instruksi tertentu dalam 1 instruksi yang sering disebut sub-rutin / function. Berguna untuk melakukan penghematan pada jumlah kode program dan praktis dalam melakukan proses perhitungan yang hasilnya ingin digunakan berkali-kali.

Contoh kasus:
Ada berapa bilangan yang habis dibagi 3 (sisa = 0) dalam deret bilangan 1 s/d 20 ?

Jawaban kasus:
Maka fungsi untuk mengecek apakah suatu bilangan habis dibagi 3 dibuat terlebih dahulu. Baru kemudian membuat kode program yang memakai fungsi itu berulang-ulang.

Contoh program kasus:

function CekHabisDibagiTiga(Bilangan: Integer): Boolean;
begin
if (Bilangan mod 3) = 0 then
Result := True
else
Result := 0;

// atau
// Result := (Bilangan mod 3 = 0)
end;

var X : Integer;
Counter : Integer;
begin

Counter := 0;
for X := 1 to 20 do
if CekHabisDibagiTiga(X) = True then
Counter := Counter + 1;
Writeln('Jumlah Bilangan Yang Habis dibagi 3 antara 1 s/d 20 adalah', Counter);

end.