Sorting Pada Pemrograman Pascal

uses crt ;

var

    nama    : array[1..3] of string ;

    xnama   : string ;

    jmldata : byte ;

    i, j    : byte ;

begin

     jmldata := 3 ;

     for i := 1 to jmldata do

     begin

       write('Nama ke ',i,':') ; readln(nama[i]) ;

     end;

     clrscr;

     for i := 1 to jmldata do

     begin

          writeln ('Nama ke ',i,':', nama[i]) ;

     end;

     for i:= 1 to jmldata-1 do

     begin

          for j:= jmldata-1 downto i do

          begin

              if nama[j] > nama[j+1] then

              begin

                   xnama     := nama[j] ;

                   nama[j]   := nama[j+1] ;

                   nama[j+1] := xnama   ;

              end;

          end;

     end;

     writeln;

     for i := 1 to 3 do

     begin

          writeln ('Nama ke ',i,':', nama[i]) ;

     end;

     readln;

end.





Dan berikut output akhirnya :

Program Deret Fibonacci pada Pascal

uses crt;

var

a,i: longint;

function fibonacci(n:integer):integer;

begin

if(n=1) then

fibonacci:=1

else

if (n=2) then

fibonacci:=1

else

fibonacci:= fibonacci(n-1)+fibonacci(n-2);

end;

begin

clrscr;

writeln('=======================');

writeln('|    DERET FIBONACCI  |');

writeln('=======================');

writeln('|  input value :      |');

writeln('=======================');

gotoxy(17,4);readln(a);

writeln;

for i := 1 to a do

write(fibonacci(i),'  ');

readln;

end.

Inilah Output Program Deret Fibonacci:

TUGAS PRAKTIKUM

ALGORITMA DAN PEMROGRAMAN II

"ARRAY OF RECORD"

Nama     : Katon Galih Wicaksono

  NIM    : J1F114028

KEMENTERIAN RISET TEKNOLOGI  DAN PENDIDIKAN TINGGI

UNIVERSITAS LAMBUNG MANGKURAT

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

PROGRAM STUDI S1 ILMU KOMPUTER

BANJARBARU

2015

  ARRAY of Record

Program Data_Mahasiswa;
Uses crt;

  Type Tabel_Mhs = Record
     Nama  : String[10];
     NIM   : String[10];
     Nilai : Integer;
     Grade : String[10];
  End;

 Var

  Mhs  : Array[1..20] of Tabel_Mhs;
  Angka: Real;
  i, n: Integer;

        Begin
        clrscr;
        write('Masukkan banyak data : ');readln(n);
        for i:=1 to n do
        begin
          write('Nama Mahasiswa    : ');readln(Mhs[i].Nama);
          write('NIM Mahasiswa     : ');readln(Mhs[i].NIM);
          write('Nilai             : ');readln(Mhs[i].Nilai);

      if Mhs[i].Nilai >= 80 then
         Mhs[i].Grade:= 'A'
      Else if Mhs[i].Nilai >= 70 then
         Mhs[i].Grade:= 'B'
      Else if Mhs[i].Nilai >= 60 then
         Mhs[i].Grade:= 'C'
      Else if Mhs[i].Nilai >= 50 then
         Mhs[i].Grade:= 'D'
      Else if Mhs[i].Nilai < 50 then
         Mhs[i].Grade:= 'E';
         Writeln('Grade      : ',Mhs[i].Grade);readkey;
       End;

Begin
Clrscr;
gotoxy(1,2);Writeln('DATA REPORT':45);
gotoxy(1,4);Writeln('[----][-------------][---------------][-----------][-----------]');
gotoxy(1,5);Writeln('[ NO ][     Nama    ][      NIM      ][   Nilai   ][   Grade   ]');
gotoxy(1,6);Writeln('[----][-------------][---------------][-----------][-----------]');

For i:= 1 to n do
 Begin
 with Mhs[i] do
 begin
  gotoxy(1,6+i);Write('[    ][             ][               ][           ][           ]');
  gotoxy(1,7+i);Write(' ----  -------------  ---------------   ----------  ----------- ');
  gotoxy(4,6+i);Write(i);
  gotoxy(11,6+i);Write(Nama);
  gotoxy(27,6+i);Write(NIM);
  gotoxy(43,6+i);Write(Nilai);
  gotoxy(57,6+i);Write(Grade);

 End;
 Readkey;

 End;

 End;

 End.

Berikut Hasil Output Tampilan :