eoln в паскале



Автор Ириша задал вопрос в разделе Другие языки и технологии

Задачка в Паскаль =) и получил лучший ответ

Ответ от Дмитрий Алексеевич[гуру]
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.

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Задачка в Паскаль =)

Проблема с pascal
s := ''; x1:=0; x2:=0;
repeat
read(f, ch); if ch<>#32 then s:=s+ch;
until
подробнее...
спросили в Другое
Помогите, скиньте доклад о Паскале (5 класс)
Доклад: Паскаль (Pascal) Блез

Паскаль (Pascal) Блез (19.VI.1623 - 19.VII.1662) -
подробнее...
спросили в Напитки
Вино из помидоров. Что известно о производстве этого удивительного вина?
#yaimg589304#
Можно ли изготовить вино из нетрадиционного материала – винограда, а, например,
подробнее...
спросили в Смысл
мини сочинение по теме смысл жизни
Смысл жизни любого человека – в счастье и в том, что делает (и способно сделать) его счастливым
подробнее...
спросили в Философия
как понимают смысл жизни великие люди. нужно написать реферат. помогите
все понимают по разному. .
🙂
.. почитай, и попробуй чем нибудь подумать

Смысл
подробнее...
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*