Array dua dimensi dan Record pada pascal

Assalamualaikum,
Haloo gaess,

Ceritanya ane lagi ujian praktikum struktur data, terus ane dikasih bayangan mantan soal dari kelas sebelah yang udah praktik duluan.
Outputnya kira2 begini

nih ceritanya output dari soal No 1

nah yang ini ceritanya output soal No 2

OK deh langsung dijawab..

Jadi ini ceritanya Source Code soal no 1.. ~~ kecil no 1 maaahh...

program UTSstrukdatNo1;

uses crt;

var
 A : array [1..3, 1..3] of integer = ((20,15,13),(14,12,18),(16,17,20));
 i,j : integer;

begin
  clrscr;
   for i := 1 to 3 do begin
    for j := 1 to 3 do begin
     write(A[i][j],' ');
    end;
    writeln;
   end;
readln;
end.

Nah ini ceritanya Source Code soal no 2.. no 2 Lumayan laahh..

program praktikumSDno2;

uses crt;

const maks = 100;
type
 recdata = record
  nama  : String;
  NPM   : String;
  UTS   : integer;
  UAS   : integer;
  tugas : integer;
  Nilai : real;
  grade : Char;
  rata  : real;
end;

var A : array [1..maks] of recdata;
i,N : integer;

begin
clrscr;
  write('Masukan jumlah siswa yang diinput : ');readln(N);
  writeln;
  writeln('Data Mahasiswa');
  writeln;

  for i := 1 to N do begin
   writeln('Data ke - ', i);
    with A[i] do begin
     write('Nama  : ');readln(nama);
     write('NPM   : ');readln(NPM);
     write('Tugas : ');readln(tugas);
     write('UTS   : ');readln(UTS);
     write('UAS   : ');readln(UAS);

     Nilai := (0.2*tugas)+(0.3*uts)+(0.5*uas);

     if nilai >= 90 then grade:='A' else
      if (nilai < 90) and (nilai >= 80) then grade := 'B' else
       if (nilai < 80) and (nilai >= 70) then grade := 'C' else
        if (nilai < 70) and (nilai >= 60) then grade := 'D' else
         grade := 'E';

     rata := (tugas+uts+uas) / 3
    end;
    writeln;
  end;
  writeln;

  writeln('Data nilai Mahasiswa');
  for i := 1 to N do begin
   writeln('Data ke - ',i);
    with A[i] do begin
     writeln('Nama      : ',nama);
     writeln('NPM       : ',npm);
     writeln('Tugas     : ',tugas);
     writeln('UTS       : ',UTS);
     writeln('UAS       : ',UAS);
     writeln('Nilai     : ',nilai:2:2);
     writeln('Grade     : ',Grade);
     writeln('Rata-rata : ',rata:2:2);
   end;
   writeln;
  end;
readln;
end.

yosh selesai !!!
kimochi kan.. hehe

Ok deh.. Dengan demikian ini adalah akhir dari cerita indah nan memusingkan. semoga anda tidak muntah.

Wassalamualaikum Wr. Wb

namae := ryan;
end.

Ryan's Blog

Array dua dimensi dan Record pada pascal

Terima Kasih

1 komentar: