LAPORAN RESMI
PRAKTIKUM
ALGORITMA PEMROGRAMAN (ALPRO)
MODUL VII
“PROJECT
PRAKTIKUM”
Disusun Oleh :
TGL PRAKTIKUM : 09 JANUARI 2013
NAMA : Azza Devi Manzilia
NRP : 120411100110
KELAS/KELOMPOK : D2
DOSEN PENGAMPU : ARIK
KURNIAWATI,S.Kom.,M.kom
ASISTEN :
ANDI HARTONO
|
Disetujui : ....../……./………../Bangkalan
|
(ANDI HARTONO)
10.04.111.00020
|
JURUSAN TEKNIK INFORMATIKA
FAKULTAS TEKNIK
UNIVERSITAS TRUNOJOYO MADURA
2012 /
2013
BAB I
PENDAHULUAN
1.1 Latar
Belakang
bahasa pascal merupakan dasar dari bahasa pemrograman yang ada
dalam dunia pemrograman, seiring dengan berkembangnya teknologi informasi
penggunaan bahasa pascal juga semakin berkembang, mulai dari penyeleksian suatu
kasus, penyederhanaan program dengan procedure dan function, menyimpan suatu
data, menyederhanakan bermacam-macam variabel hingga membuat, menulis dan
menampilkan program dalam suatu file yang biasa disebut dengan text file.
Keberadaan text file dalam bahasa pemrograman dianggap sebagai variasi baru
membuat bahasa pemrograman semakin sempurna karena text file dapat disimpan
dalam berbagai format file.
1.2 Tujuan
1.
Praktikan
mengerti tentang fungsi text file.
2.
Praktikan mampu membuat
program menggunakan text file.
BAB II
DASAR TEORI
2.1
Teori
Singkat
I. Teori
A file contains data which is saved in the hard
disk. You can only view a file from the hard disk by using an operating
system. A File can contain text data which is used by word processors.
Many text files are saved in the hard disk with the extensions: *.txt
and *.doc. The file with extension of *.txt, means that it is created by
the Microsoft Notepad.
Whenever you use the Microsoft Notepad and save a
text file, this saved file is created and written on to the hard disk.
However, some programs have various formats on how to maintain the text
- such as justification, font, font colour. So many files contain more
data other than text data! The program itself uses various techniques to
create a file in such a way that, when it is being read again it can
read (using programming skills, etc..) if it is justified, its font style etc.
The program that is able to read the file of
extension *.xxx, is called the viewer of that file.
Read from a File (file input) Reading a file
in pascal is very easy. Note that there are no reserved words in Pascal
that are used to to read or write to a file. We used the 'usual words':
readln() and writeln();
Here‟s the technique of how to write / rewrite a
text file
var
namafile : string;
vfile: text;
input1:string;
begin
namafile := 'd:\test1.txt';
assign(vfile,namafile);
rewrite(vfile);
writeln('inputkan data. tekan x
utk selesai');
repeat
readln(input1);
if input1 <> 'x' then
begin
writeln(vfile,input1);
end;
close(vfile);
end.
If you run the script, at the end of program, you
will found file created at d:\test1.txt. The file contains all data that have
you entered before. Here's the technique of how to read a text file
uses wincrt;
var
namafile :
string;
vfile:
text;
output1:string;
begin
namafile :=
'd:\test1.txt';
assign(vfile,namafile);
reset(vfile);
writeln('isi File:');
repeat
readln(vfile,output1);
writeln(output1);
until
eof(vfile);
close(vfile);
end.
BAB III
TUGAS PENDAHULUAN
3.1 prepraktikum
Kerjakan
tugas-tugas di bawah ini sebelum praktikum dimulai.
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.
BAB IV
IMPLEMENTASI
4.1 Kegiatan
Praktikum
Pada saat praktikum, kerjakan tugas-tugas berikut
ini:
1.
Buat program untuk tugas prepraktikum no 1 s/d 4
Jawaban tugas praktikum
1.
Program nomor 1
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 nomor 2
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.
Running dari pascal running
dari file
3.
Program nomor 3
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 nomor 4
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.
4.2
Tugas
Akhir
Buat Program Prepraktikum no 4, dengan tambahan
1.
Bisa melakukan pencarian data dari data yang telah diinputkan, pencarian berdasarkan nama
2.
Data yang diinputkan bisa disimpan ke dalam file text
3.
Data yang telah di simpan ke dalam file text bisa di Load ulang dan di
masukkan ke dalam array record untuk di tampilkan.
Program data_mahasiswa_N;
uses wincrt;
type
mhs = record
nama :
string;
nim : string;
nilai:
integer;
end;
var
inputdata : text;
data : array [1..10] of mhs;
n,a : integer;
tampil : string;
begin
assign (inputdata,'d:/prak.txt');
rewrite (inputdata);
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;
assign (inputdata,'d:/prak.txt');
rewrite (inputdata);
for a:= 1 to n do
begin
writeln
(inputdata,data[a].nama);
writeln
(inputdata,data[a].nim);
writeln
(inputdata,data[a].nilai);
end;
close (inputdata);
for a:= 1 to n do
begin
write
('masukkan nama yang ingin ditampilkan : '); readln (tampil);
writeln;
writeln
('-----------------------------------------');
writeln
(' Nama NIM
Nilai ');
writeln
('-----------------------------------------');
for a:=
1 to n do
begin
if
(data[a].nama) = tampil then
begin
writeln (data[a].nama:10,data[a].nim:10, data[a].nilai:12);
end;
end;
writeln
('-----------------------------------------');
end;
assign (inputdata,'d:/prak.txt');
reset (inputdata);
for a:= 1 to n do
begin
readln
(inputdata,data[a].nama);
readln
(inputdata,data[a].nim);
readln
(inputdata,data[a].nilai);
end;
close (inputdata);
for a:= 1 to n do
begin
writeln;
writeln
('nama mahasiswa ke-',a,' :
',data[a].nama);
writeln
('NIM mahasiswa ke-',a,' :
',data[a].nim);
writeln
('Nilai mahasiswa ke-',a,' : ',data[a].nilai);
end;
end.
BAB V
PENUTUP
5.1. Kesimpulan
Dari kegiatan
praktikum diatas dapat ditarik sebuah kesimpulan bahwa text file merupakan
membuat file dengan menggunakan bahasa pascal
5.2. Saran
1.
Untuk
asisten praktikum sebaiknya mengondisikan kelas pada saat praktikum.
2.
Untuk
kegiatan praktikum sebaiknya menaati peraturan praktikum yang telah ditetapkan.
No comments:
Post a Comment