UJIAN Mata Kuliah : Algoritma dan Pemrograman


UJIAN AKHIR SEMESTER 1 TAHUN 2004/2005 FMIPA UGM
Mata Kuliah : Algoritma dan Pemrograman
Waktu : 120 menit
Hari, Tanggal : Selasa, 7 Juni 2005
Dosen : Drs. Sri Mulyana, M.Kom
Sifat : Terbuka
1. Tuliskan Output dari program berikut : (Jelaskan analisisnya !)
Program Ujian_Alpro_2005;
uses crt:
Var p,q : longint;
Procedure Alpro2(var x,y : longint);
begin
x:=(x*y) div 5; y:=x*(x div 7):
end;
Procedure Alpro1(Var a:longint; b:longint);
Function Alpro2(Var x,y : longint) : longint:
var
T : longint;
Begin
T:=x: X:=y; y:=T; y:=3*x+2;
Writeln(‘Nilai Variabel Fungsi Alpro2 : ‘,x:8,y:8):
Alpro2:=2*Y;
end;
Function Alpro3(x,y : longint) : longint;
var
T : longint;
Begin
T:=x; X:=y; y:=T; y:=3*x+2;
writeln(‘Nilai Variabel Fungsi Alpro3 : ‘,x:8,y:8);
Alpro3:=2*y;
end;
Begin
p:=10;q:=6;
p:=Alpro3(p,q) ;
q:=Alpro2 (q,p);
Writeln(‘Nilai Variabel Prosedur Alpro1 : ‘,p:8,q:8);
End;
Begin
clrscr;
p:=12;
q:=8;
Alpro1(p,q);
Alpro2(q,p);
writeln( ‘Nilai Variabel Program Utama : ‘,p:8;q:8);
readln;
end.
2. Buatlah program untuk menjumlahkan dua buah polinomial.
Contoh : misalkan dibaca : P0=4X3-2X2+10 dan P1=4X4+2X2-1, maka akan
memberikan hasil P0+P1=4X4+4X3+9
(Penggunaan Program Modular sangat direkomendasikan)
3. Diberikan Record Mahasiswa sebagai berikut :
TYPE MHS = RECORD
NO : INTEGER;
NAMA : STRING[20];
UMUR : BYTE;
NILAI : BYTE;
END;
VAR
DATMHS1, DATMHS2: ARRAY[1..50] OF MHS;
a). Buatlah Prosedur BACA untuk mengisi dua Variabel di atas yang
masing-masing mempunyai m dan n data ! (m,n<=50)
b). Buatlah Prosedur URUT untuk mengurutkan kedua Variabel tersebut
berdasarkan nilainya!
c). Buatlah Prosedur GABUNG untuk menggabungkan kedua variable
tersebut (Setelah diurutkan) menjadi satu yang tetap terurut
berdasarkan nilainya !
http://himatika.mipa.ugm.ac.id

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s