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.
