profile="http://gmpg.org/xfn/11"> Π’Ρ‹Π²ΠΎΠ΄ Π½Π° экран Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ ASCII, паскаль. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Π’Ρ‹Π²ΠΎΠ΄ Π½Π° экран Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ ASCII, паскаль.

Π’Ρ‹Π²ΠΎΠ΄ Π½Π° экран Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ ASCII, паскаль.
Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅ΠΌ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΡŽ Chr().
ΠžΠΏΠ΅Ρ€Π°Ρ†ΠΈΡŽ Mod примСняСм для создания ΠΊΠΎΠ»ΠΎΠ½ΠΎΠΊ.

program ASCII_Tabl;

  {Π’Ρ‹Π²ΠΎΠ΄ Π½Π° экран Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ ASCII паскаль}
const
  N = 255;
var
  i: byte;
begin
  Writeln('Π’Ρ‹Π²ΠΎΠ΄ Π½Π° экран Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ ASCII паскаль:');
  for i := 1 to N do
  begin
    if (i mod 4) = 0 then
      Writeln;
    Write(i: 4, ' = ', chr(i), ' |  ');
  end;

  //Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹
  WriteLn('НаТмитС <Enter>, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ΠΉΡ‚ΠΈ.');
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
Π’Ρ‹Π²ΠΎΠ΄ Π½Π° экран Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ ASCII паскаль
Π’Ρ‹Π²ΠΎΠ΄ Π½Π° экран Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ ASCII Π² ПаскалС.

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.