Цитата:
Сообщение от Altana
А вот как по 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. Немножко еще подправил - чтобы надпись запроса "исчезала".