[Mark Castle]

Сообщение от Cliffe Snake

2Mark Castle. Чувак, у тебя с логикой полный пипец.

( u<43 ) and ( u<38 ) это равносильно ( u<38 )
Иди почитай теорию по связке логических выражений. Я думаю, вряд ли кто на форуме захочет учить тебя таким ЭЛЕМЕНТАРНЫМ вещам.
Ясный пень, что у тебя ничё не работает.
И кому интересно я говорил, что для вызова процедуры из других процедур нужно использовать FORWARD;?

После строки

procedure aaaaaaa; 


Вставь эту

Forward; 


Тоесть:


procedure aaaaaaa;
forward;

begin
Q:=70;
U:=0;
if (q<x) and (q>(x+19)) and (u<38 ) then
halt;
end;

procedure bombarding;
begin
q:=50;
u:=0;
if (q>x) and (q<(x+19)) and (u<38 ) then

aaaaaaa;

end;

так?