text file

1.    Buat Program yang menyimpan beberapa data dalam sebuah array

2.    Buat Program untuk menyimpan isi Array ke File text

3.    Buat Program Untuk membaca isi File text, dan simpan ke dalam array

4.    Buat Program untuk menyimpan N data mahasiswa dengan field Nama, NIM, Nilai. Gunakan Record.

JAWABAN

1.        Program menyimpan data dalam beberapa array

uses wincrt;

var

n : integer;

data : array [1..10] of integer;

begin

repeat

n:=n+1;

write ('masukkan bilangan : '); readln (data[n]);

until n=5;

end.

2.        Program menyimpan isi array kedalam text file

program prepraktikum_2;

uses wincrt;

var

folder : text;

data : array [1..10] of string;

a,n: integer;

begin

n:= 5;

for a:= 1 to n do

begin

     writeln ('masukkan nama ke-',a,' :'); readln (data[a]);

end;

assign (folder,'d:/coba_2.txt');

rewrite (folder);

for a:= 1 to n do

begin

     writeln(folder,data[a]);

end;                       

close (folder);

end.

3.        Program membaca isi File text, dan simpan ke dalam array

program prepraktikum_3;

uses wincrt;

var

folder : text;

n,a : integer;

data : array [1..10] of string;

begin

assign (folder,'d:/coba_2.txt');

reset (folder);

n:=5;

for a:= 1 to n do

begin

     readln (folder,data[a]);

     writeln(data[a]);

end;

close (folder);

end.

4.        Program menyimpan N data mahasiswa dengan field Nama, NIM, Nilai dengan menggunakan record.

program prepraktikum_4;

uses wincrt;

type

mhs = record

       nama : char;

       nim  : string;

       nilai: integer;

       end;

var

data : array [1..10] of mhs;

n,a : integer;

begin

writeln ('PROGRAM N MAHASISWA');

write ('masukkan banyak mahasiswa : '); readln (n);

for a:= 1 to n do

begin

     write ('masukkan nama mahasiswa ke-',a,' :'); readln (data[a].nama);

     write ('masukkan NIM mahasiswa ke-',a,' :'); readln (data[a].nim);

     write ('masukkan nilai mahasiswa ke',a,' :'); readln (data[a].nilai);

     writeln;

end;

end.