bahan uas 1b

Program Data_Mahasiswa;

Uses Crt;

Type Mahasiswa = Record

NoMhs : Word;

Nama : String[20];

IPK : Real;

Usia : Byte;

End;

Var Filemhs : File of Mahasiswa;

x,y:shortint;

Data : Mahasiswa;

Pil,Ul : Char;

Procedure Menu;

Begin

textbackground(1);

Clrscr;

for x:=1 to 80 do

for Y:=1 to 24 do

begin

textcolor(11);

gotoxy(X,Y);write(CHR(178));

end;

Baca lebih lanjut