Вниз  MobPascal
<< 1 ... 73 74 75 76 77 ... 123 >>
- 26.07.2013 / 16:01
#279507
ВитаминКО
  Супермодератор
ВитаминКО 
Сейчас: Offline
Dimonik, я не экстрасенс.. Код давай
__________________
 わからない！！
- 26.07.2013 / 16:07
#279508
Dimonik
  Пользователь
Dimonik 
Сейчас: Offline
ВитаминКО (26.07.2013/16:01)
Dimonik, я не экстрасенс.. Код давайЕсли не ошибаюсь вот код.

Прикрепленные файлы:
proce.mpas (1.97 кб.) Скачано 834 раза
- 26.07.2013 / 16:32
#279515
ВитаминКО
  Супермодератор
ВитаминКО 
Сейчас: 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 кб.) Скачано 836 раз
- 26.07.2013 / 16:41
#279520
ВитаминКО
  Супермодератор
ВитаминКО 
Сейчас: Offline
А потом "у меня програма не компилироваеца, щито такое?!" "дуратский паскаль!!1!"

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

Какие вам обновления, если вы не знаете, как работают процедуры и функции?
Добавил несколько комманд.. а у вас НЕОЖИДАННО программа не хочет собирать/компилировать/запускаться
__________________
 わからない！！
- 26.07.2013 / 16:43
#279523
Virus-ON
  Пользователь
Virus-ON 
Сейчас: Offline
ВитаминКО, Сравнил размер кода, перекрестился...
- 26.07.2013 / 16:53
#279529
ВитаминКО
  Супермодератор
ВитаминКО 
Сейчас: Offline
Virus-ON, я не только перекрестился..
__________________
 わからない！！
- 26.07.2013 / 16:59
#279531
Virus-ON
  Пользователь
Virus-ON 
Сейчас: Offline
Dimonik, В конце файла мусор.
- 26.07.2013 / 17:04
#279533
ВитаминКО
  Супермодератор
ВитаминКО 
Сейчас: Offline
Вот, читайте. Внимательно.
И прежде чем шумиху поднимать, сто (а то и триста) раз проверьте код.
Если вы считаете, что всё в порядке, ПРИКРЕПЛЯЙТЕ код, больше я гадать не собираюсь и просто проигнорирую пост :)
__________________
 わからない！！

Прикрепленные файлы:
proc.txt (3.23 кб.) Скачано 497 раз
- 26.07.2013 / 17:05
#279534
Dimonik
  Пользователь
Dimonik 
Сейчас: Offline
Virus-ON (26.07.2013/16:59)
Dimonik, В конце файла мусор.На моей мобиле в конце файла не видно никакого мусора. Удалить то,что не видно-невозможно.
- 26.07.2013 / 17:10
#279535
Dimonik
  Пользователь
Dimonik 
Сейчас: Offline
ВитаминКО (26.07.2013/16:32)
Dimonik, где ты берешь эти коды? Переименовываешь исходники от МидлетПаскаля?[code=pascal]program proce; var a,b,x,y:integer; procedure kv(); // Зачем скобки? Процедура не принимает параметров begin Эти коды с инета все.
Если можешь напиши рабочий код,а я проверю у себя
<< 1 ... 73 74 75 76 77 ... 123 >>
Наверх  Всего сообщений: 1221
Фильтровать сообщения
Поиск по теме
Файлы топика (97)