

Kód: Vybrat vše
program ascii7;
var r,s,c: integer;
begin
{ horni okraj }
write(' +');
for s:=1 to 21 do
write('-');
writeln('+');
{ horni popisy }
write(' H\L |');
for s:=0 to 9 do
write(s:2);
writeln(' |');
{ oddeleni }
write('+');
for s:=1 to 26 do
if s=5 then
write('+')
else
write('-');
writeln('+');
{ radky }
for r:=3 to 12 do
begin
{ levy popis }
write('| ',r:2,' |');
{ znak }
for s:=0 to 9 do
begin
c:=r*10+s;
if (c>32) and (c<127) then
write(' ',char(c))
else
write(' ')
end;
writeln(' |')
end;
{ spodni okraj }
write('+');
for s:=1 to 26 do
if s=5 then
write('+')
else
write('-');
writeln('+');
{ cekani }
readln
end.
Zpět na “Programování a tvorba webu”
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů