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

Вот вроде сделал то что ты хотел. Читай Хелп там есть ответы почти на все вопросы(кроме библиотек конечно)
program xz;

procedure cls;
begin
SetColor(255, 255, 255);
FillRect(0, 0, getWidth, getHeight);
end;
procedure gorod;
begin
SetColor(0, 0, 0);
drawtext('1 Карта', 0, 0);
drawtext('2 Карта', 0, 20);
drawtext('3 Карта', 0, 40);
repaint;
delay(5000);
end;

procedure karta;
begin
SetColor(0, 0, 0);
drawtext('Карта', 0, 0);
end;

begin

repeat
cls;
karta;
repaint;
if getKeyClicked = KE_KEY1 then 
begin
cls;
gorod;
end;

until false; 

end.
__________________
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Kirillza (13.06.2015)