Тема: Процедуры
Показать сообщение отдельно
Старый 14.02.2015, 18:06   #5
Amigo888
Нуждающийся
 
Регистрация: 05.08.2011
Сообщений: 85
Написано 16 полезных сообщений
(для 16 пользователей)
Ответ: Процедуры

Сообщение от Kirillza Посмотреть сообщение
Вот сделал небольшой набросок. Но всё равно не работает.
Begin
procedure otch;
begin
SetColor(255,255,255);
FillRect(0,0,GetWidth,GetHeight);
end;
procedure gorod;
drawtext('[1] Карта',0,0);
repaint;
delay(50000);
procedure karta;
var key,pos,i: integer;
begin
drawtext('[1] Карта',0,0);
repaint;
delay(20);
key:=getKeyClicked;
key:=keyToAction(key);
if key=GA_UP then
begin
cls;
gorod;
end;
until false;
end;

begin
  otch;
  karta;
end.
Кошмар а как оно должно работать? если ты поленился взглянуть в Help...

вот подправил твой код, сверь со своим и проанализируй ошибки, теперь проект хотя бы компилируется...
program xz;
var key,pos,i: integer;
    procedure cls;
    begin
    SetColor(255,255,255);
    FillRect(0,0,GetWidth,GetHeight);
    end;
    
    procedure gorod;
    begin
    drawtext('[1] Карта',0,0);
    repaint;
    delay(50000);
    end;

    procedure karta;
    begin
    drawtext('[1] Карта',0,0);
    repaint;
    delay(20);
    key:=getKeyClicked;
    key:=keyToAction(key);
    if key=GA_UP then
        begin
        cls;
        gorod;
        end;
   end;
begin
  cls;
  karta;  
repeat
until false;
end.
И еще в MidletPascal нельзя объявлять переменные в процедуре(в 2.02 уж точно)
__________________

Последний раз редактировалось Amigo888, 15.02.2015 в 22:53.
(Offline)
 
Ответить с цитированием