Program menampilkan data mahasiswa dengan procedure dan array pada pascal

Posted by Unknown Wednesday, December 14, 2011 at 8:36 AM

Saya akan menujukan cara membuat Program menampilkan data mahasiswa dengan procedure dan array menggunkan Bahasa Pemrograman Pascal.

Sorce codenya :

program mahasiwa;
uses wincrt;

type tabel_mhs= record

nama,
                nim  :string [25] ;
                nilai:integer;

end;

var
  mhs : array[1..100] of tabel_mhs;
  temp:tabel_mhs;
  j,k,n: integer;
    ul,ul2       : char;

procedure input_data;
begin
 
   writeln('============================');
  writeln('|  Data Mahasiswa  |');
  writeln('============================');
  write('Banyaknya mahasiswa : '); readln(n);
  for j:= 1 to n do
  with mhs [j] do
  begin
       writeln ('Data Mahasiswa',j);
       write ('Nama='); readln (nama);
       write ('Nim='); readln (nim);
       write ('Nilai='); readln (nilai);
       writeln;
  end;
  end;

procedure urut_nilai;
begin
    for j:=1 to n-1 do
    for k:=j-1 to n do
      if mhs[j].nilai > mhs[k].nilai then
      begin
        temp:=mhs[j] ;
       mhs[j]:=mhs[k] ;
       mhs[k]:=temp    ;
      end;   
    end;
  
procedure tampilan;
begin
  
  urut_nilai;
  writeln('============================');
  writeln('| Data Nilai Mahasiswa  |');
  writeln('============================');
  writeln;
  writeln('==========================================');
  writeln('|Nama          |Nim        |Nilai      |');
  writeln('==========================================');
  for j:=1 to n do
  begin
    writeln('|',mhs[j].nama:15,'|',mhs[j].nim:15,'|',mhs[j].nilai:6,'|');
    
  end;
  writeln('==========================================');
end;

begin
input_data;
urut_nilai;
tampilan;
end.

1 comments:

Unknown on April 18, 2016 at 1:11 PM said...: itu bukan menunjukan langkah tapi,,,menampilakan source code yang copas...hahahahaha
krik krik krik krik