![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() |
scorpzx |
![]()
Сообщение
#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 он ведёт себя странно, сразу же после запуска вылетает. Я так думаю что чтото с переменными :/ Ткните пожалуйста носом что я сделал не правильно. |
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 8:16 |