Технический форум - Кодовая таблица, не могу понять

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Кодовая таблица, не могу понять (http://www.tehnari.ru/f41/t71837/)

Кодовая таблица, не могу понять

Задали задачу: выводить кодовую таблицу по 10 символов, спрашивая продолжать ли дальше.
Создала программу, в которой при вводе с клавиатуры любого символа выводится код.. вот:
Program pr1;
Uses CRT;
var i,n:integer;
c:char;
Begin
ClrScr;
Repeat
c:=readkey;
n:=ord(c);
write(c,'=',n,' ');
Until n=27;
Readln;
End.

27-это Esc.. т.е ввожу символы, пока не нажму Esc.. А вот как по 10 символов выводить да ещё и спрашивать..вот этого понять не могу.. Пожалуйста помогите..:tehnari_ru_837:

Цитата:

Сообщение от Altana (Сообщение 716491)

А вот как по 10 символов выводить да ещё и спрашивать..вот этого понять не могу..

Например, так:

Код:

Uses CRT;

var

 i,n,j:integer;

 c,YN:char;

Begin

 ClrScr;

 j:=0;

 Repeat

  Inc(j);

  c:=readkey;

  n:=ord(c);

  write(c,'=',n,' ');

  If j=10 then

   begin

    j:=0;

    Writeln;

    Write('Next line (Y/N)? ');

    YN:=Readkey;

    If (YN='N') or (YN='n') then n:=27

    else

     begin

      GotoXY(1,WhereY);

      Write('                ');

      GotoXY(1,WhereY);

     end;

   end;

 Until n=27;

 Writeln;

 Writeln('Press "Enter" to quit');

 Readln;

End.

И, на будущее, - у нас не принято цепляться к чужим темам.

P.S. Немножко еще подправил - чтобы надпись запроса "исчезала".