Minggu, 12 Desember 2010

Penggunaan GotoXY dan ClrEol





Pendahuluan     
Paskal meyediakan sebuah program untuk meletakan hasil tampulan pada baris dan kolom yang sudah ditentukan oleh karena itu Fungsi Gotoxy lah berperan, sedangkan clreol untuk menghapus baris yang berada disebelah kanan kursor lebih jelas silahkan  dicoba

Isi

Program ini untuk mengetahui program dengan prosedur standar Clrscr, GoTo XY dan ClrEol
Program Prak1a;
uses wincrt;
var nilai : integer;
begin
(*Contoh program dengan prosedur standar Clrscr, GoTo XY dan ClrEol*)
Writeln('Penggunaan prosedur standar Clrscr dan GoToXY');
Writeln('_____________________________________________');
Writeln;
 GoToXY (20,5);
Writeln ('Anda sedang belajar Pascal');
Writeln;
Writeln;
Writeln('Penggunaan prosedur standar ClrEol');
Writeln('__________________________________');
Writeln;
GoToXY (15,10);
Write('Masukkan sebuah nilai integer:');
Readln(Nilai);
GoToXY(15,10);
ClrEol;
Writeln('Anda Pintar !!');
end.

Penutup
Ikutilah rumus tadi

Tidak ada komentar: