Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.09.2009, 17:27   #1
_PROGRAMM_
Участник клуба
 
Аватар для _PROGRAMM_
 
Регистрация: 30.07.2009
Сообщений: 1,601
По умолчанию Компилятор не распазнает функцию readkey и keypressed

помогите, пожалуйста. Мой компилятор не распознает функции readkey и keypressed вот код программы:
Код:
Uses
graph,
ctr;
var s              : integer;
device, mode, a, b : integer;

begin
initGraph(device, mode, 'c:/Pascal/egavga.bgi');

a:=10;
b:=200;
putPixel(a, b, red);
while 1=1 do
begin
s:=ReadKey;
case s  OF
8 :begin
          putPixel(a, b, black);
          a:=a-5;
          PutPixel(a,b,random(10));
      end;
2 : begin
          putPixel(a, b, black);
          a:=a+5;
          PutPixel(a,b,random(10));
      end;
4 : begin
          putPixel(a, b, black);
          b:=a-5;
          PutPixel(a,b,random(10));
      end;
6 : begin
          putPixel(a, b, black);
          a:=a+5;
          PutPixel(a,b,random(10));
      end;
0 : exit;
 else;
  end;{case}
end;{while}
readln;
end.
Не обращайте внимание на ошибки в коде.

В мире нет вечных двигателей, зато есть вечные тормоза...

Блог
_PROGRAMM_ вне форума Ответить с цитированием
Старый 07.09.2009, 17:32   #2
DomiNick
Студент, не
Старожил
 
Аватар для DomiNick
 
Регистрация: 29.01.2009
Сообщений: 2,067
По умолчанию

ReadKey кажется возвращает Char а не Integer.....



P.S.

Во первых очепятка в третьей строке: не "ctr", а "crt"
А во вторых надо поменять тип переменной s: "var s: char;" и все варианты в "case" (цифры) поместить в одинарные кавычки...
I am the First of Cyber Evolution...
I am the First to Program your Future...

Последний раз редактировалось DomiNick; 07.09.2009 в 17:40.
DomiNick вне форума Ответить с цитированием
Старый 09.09.2009, 16:06   #3
_PROGRAMM_
Участник клуба
 
Аватар для _PROGRAMM_
 
Регистрация: 30.07.2009
Сообщений: 1,601
По умолчанию

Спасибо. Все заработало. Ошибка в коде была очень тупая.

В мире нет вечных двигателей, зато есть вечные тормоза...

Блог
_PROGRAMM_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как с помощье ReadKey определить что нажата клавиша "Стрелка" Викдон Паскаль, Turbo Pascal, PascalABC.NET 5 05.02.2009 00:47
readkey в Delphi slips Общие вопросы Delphi 3 28.10.2008 21:04
Keypressed RealSHELS Общие вопросы Delphi 3 06.05.2008 21:01
Аналог ClrScr & KeyPressed в Delphi NovaC Общие вопросы Delphi 4 19.12.2007 12:26
Компилятор Simply-Art Свободное общение 1 22.09.2007 11:07