Program Gotoxy 2

Program_Gotoxy2

Uses crt;

Var

Kata1, kata2:char;

r:real; b:boolean;

Begin

Clrscr;

Gotoxy (10, 4); write ( 'karakter:', kata1:5); readln (kata1);

Gotoxy (30, 4); write ( ''); readln (kata2);

Gotoxy (10, 6); write ( 'STMIK:', kar:4) ; readln (kar);

Gotoxy (10, 7); write ( 'Jumlah Angka:', x:5); readln (x);

Gotoxy (10, 8); write ( 'Bilangan Realnya:', r:10:2); readln (r);

Writelnf ( '-----------------------------------------');

Gotoxy (10, 10); writeln ( 'Hasil Booleannya:', b:5);

End.