Вниз  MobPascal
- 26.07.2013 / 16:01
ВитаминКО
  Супермодератор

ВитаминКО 
Сейчас: Offline
Dimonik, я не экстрасенс.. Код давай
__________________
 わからない!!
- 26.07.2013 / 16:07
Dimonik
  Пользователь

Dimonik 
Сейчас: Offline
ВитаминКО (26.07.2013/16:01)
Dimonik, я не экстрасенс.. Код давай
Если не ошибаюсь вот код.


Прикрепленные файлы:
proce.mpas (1.97 кб.) Скачано 800 раз
- 26.07.2013 / 16:32
ВитаминКО
  Супермодератор

ВитаминКО 
Сейчас: Offline
Dimonik, где ты берешь эти коды? Переименовываешь исходники от МидлетПаскаля?
  1. program proce;
  2.  var a,b,x,y:integer;
  3.  procedure kv(); // Зачем скобки? Процедура не принимает параметров
  4.  begin
  5.   x:=50;
  6.   y:=50;
  7.   setColor(200,0,0);
  8.   fillRect(x,y,20,20);
  9.   repaint;
  10.   delay(1000);
  11.   setColor(255,255,255);
  12.   fillRect(0,0,220,176);
  13.   repaint;
  14.  end;
  15.  
  16.  procedure key(); // Опять скобки...
  17.   var k:integer;
  18.  begin
  19.   k:=getKeyPressed;
  20.   if k=KE_KEY5 then kv; // Вызов другой процедуры без передачи параметров
  21.  end;
  22.  
  23. begin // Это начало программы
  24.   a:=0;
  25.   b:=0;
  26.   while true do
  27.   begin // Начало цикла
  28.    key; // Вызов проц. без передачи параметров
  29.    setColor(0,200,0);
  30.    fillRect(a,b,5,5);
  31.    repaint;
  32.    delay(120);
  33.   end; // !!! Конец цикла
  34.   begin // А это что?
  35.    key;
  36.    kv;
  37.    delay(1000);
  38.   end; // И это?
  39. end. // Конец программы
Вот этот "рабочий" код..
__________________
 わからない!!


Прикрепленные файлы:
proce.mpas (0.77 кб.) Скачано 800 раз
- 26.07.2013 / 16:41
ВитаминКО
  Супермодератор

ВитаминКО 
Сейчас: Offline
А потом "у меня програма не компилироваеца, щито такое?!" "дуратский паскаль!!1!"

Ещё меня дураком выставить пытаются..

Какие вам обновления, если вы не знаете, как работают процедуры и функции?
Добавил несколько комманд.. а у вас НЕОЖИДАННО программа не хочет собирать/компилировать/запускаться
__________________
 わからない!!
- 26.07.2013 / 16:43
Virus-ON
  Пользователь

Virus-ON 
Сейчас: Offline
ВитаминКО, Сравнил размер кода, перекрестился...
- 26.07.2013 / 16:53
ВитаминКО
  Супермодератор

ВитаминКО 
Сейчас: Offline
Virus-ON, я не только перекрестился..
__________________
 わからない!!
- 26.07.2013 / 16:59
Virus-ON
  Пользователь

Virus-ON 
Сейчас: Offline
Dimonik, В конце файла мусор.
- 26.07.2013 / 17:04
ВитаминКО
  Супермодератор

ВитаминКО 
Сейчас: Offline
Вот, читайте. Внимательно.
И прежде чем шумиху поднимать, сто (а то и триста) раз проверьте код.
Если вы считаете, что всё в порядке, ПРИКРЕПЛЯЙТЕ код, больше я гадать не собираюсь и просто проигнорирую пост :)
__________________
 わからない!!


Прикрепленные файлы:
proc.txt (3.23 кб.) Скачано 459 раз
- 26.07.2013 / 17:05
Dimonik
  Пользователь

Dimonik 
Сейчас: Offline
Virus-ON (26.07.2013/16:59)
Dimonik, В конце файла мусор.
На моей мобиле в конце файла не видно никакого мусора. Удалить то,что не видно-невозможно.
- 26.07.2013 / 17:10
Dimonik
  Пользователь

Dimonik 
Сейчас: Offline
ВитаминКО (26.07.2013/16:32)
Dimonik, где ты берешь эти коды? Переименовываешь исходники от МидлетПаскаля?[code=pascal]program proce; var a,b,x,y:integer; procedure kv(); // Зачем скобки? Процедура не принимает параметров begin
Эти коды с инета все.
Если можешь напиши рабочий код,а я проверю у себя
Наверх  Всего сообщений: 1221
Фильтровать сообщения
Поиск по теме
Файлы топика (98)