![]() |
![]() ![]() |
![]() |
tatianka |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Женский Реальное имя: Татьяна Репутация: ![]() ![]() ![]() |
Проблема с написанием модуля с динамическими данными , помогите пожалуйста)
исходный код программы. код (Показать/Скрыть)
Не забываем заключать исходный код в соответствующие теги! Сообщение отредактировано: APAL - 28.05.2013 14:03 |
APAL |
![]()
Сообщение
#2
|
![]() Смотрю... ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: ![]() ![]() ![]() |
Код ... if (keypressed) then begin key:=readkey; ... Желательно добавить: if Key=#0 then Key:=ReadKey; -------------------- |
tatianka |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 2 Пол: Женский Реальное имя: Татьяна Репутация: ![]() ![]() ![]() |
Модуль к проге, компилируется, но не дружит с главной, помогите плиз)
Unit MyMod3; interface uses crt; const maxwidth =10; type spoint=record x:integer; y:integer; end; snakebody=array [1..maxwidth] of spoint; function checknext(var s:snakebody; width:byte; x,y:integer):boolean; procedure movesnake (var nx,ny:integer; x,y:integer; e:spoint; s:snakebody; width:byte); implementation function checknext; var isset:boolean; i:integer; begin isset:=true; for i:=1 to width do begin if (x=s[i].x) and (y=s[i].y) then isset:=false; end;end; procedure movesnake; var i:integer; begin for i:=1 to width do begin s[i]:=s[i+1]; end; s[width].x:=x; s[width].y:=y; if (x=e.x) and (y=e.y) then begin width:=width+1; s[width].x:=x; s[width].y:=y; end; readln; end;end. Сообщение отредактировано: tatianka - 31.05.2013 14:44 |
APAL |
![]()
Сообщение
#4
|
![]() Смотрю... ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: ![]() ![]() ![]() |
tatianka, для кого я в первом Вашем посте делал красную надпись?
Это уже просто неуважение! К тому же Вы не пишите подробностей - что значит "не дружит", что выдает при компиляции/запуске, текст ошибки? За Вас тут никто не будет разбираться в чужом коде - хотите помощи? - укажите в чем нужна помощь, а не отделывайтесь общими фразами. Тему закрываю! Если создадите новую тему, надеюсь она будет оформлена в соответствии с правилами оформления и будет содержать более конструктивные вопросы..., иначе ее (тему) постигнет та же участь. -------------------- |
![]() ![]() |
![]() |
Текстовая версия | 8.09.2024 5:10 |