Soal

No 1

program ganteng;

uses wincrt;

type mahasiswa = record

nama : string;

nim : longint;

alamat: string;

end;

var

y : array [1..50] of mahasiswa;

F_Mhs:text;

i,n,pil,pass,a : integer;

pil2 : char;

temp : real;

z : longint;

begin

clrscr;

writeln('PROGRAM DATA MAHASISWA');

write('Masukkan banyak data mahasiswa yang ingin di input : ');readln(n);

Assign(F_Mhs,'TP7no4.txt');

rewrite(F_Mhs);

for i:=1 to n do

begin

writeln('Data Mahasiswa Ke-',i);

write('Nama : ');readln(y[i].nama);

writeln(F_Mhs,'Nama       :',y[i].nama);

write('Nim : ');readln(y[i].nim);

writeln(F_Mhs,'Nim        :',y[i].nim);

write('Alamat : ');readln(y[i].alamat);

writeln(F_Mhs,'Alamat     :',y[i].alamat);

end;

begin

writeln('YUDHA AGUNG WIRAWAN');

writeln(F_Mhs,'YUDHA AGUNG WIRAWAN');

writeln('118110038');

writeln(F_Mhs,'118110038');

end;

close(F_Mhs);

readln;

end.

No 2

program ganteng;

uses wincrt;

type mahasiswa = record

nama : string;

nim : longint;

uts,uas,kuis: integer;

tot:real;

end;

var

y : array [1..50] of mahasiswa;

F_Mhs:text;

i,n,pil,pass,a : integer;

tl:string;

pil2 : char;

temp : real;

z : longint;

begin

clrscr;

writeln('PROGRAM DATA MAHASISWA');

write('Masukkan banyak data mahasiswa yang ingin di input : ');readln(n);

Assign(F_Mhs,'TP7no4.txt');

rewrite(F_Mhs);

for i:=1 to n do

begin

writeln('Data Mahasiswa Ke-',i);

write('Nama : ');readln(y[i].nama);

writeln(F_Mhs,'Nama       :',y[i].nama);

write('Nim : ');readln(y[i].nim);

writeln(F_Mhs,'Nim        :',y[i].nim);

write('Nilai UTS (1-40): ');readln(y[i].uts);

writeln(F_Mhs,'Nilai UTS(1-40)  :',y[i].uts);

write('Nilai UAS (1-40): ');readln(y[i].uas);

writeln(F_Mhs,'Nilai UAS (1-40)  :',y[i].uas);

write('Nilai Quiz (1-20): ');readln(y[i].kuis);

writeln(F_Mhs,'Nilai Quis(1-20) :',y[i].kuis);

writeln;

y[i].tot:=(y[i].kuis)+(y[i].uts)+(y[i].uas);

end;

  Begin

    If y[i].tot>=60 Then tl:='A'

    Else

      If  y[i].tot>60 Then tl:='B'

    Else

      If y[i].tot>40 then tl:='C'

    Else

      If  y[i].tot>20 Then tl:='D'

    Else

      tl:='E';

end;

begin

for i:=1 to n do

writeln('Indeks Prestasi ',y[i].nama,'=',tl);

writeln(F_Mhs,'Indeks Prestasi ',y[i].nama,'=',tl);

writeln('YUDHA AGUNG WIRAWAN');

writeln(F_Mhs,'YUDHA AGUNG WIRAWAN');

writeln('118110038');

writeln(F_Mhs,'118110038');

end;

close(F_Mhs);

readln;

end.

PILIHAN GANDA
===========================================
5. Manakah perintah di bawah ini yang berfungsi mempersiapkan suatu file sebelum dibaca.
a. reset
b. assign
c. read
d. rewrite
e. write

Jawaban: a

6. Manakah perintah di bawah ini yang berfungsi mengosongkan suatu file.
a. reset
b. assign
c. read
d. rewrite
e. write

Jawaban: d

ESSAY CODING
===========================================
7. Buatlah prosedur yang berguna untuk me-load(membaca kembali) file yang telah ada sebelumnya.

ESSAY TEORI
===========================================
8. Apa fungsi dari prosedur di bawah ini:

procedure simpan(jml: integer);
begin
assign(file_user, 'USER.DAT');
assign(file_jml, 'JML.DAT');
rewrite(file_user);
rewrite(file_jml);
write(file_user, user);
write(file_jml, jml);
close(file_user);
close(file_jml);
end;

Posted in: Program Pascal