Algoritma 2

Tugas Algoritma 2 (20 Maret 2017)

program data_nilai_mahasiswa;
uses crt;

var x.y : integer ;

begin

clrscr;
writeln (' DAFTAR NILAI SEMESTER 1');
writeln ('=========================');
writeln (' Nama      Nilai      Predikat       Ket');
writeln ('=========================');

gotoxy (6,5);   write ('Hengky');
gotoxy (18,5);   write ('98');
gotoxy (22,5);   write ('A');
gotoxy (38,5);   write ('Lulus');

gotoxy (6,6);   write ('Thomas');
gotoxy (18,6);   write ('87');
gotoxy (22,6);   write ('B');
gotoxy (38,6);   write ('Lulus');

gotoxy (6,7);   write ('Habibi');
gotoxy (18,7);   write ('43');
gotoxy (22,7);   write ('D');
gotoxy (38,7);   write ('Perbaikan');

gotoxy (6,8);   write ('Cyntia');
gotoxy (18,8);   write ('72');
gotoxy (22,8);   write ('C');
gotoxy (38,8);   write ('Lulus');

gotoxy (6,9);   write ('Randit');
gotoxy (18,9);   write ('32');
gotoxy (22,9);   write ('E');
gotoxy (38,9);   write ('Tidak Lulus');

gotoxy (1,11);   write ('=========================');

readln;
end;