~ UJIAN TENGAH SEMESTER ' UNINDRA 2009 ' ~
Program Studi : Teknik informatika
Mata Kuliah : Pemrograman I
Hari : 14 November 2009
Sifat Ujian : Tutup buku
==============================================
1. Buatlah sebuah program menggunakan prosedur IF_THEN_ELSE berikut:
Seorang anggota koperasi dapat meminjam uang dengan ketentuan:
a. Masa Keanggotaan diatas 5 Tahun dapat meminjam 10 juta
b. Masa keanggotaan diatas 4 Tahun dapat meninjam 8 juta
c. Masa keanggotaan diatas 3 Tahun dapat meminjam 6 juta
d. Masa keanggotaan diatas 2 Tahun dapat meminjam 3 juta
e. Masa keanggotaan diatas 1 Tahun dapat meminjam 2 juta
f. Dibawah 1 Tahun tidak dapat meminjam
Tampilan : Nama Karyawan : xxxxxxxxxx
Masa Keanggotaan : x
Dapat Meminjam : xxxxxxxxx
2. Sebutkan dan jelaskan jenis data yang digunakan dalam pascal?( min 4 )
3. Identifier didefinisikan bebas oleh pemrogram,dengan ketentuan-ketentuan?
4. Lengkapi dan perbaiki program berikut :
Program Hitung_Luas_Ruangbangun;
Var Luas :integer;
P,L,A :integer;
jenis :char;
ket :string[100];
Begin
Writeln ('Tentukan jenis ruang bangunan');
Writeln ('Ketik "A" segitiga atau "B" persegi');
ket:=0;
IF jenis-'A'THEN
Begin
ket :='SEGITIGA'
Writeln('Masukan nilaiA:');readln(A);
Writeln('Masukan nilaiB:');readln(T);
Luas :=A*T/2;
END;
IF Jenis ='a' THEN
Begin
ket='PERSEGI';
Writeln('Masukan nilai P:');readln(A);
Writeln('Masukan nilai T:');readln(L);
Luas:=P*L
END;
Writeln('Jenis Ruang Bangunannya adalah ',ket);
Writeln('Luasnya adalah',Luas);
END.
~ Jawaban Soal UTS Pemrograman ~
Program Pinjaman_Koperasi;
uses crt;
var
nk:string;
mk:real;
begin
clrscr;
write('Nama Karyawan : ');readln(nk);
write('Masa Keanggotaan : ');readln(mk);
if mk>5 then
begin
writeln('Dapat meminjam Rp. 10 juta');
end
else
if mk>4 then
begin
writeln('Dapat meminjam Rp. 8 juta');
end
else
if mk>3 then
begin
writeln('Dapat meminjam Rp. 6 juta');
end
else
if mk>2 then
begin
writeln('Dapat meminjam Rp. 3 juta');
end
else
if mk>1 then
begin
writeln('Dapat meminjam Rp. 1 juta');
end
else
writeln('Di bawah satu tahun tidak dapat meminjam');
readln;
end.
2. Data- data yang digunakan dalam pascal adalah :
A. Tipe Data Char dan String
Ini merupakan tipe data dasar, tipe data ini didefinisikan pada deklarasi var dibagian algoritma/program.
B. Tipe Data Boolean
Tipe data ini digunakan untuk pengambilan keputusan dalam operasi logika.
Terdiri dari true disimbolkan"T" dan false disimbolkan "F". Ketika kita ingin mendapatkan hasil yang valid/pasti,
kita menggunakan tipe data boolean untuk memperoleh keputusan dalam suatu penyelesaian yang pasti.
c. Tipe Data Real
Merupakan tipe data bilangan pecahan seperti real,single,double,comp,extend.
D. Tipe Data Subrange
Merupakan Tipe data bilangan yang punya jangkauan nilai tertentu sesuai dengan definisi dan pemograman.
Example :
Type Variable=nilai_awal....nilai_akhir
E. Type Data Enumerasi
Merupakan Tipe data yang memiliki elemen - elemen tertentu yang disebut satu/satu dari bernilai konstanta integer
sesuai dengan urutannya. Pada Tipe data ini elemen masukan diwakili oleh suatu nama variable yang ditulis didalam kurung.
Example :
Indeks_hari=(nol,minggu,senin,selasa,rabu,kamis,jumat,sabtu).
F. Tipe Data Array(Larik)
Tipe Data ini sudah terstruktur dengan baik, walaupun masih sederhana.Tipe data ini menampung sejumlah data dengan tipe
data sama(homogen)dalam sebuah variable.
G. Tipe data Record
Tipe Data komposit yang sudah terstruktur dengan baik.Tipe datan ini digunakan untuk menampung data suatu objek. Datanya berupa
campuran dari tipe data seperti string, numerik, char,boolean,atau tipe data lain. Tipe data ini merupakan struktur dasar dari
suatu sistem database.
H. Tipe Data Array Record
Tipe Data array yang digunakan dari tipe data record.
3. Identifier merupakan sebuah kata yang digunakan sebagai nama atau sebutan terhadap sesuatu didalam program. memakai dapat mendefinisikan
sendiri suatu nama identifier.
A. Identifier standar
B. Identifier non standar
C. Nama suatu program
D. NAma suatu konstanta
E. Nama suatu variable
F. Nama suatu prosedur
G. Terdiri dari gabungan huruf dan angka dengan karakter pertama harus berupa huruf
H. Tidak boleh mengandung blank
I. Tidak boleh mengandung simbol - simbol khusus, kecuali garis bawah.
J. Panjangnya bebas, tetapi hanya 63 karakter pertama yang dianggap signifikan.
4.Program meghitung_luas_bangun;
uses crt;
var luas:real;
P,L,A,T:real;
jenis:char;
ket:string[100];
begin
clrscr;
writeln('___________');
writeln('tentukan jenis ruang bangunnya');
wrirteln('___________');
write('masukkan pilihan:');readln(jenis);
ket:='salah-->TRY AGAIN NOW!!!';
if jenis='A'then
begin
writeln;
textcolor(10);
ket:='SEGITIGA';
writeln('************');
writeln('anda menghitung luas segitiga');
writeln('************');
write('masukkan alas:');readln(A);
write('masukkan tinggi:');readln(T);
luas:=1/2*A*T;
writeln('luas segitiga:',luas:0:2);
end;
if janis='B'then
begin
writeln;
textcolor(13);
ket:='PERSEGI';
writeln('************');
writeln('anda menghitung luas persegi');
writeln('************');
write('masukkan panjang:');readln(P);
write('masukkan lebar:');readln(L);
luas:=P*L;
writeln('luas persegi panjang:',luas:0:0);
end;
else
writeln;
textcolor(4);
writeln:
writeln('jenis ruang bangunannya adalah:',ket);
readln;
end.
