PROGRAM SORTIR DENGAN MENGGUNAKAN TURBO PASCAL

Dewasa ini programer programer di dunia mulai mengeluarkan aplikasi aplikasi atau program program yang sangat menarik, namun karena saya yang masih sangat belajar dalam hal program, jadi saya mau berbagi kepada yang membutuhkan tentang bbagaimana cara membuat program sortir atau menyortir data dengan mengggunakan TURBO PASCAL.
berikut adalah cooding dari program yang saya buat:


Program output_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(‘Enter the file name ‘+
+’(with its full path) of the text file:’);
readln(FileName);
writeln(‘——-DATA MAHASISWA—–’);
writeln(‘————————–’);
writeln(‘KELAS NAMA NPM’);
writeln(‘————————–’);
{A .txt file will be assigned to a text variable}
Assign(textfile, ‘a:\data45.txt’);
Reset(textfile); {‘Reset(x)’ – means open the file x}
Repeat
Readln(textfile,TFile);
Writeln(TFile);
Until Eof(textfile);
Close(textfile);
Readln;
End;

procedure sort;
begin
clrscr;
assign(textfile,’a:\data45.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] Assign(textfile, ‘c:\data88.txt’);

- untuk sintaks pada procedure output, coding ( Assign(textfile, ‘c:\data88.txt’); ) diubah kembali sesuai dimana output tersebut akan disimpan. (jangan disamakan dengan file input)

cth : Assign(textfile, ‘a:\data46.txt’); => Assign(textfile, ‘c:\data89.txt’);

hasilnya : (klik untuk memperbesar)

menu :

input :

Output :

naahhh
itu dia program nya.
kalo ad ayang kurang atau tahu bagaimana cara mengembangkan program tersebut lebih lanjut, hhubungi via e mail
oktoprima@gmail.com atas nama okto prima
kuliah di http://gunadarma.ac.id/
thx