PROGRAM MENGGAMBAR;
USES CRT;
VAR A,B,C,D,E,F,G:INTEGER;
BEGIN
CLRSCR;
WRITELN('TUGAS 1':18);
WRITELN('MENGGAMBAR MOBIL DENGAN PASCAL');
GOTOXY(6,6);
FOR A:=1 TO 8 DO
BEGIN
WRITE('_');
END;
GOTOXY(5,7);
WRITE('/');
FOR B:=1 TO 4 DO
BEGIN
WRITE('_|':2);
END;
WRITE('\');
FOR C:=1 TO 2 DO
BEGIN
WRITE('_');
END;
WRITELN;
FOR D:=1 TO 3 DO
BEGIN
WRITE('.');
END;
WRITE('"','-','@');
FOR E:=1 TO 6 DO
BEGIN
WRITE('-');
END;
WRITE('@');
FOR F:=1 TO 3 DO
BEGIN
WRITE('-');
END;
WRITE('"');
FOR G:=1 TO 3 DO
BEGIN
WRITE('.');
END;
GOTOXY(13,15);
WRITELN('OLEH');
WRITE('ANDIKA GAGAR DWI HADI');
WRITE('(A1C108073)');
READKEY;
END.
Tidak ada komentar:
Posting Komentar