|
เขียนรหัสแอสกีด้วยภาษาปาสคาล |
 |
PROGRAM EX_ASCII;
uses crt;
const Title=' ASCII ';
author=' โดย นายองอาจ พรมประไพ';
Var i: byte;
{main}
begin
clrscr;writeln;
writeln(title);
writeln('===================================================');
writeln(author);
writeln('===================================================');
writeln;
for I:=0 to 255 do
begin
write(i:4,chr(I):2);
if i mod 13 = 0 then writeln;
end;
writeln;
write('wait............. ');readln;
end.
|
โดย : นาง ปริศนา อินทุสุต, โรงเรียนสตรีศรีน่าน อ.เมือง จ.น่าน, วันที่ 10 มิถุนายน 2545
|