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;
Tidak ada komentar:
Posting Komentar