TUTORIAL PASCAL MENGGUNAKAN "GOTOXY"

Wednesday, September 24, 2014

Tampilan program yg akan dibuat :







Script TPW 1.5 :

Program Tugas1B;
     USES
                WINCRT;
BEGIN

                CLRSCR;
{yg akan ditampilkan didalam program}
GOTOXY(20,5);WRITE('BIODATA');
GOTOXY(4,9);WRITE('------------------------------------------------------');
GOTOXY(5,10);WRITE('NAMA');
GOTOXY(4,11);WRITE('------------------------------------------------------');
{posting by http://stmikmac14.blogspot.com/}
GOTOXY(5,12);WRITE('AHMAD SYAUQI');
GOTOXY(20,10);WRITE('NIM');
GOTOXY(20,12);WRITE('3101 1402 2656');
GOTOXY(40,10);WRITE('TTL');
GOTOXY(40,12);WRITE('TANJUNG REEDEB');
GOTOXY(40,13);WRITE('06 SEPTEMBER 1993');

READLN;

END.

No comments:

Post a Comment

Terimakasih atas commentnya yah :)