KUMPULAN SOAL SUB PROGRAM

1. Buatlah program penjumlahan bilangan 10 dan 30!

Program Fungsi;
uses wincrt;
var x,y:integer;
FUNCTION Tambah (A,B:real):real;
var
Hasil:real;
begin
Hasil:=A+B;
Tambah:=Hasil;
end;
begin
clrscr;
writeln (Tambah(10,30):1);
end.


2. Buatlah program penjumlahan suatu bilangan x dan y !

Program Fungsi;
uses wincrt;
var x,y:integer;
FUNCTION Tambah (A,B:real):real;
var
Hasil:real;
begin
Hasil:=A+B;
Tambah:=Hasil;
end;
begin
write('masukkan nilai x = ');readln (x);
write('masukkan nilai y = ');readln (y);
writeln (Tambah(x,y):1);
end.

3. Buatlah program tukar bilangan !

Program Tukar;
uses wincrt;
FUNCTION Tukar_nilai(a,b,c:integer):integer;
{a,b,c adalah parameter,
parameter = var yg dipanggil ketika pemanggilan fungsi}
var
temp:integer;
{temp adalah var dalam fungsi,bukan parameter}
begin
temp:=A;
A:=C;
C:=temp;

writeln('a:',a);
writeln('b:',b);
writeln('c:',c);
end;

var a,b,c:integer;
begin
a:=100;
b:=200;
c:=300;
writeln('Nilai sebelum ditukar');
writeln('A:',a);
writeln('B:',b);
writeln('C:',c);
writeln('nilai sesudah ditukar');
Tukar_nilai(a,b,c);
end.

4. Buatlah program kuadrat suatu bilangan !

Program procedur1;
uses wincrt;
procedure kuadrat;
var
x,y:real;
begin
write ('nilai x = ');readln(x);
y:=x*x;
writeln ('nilai y =',y:6:2);
end;
begin
kuadrat;
end.

5. Buatlah program operasi penjumlahan, pengurangan, dan perkalian bilangan !

Program operasi;
uses wincrt;
var a:integer;
b:char;
procedure penjumlahan;
var x,y,z:real;
begin
writeln ('Penjumlahan');
write ('nilai x = ');readln(x);
write ('nilai y = ');readln(y);
z:=x+y;
writeln ('nilai z =',z:6:2);
end;

procedure pengurangan;
var
x,y,z:real;
begin
writeln ('Pengurangan');
write ('nilai x = ');readln(x);
write ('nilai y = ');readln(y);
z:=x-y;
writeln ('nilai z =',z:6:2);
end;

procedure perkalian;
var
x,y,z:real;
begin
writeln ('Perkalian');
write ('nilai x = ');readln(x);
write ('nilai y = ');readln(y);
z:=x*y;
writeln ('nilai z =',z:6:2);
end;

begin
b:='y';
while b='y' do
begin
writeln('Pilih Operasi');
writeln('1. Penjumlahan');
writeln('2. Pengurangan');
writeln('3. Perkalian');

writeln('Masukkan Pilihanmu !');readln(a);
case a of
1: begin
clrscr;
Penjumlahan
end;
2: begin
clrscr;
Pengurangan
end;
3: begin
clrscr;
Perkalian
end;
else writeln('Pengen lagi ?');
end;
write('apa anda pengen lagi(y/n)?');readln(b);
clrscr;
end;
end.