Minggu, 30 Oktober 2011

save dan sortir dalam turbo pascal

 tugas kelompok struktur dan organisasi data

anggota kelompok: 1.fauzi maulana
                              2.dio david
                              3.andre luckyanto

 Contoh pembuatan program pascal untuk membuat file .txt dan menyortirnya.Berikut adalah coding dan penjelasan fungsi coding yang di perlukan :
Program pascal_save_sortir  ;
uses crt;
label z,l;
var textfile:text;
    a,b,c:array[1..20] of string;
    i,j,k:integer;
    temp,temp1,temp2:string;
    q:char;
procedure sort; (* membuat block program untuk menyortir data *)
begin
clrscr;
  writeln('1.Nama');
  writeln('2.Npm');
  writeln('3.Kelas');
  writeln('Pilih yang ingin di sortir : ');readln(q);
  if q = '1' then
    begin
   for i := 1 to k-1 do (* untuk membandingkan angka sesudahnya untuk mengetahui nilai yang lebih kecil*)
    for j:=i+1 to k do
      if a[j]<a[i] then
      begin
          temp:=a[i] ; temp1:=b[i] ; temp2:=c[i];
          a[i]:=a[j] ; b[i]:=b[j]  ; c[i]:=c[j];
          a[j]:=temp ; b[j]:=temp1 ; c[j]:=temp2;
      end;
  end;
  if q = '2' then
  begin
  for i := 1 to k-1 do
    for j:=i+1 to k do
      if b[j]<b[i] then
        begin
          temp:=a[i] ; temp1:=b[i] ; temp2:=c[i];
          a[i]:=a[j] ; b[i]:=b[j]  ; c[i]:=c[j];
          a[j]:=temp ; b[j]:=temp1 ; c[j]:=temp2;
        end;
  end;
  if q = '3' then
  begin
  for i := 1 to k-1 do
    for j:=i+1 to k do
      if c[j]<c[i] then
        begin
          temp:=a[i] ; temp1:=b[i] ; temp2:=c[i];
          a[i]:=a[j] ; b[i]:=b[j]  ; c[i]:=c[j];
          a[j]:=temp ; b[j]:=temp1 ; c[j]:=temp2;
        end;
  end;
  Assign(textfile,'NAMA.TXT');
  Rewrite(textfile);
  for i:= 1 to k do writeln(textfile,a[i]);
  close(textfile);
  Assign(textfile,'NPM.TXT');
  Rewrite(textfile);
  for i:= 1 to k do writeln(textfile,b[i]);
  close(textfile);
  Assign(textfile,'KELAS.TXT');
  Rewrite(textfile);
  for i:= 1 to k do writeln(textfile,c[i]);
  close(textfile);
  (* untuk menulis hasil sortir ke format .txt *)
  end;
 procedure tulis; (* membuat block program menulis data baru *)
 Begin
  clrscr;
  writeln('Masukkan Banyaknya Data :  ');readln(k);
  Assign(textfile,'NAMA.TXT');
  Rewrite(textfile);
 for i:= 1 to k do
 begin
  clrscr;
  Writeln('Masukkan nama ke-',i,'   :   ');readln(a[i]);
  writeln('Masukkan npm ke-',i,'    :   ');readln(b[i]);
  writeln('Masukkan kelas ke-',i,'    :   ');readln(c[i]);
  writeln(textfile,a[i]);
 end;
  Close(textfile);
  Assign(textfile,'NPM.TXT');
  Rewrite(textfile);
 for i:= 1 to k do writeln(textfile,b[i]);
  close(textfile);
  Assign(textfile,'KELAS.TXT');
  Rewrite(textfile);
 for i:= 1 to k do writeln(textfile,c[i]);
  close(textfile);
  (* untuk menulis hasil data yang di input ke format .txt *)
 End;
 procedure output; (* untuk membuat block program untuk hasil *)
 begin
 clrscr;
  writeln('************************************************************************');
   writeln('* no *         Nama           *      Kelas      *          NPM         *');
   writeln('************************************************************************');
   for i:=1 to k do
    writeln('*',i:2,'. ','*':1,a[i]:15,'*':10,c[i]:11,'*':7,b[i]:16,'*':7);
    writeln('************************************************************************');
  assign(textfile,'HASIL.TXT');
  rewrite(textfile);
   writeln(textfile,'************************************************************************');
   writeln(textfile,'* no *         Nama           *      Kelas      *          NPM         *');
   writeln(textfile,'************************************************************************');
   for i:=1 to k do
    writeln(textfile,'*',i:2,'. ','*':1,a[i]:15,'*':10,c[i]:11,'*':7,b[i]:16,'*':7);
    writeln(textfile,'************************************************************************');
    close(textfile);
    (*untuk memcetak ke layar hasil sortir atau yang belum di sortir ke layar dan membuatnya ke format .txt *)
end;
begin
clrscr;
writeln('Mulai baru(y/t) : ');readln(q);
if (q='t') or (q='T') then
begin
  k:=1;
  assign(textfile,'NAMA.TXT');
  reset(textfile);
  repeat
  readln(textfile,a[k]);
  k :=k+1;
  until a[k] ='';
  close(textfile);
  (* untuk membaca jumlah data yang di miliki *)
  assign(textfile,'KELAS.TXT');
  reset(textfile);
 for j := 1 to k do readln(textfile,c[j]);
  close(textfile);
  assign(textfile,'NPM.TXT');
  reset(textfile);
 for j := 1 to k do readln(textfile,b[j]);
  close(textfile);
end;
z: clrscr;
writeln('******************');
writeln('Program Sorting');
Writeln('******************');
writeln('1.Masukkan Data');
writeln('2.Sortir Data');
writeln('3.Output');
writeln('4.Exit');
writeln('Masukkan (1,2,3,4) : ');readln(q);
case q of
'1' :  tulis;
'2' :  sort;
'3' :  output;
'4' :  goto l;
end;
writeln('Selesai(press Enter)');readln;
goto z;
l: end.
 
OUTPUTNYA:
 
data sebelum disortir
 
 

 
data setelah disortir menurut nama
 

data setelah disortir menurut kelas


data setelah disortir menurut npm
http://www.google.co.id/url?sa=t&rct=j&q=gunadarma&source=web&cd=1&ved=0CCMQFjAA&url=http%3A%2F%2Fwww.gunadarma.ac.id%2F&ei=MEWtTvflO5HJrQfd7MH6BA&usg=AFQjCNG2YmCmG_gxpVIo88fvL0Dnk0MmfA&cad=rja

Tidak ada komentar:

Posting Komentar