Автор Ириша задал вопрос в разделе Другие языки и технологии
Задачка в Паскаль =) и получил лучший ответ
Ответ от Дмитрий Алексеевич[гуру]
eoln - знаете зачем?
делайте по другому цикл - делать пока не нажата клавиша ентер (получайте код клавиши в переменную кейпресом и сравнивайте с #13
do
рисуете строку, если дошли до конца- перерисовка с начала
while key<>#13
Ответ от Romnet[гуру]
Попробуйте вот так:
program pr3;
uses crt;
var
x,y:integer;
n:char;
a:boolean;
begin
clrscr;
a:=true;
textcolor(13);
while a=true do
for y:=1 to 25 do
for x:=1 to 80 do
begin
writeln('Ириша ');
delay(1000);
clrscr;
gotoxy(x,y);
if keypressed then if readkey=#13 then a:=false;
end;
end.
Попробуйте вот так:
program pr3;
uses crt;
var
x,y:integer;
n:char;
a:boolean;
begin
clrscr;
a:=true;
textcolor(13);
while a=true do
for y:=1 to 25 do
for x:=1 to 80 do
begin
writeln('Ириша ');
delay(1000);
clrscr;
gotoxy(x,y);
if keypressed then if readkey=#13 then a:=false;
end;
end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Задачка в Паскаль =)