Автор Ириша задал вопрос в разделе Другие языки и технологии
Задачка в Паскаль =) и получил лучший ответ
Ответ от Дмитрий Алексеевич[гуру]
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.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Задачка в Паскаль =)
спросили в Другое
Помогите, скиньте доклад о Паскале (5 класс)
Доклад: Паскаль (Pascal) Блез
Паскаль (Pascal) Блез (19.VI.1623 - 19.VII.1662) -
подробнее...
Помогите, скиньте доклад о Паскале (5 класс)
Доклад: Паскаль (Pascal) Блез
Паскаль (Pascal) Блез (19.VI.1623 - 19.VII.1662) -
подробнее...
спросили в Напитки
Вино из помидоров. Что известно о производстве этого удивительного вина?
#yaimg589304#
Можно ли изготовить вино из нетрадиционного материала – винограда, а, например,
подробнее...
Вино из помидоров. Что известно о производстве этого удивительного вина?
#yaimg589304#
Можно ли изготовить вино из нетрадиционного материала – винограда, а, например,
подробнее...
спросили в Смысл
мини сочинение по теме смысл жизни
Смысл жизни любого человека – в счастье и в том, что делает (и способно сделать) его счастливым
подробнее...
мини сочинение по теме смысл жизни
Смысл жизни любого человека – в счастье и в том, что делает (и способно сделать) его счастливым
подробнее...
спросили в Философия
как понимают смысл жизни великие люди. нужно написать реферат. помогите
все понимают по разному. .
🙂
.. почитай, и попробуй чем нибудь подумать
Смысл
подробнее...
как понимают смысл жизни великие люди. нужно написать реферат. помогите
все понимают по разному. .
🙂
.. почитай, и попробуй чем нибудь подумать
Смысл
подробнее...