SORTING

uses crt ;
var
    nama    : array[1..3] of string ;
    xnama   : string ;
    jmldata : byte ;
    i, j    : byte ;

begin
clrscr;

    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.

TUGAS PRAKTIKUM

ALGORITMA DAN PEMROGRAMAN II

"REKURSIF"

Nama     : Rizki Amalia Marseli

           NIM    : J1F114062

KEMENTERIAN RISET TEKNOLOGI  DAN PENDIDIKAN TINGGI

UNIVERSITAS LAMBUNG MANGKURAT

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

PROGRAM STUDI S1 ILMU KOMPUTER

BANJARBARU

2015

 

 

 REKURSIF

 

 

 

BILANGAN FIBONACCI

 

 

 uses crt;
var
n,i : integer;
a : array [0..100] of integer;

begin
clrscr;
gotoxy (25,05); write ('____________________________');
gotoxy (25,06); write ('                            ');
gotoxy (25,07); write ('  DERET BILANGAN FIBONACCI  ');
gotoxy (25,08); write ('____________________________');
gotoxy (25,12); write ('Masukkan angka pembatas :  '); readln (n);

gotoxy (25,15);
for i := 0 to n-1 do
   begin
      if (i=0) or (i=1) then
         begin
            a [i] := 1;
            write (a [i],' ');
         end
      else
         begin
            a [i] := a [i-1] + a [i-2];
            write (a [i],' ');
         end;
    end;
readkey;
end.

TUGAS PRAKTIKUM

ALGORITMA DAN PEMROGRAMAN II

"ARRAY OF RECORD"

Nama     : Rizki Amalia Marseli

  NIM    : J1F114062

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.