MENYORTIR DATA MAHASISWA MENGGUNAKAN VARIABEL KELAS

 

Menyortir data adalah salah satu hal yang biasa dilakukan dalam pengolahan berkas, berikut akan

 

ditunjukkan bagaimana menyortir data sederhana menggunakan Turbo Pascal 7.

 

 

CODING

 

Program sortirkelas_pascal;

 

uses crt;

 

label z;

 

label l;

 

var textfile:text;

 

FileName, TFile : String;

 

a:array[1..15] of string;

 

i,j:integer;

 

x,v:char;

 

temp: string;

 

procedure input;

 

Begin

 

clrscr;

 

Writeln(‘Tulis nama file ‘+

 

+’beserta alamat lengkap dari file’);

 

readln(FileName);

 

writeln(‘——-DATA MAHASISWA—–‘);

 

writeln(‘————————–‘);

 

writeln(‘KELAS NAMA NPM’);

 

writeln(‘————————–‘);

 

Assign(textfile, ‘i:\input.txt’);

 

Reset(textfile);

 

Repeat

 

Readln(textfile,TFile);

 

Writeln(TFile);

 

Until Eof(textfile);

 

Close(textfile);

 

Readln;

 

End;

 

procedure sort;

 

begin

 

clrscr;

 

assign(textfile,’i:\input.TXT’);

 

reset(textfile);

 

for i:=1 to 15 do readln(textfile,a[i]);

 

close(textfile);

 

for i:=1 to 14 do

 

for j:=i to 15 do

 

if a[j]<a[i] then

 

begin

 

temp:=a[i];

 

a[i]:=a[j];

 

a[j]:=temp;

 

end;

 

assign(textfile,’i:\output.TXT’);

 

rewrite(textfile);

 

for i:=1 to 15 do writeln(textfile,a[i]);

 

close(textfile);

 

end;

 

procedure output;

 

Begin

 

clrscr;

 

Writeln(‘Tulis nama file ‘+

 

+'(beserta alamat lengkap dari file output’);

 

readln(FileName);

 

writeln(‘——-DATA MAHASISWA—–‘);

 

writeln(‘————————–‘);

 

writeln(‘KELAS NAMA NPM’);

 

writeln(‘————————–‘);

 

Assign(textfile, ‘i:\output.txt’);

 

Reset(textfile);

 

Readln(textfile,TFile);

 

Writeln(TFile);

 

Until Eof(textfile);

 

Close(textfile);

 

Readln;

 

End;

 

begin

 

z: clrscr;

 

gotoxy(20,8);write(‘———————————‘);

 

gotoxy(20,9);write(‘Program Sorting Berdasarkan Kelas’);

 

gotoxy(20,10);write(‘——————————–‘);

 

gotoxy(20,11);write(‘1.Masukkan Data’);

 

gotoxy(20,12);write(‘2.Sortir Data’);

 

gotoxy(20,13);write(‘3.Output’);

 

gotoxy(20,14);write(‘4.Exit Menu’);

 

gotoxy(20,14);write(‘Masukkan (1,2,3,4) : ‘);readln(x);

 

case x of

 

‘1’ : input;

 

‘2’ : sort;

 

‘3’ : output;

 

‘4’ : goto l;

 

end;

 

if x = ‘2’ then

 

begin

 

clrscr;

 

writeln(‘Selesai(tekan Enter)’); readln;

 

goto z;

 

end;

 

writeln(‘Apakah anda ingin kembali ke menu? (Y/T): ‘); readln(v);

 

if (v = ‘y’) or (v = ‘Y’) then goto z;

 

l: end.

 

 

 

 

Setelah rangkain kode yang panjang selesai pertama kali tulislah data pada file text dengan isi kelas, nama, dan npm. Kemudian simpan sesuai

 

dengan keinginan anda.

 

Kedua, pada bagian koding perhatikan koding : Assign(textfile, ‘i:\input.txt’); dan Assign(textfile,

 

‘i:\output.txt’);. Dua koding tersebut menyatakan alamat file text yang anda buat, sesuaikan dengan

 

alamat dan nama file yang anda buat.

 

Ketiga, mulai jalankan program. Program yang dijalankan akan tampak pada gambar dibawah ini.

 

 

 

Gambar 1. Layar utama.

 

 

 

 

Gambar 2. Layar input.

 

 

 

Gambar 3. Layar output.

By zzzfadhlan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

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