IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Непонятки
scorpzx
сообщение 25.04.2005 21:09
Сообщение #1


Гость






Здравствуйте Есть следующий код:


uses crt;
const x=30;
var zah,wibor:integer;

procedure showtext;
begin
gotoxy(35,10);
write('test1');
gotoxy(35,11);
write('test2');
gotoxy(35,12);
write('test3');
gotoxy(35,13);
write('test4');
gotoxy(35,14);
write('test5');
gotoxy(35,15);
write('test6');
end;

procedure wib;
var posiz:integer;
stop:boolean;
s:integer;
procedure showkursor;
begin
gotoxy(x,s); write(' ');
gotoxy(x,posiz); write('===>');
s:=posiz;
end;
begin
posiz:=16;
repeat
if keypressed then begin
case readkey of
#72:if posiz>10 then begin posiz:=posiz-1; showkursor; end;
#80:if posiz<15 then begin posiz:=posiz+1; showkursor; end;
#27:stop:=true;
end;
end;
until stop=True;
end;

begin
clrscr;
showtext;
wib;
end.



Он компилируется бес проблем на ТМТ паскале.. но при попытки откомпилировать его же на turbo pascale 7.0 он ведёт себя странно, сразу же после запуска вылетает. Я так думаю что чтото с переменными :/ Ткните пожалуйста носом что я сделал не правильно.
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
klem4
сообщение 5.05.2005 19:26
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


программа корректно завершает работу только при нажатии <Esc>
при нажатии 'A' и 'B' выводит надпись, как ты и хотел.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 29.07.2025 18:51
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"