Algoritma

Leave a reply

Cara Membuat Data Nilai Mahasiswa Dalam Pascal

Pada post kali inii saya akan menjelaskan bagaimana caranya membuat data nilai mahasiswa dalam pascal. Langsung saja dibawah ini merupakan coding, input, dan juga output-nya.
Coding :
uses crt;
var nama : array [1..5] of string;
NPM,nilai : array [1..5] of integer;
i,j,k : integer;
begin
clrscr;
for i := 1 to 5 do begin
write (‘Nama  : ‘); readln (nama[i]);
write (‘NPM   : ‘); readln (NPM[i]);
write (‘Nilai : ‘); readln (nilai[i]);
end;
clrscr;
writeln (‘          TABEL NILAI MAHASISWA          ‘);
writeln (‘=========================================’);
writeln (‘|    NAMA    |     NPM     |    NILAI   |’);
writeln (‘=========================================’);
writeln (‘|            |             |            |’);
writeln (‘|            |             |            |’);
writeln (‘|            |             |            |’);
writeln (‘|            |             |            |’);
writeln (‘|            |             |            |’);
writeln (‘=========================================’);
gotoxy (3,5); write (nama[1]); gotoxy (20,5); write (NPM[1]); gotoxy(33,5); write (nilai[1]);
gotoxy (3,6); write (nama[2]); gotoxy (20,6); write (NPM[2]); gotoxy(33,6); write (nilai[2]);
gotoxy (3,7); write (nama[3]); gotoxy (20,7); write (NPM[3]); gotoxy(33,7); write (nilai[3]);
gotoxy (3,8); write (nama[4]); gotoxy (20,8); write (NPM[4]); gotoxy(33,8); write (nilai[4]);
gotoxy (3,9); write (nama[5]); gotoxy (20,9); write (NPM[5]); gotoxy(33,9); write (nilai[5]);
end.
ini adalah inputnya :

ini adalah outputnya :

Sekian tutorial dari saya, semoga bermanfaat…….