CHR

Chr adalah perintah untuk mencetak karakter tambahan, yang disebut dengan kode ASCII (American Standard Code for Information Interchange). Kode ASCII terdiri dari 256 karakter,lebih tepat nya dari mulai 0 sampai 255. Jika kelak kita ingin membuat kotak pada modus text kita dapat menggunakan perintah chr;

Bentuk umum :

Chr(Nomor Kode ASCII)

Contoh :

 

Uses crt;

Var i:integer;

Begin

Clrscr;

Writeln(‘Chr(179= ‘,chr(179));

Writeln(‘Chr(205= ‘,chr(205));

Writeln(‘Chr(189= ‘,chr(189));

Writeln(‘Chr(171= ‘,chr(171));

Writeln(‘Chr(172= ‘,chr(172));

Writeln(‘tekan Enter untuk melanjutkan’);readln;

Clrscr;

For i := 0 to 255 do write(‘chr(i)+’ ‘);

Writeln;writeln;

Write(‘Tekan Enter untuk melanjutkan’);readln;

Clrscr;

For i := 1 to 79 do write(chr(205));

Writeln;

For i := 1 to 79 do write(chr(220));

Readln;

End.

Kembali ke Contoh Program Turbo Pacal