Home

Program ipkuas;

 

type ipk_mhs = record

     ipk  : real;

     nm : string[30];

end;

var i,n,j : integer;

ipkku: array [1..20] of ipk_mhs;

 

 

procedure descending_ipk;

var z: real;

    x: string;

begin

     for i:=1 to n-1 do

      begin

        for j:= n downto i+1 do

          begin

            if ipkku[j].ipk > ipkku[j-1].ipk then

              begin

                 z:= ipkku[j].ipk;

                 x:= ipkku[j].nm;

                 ipkku[j].ipk:= ipkku[j-1].ipk;

                 ipkku[j].nm:= ipkku[j-1].nm;

                 ipkku[j-1].ipk:=z;

                 ipkku[j-1].nm:=x;

              end

            else if ipkku[j].ipk = ipkku[j-1].ipk then

              begin

              if ipkku[j].nm > ipkku[j-1].nm then

                 begin

                      x:= ipkku[j].nm;

                      ipkku[j].nm:= ipkku[j-1].nm;

                      ipkku[j-1].nm:=x;

                 end;

              end;

          end;

      end;

end;

begin

     writeln(‘PROGRAM LIHAT IPK DAN DIURUTKAN BERDASARKAN DESCENDING’);

     writeln;

     write(‘Masukkan berapa IPK yang akan diurutkan (maks 20) : ‘); readln(n);

     writeln;

     for i:= 1 to n do

     begin

          write (‘IPK  Mahasiswa ke ‘ ,i,’ : ‘); readln(ipkku[i].ipk);

          write (‘Nama Mahasiswa ke ‘ ,i,’ : ‘); readln(ipkku[i].nm);

     end;

 

descending_ipk;

writeln;

writeln(‘Data IPK setelah diurutkan : ‘);

 

for j:=1 to n do

    writeln (ipkku[j].ipk:5:2,’ ‘,ipkku[j].nm);

readln;

end.

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s