Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ помощь в графике

Автор: shikaka 22.06.2006 10:00

Люди,здравствуйте! Помогите ответить на вопрос срочно надо: для чего в этой подпрограмме переменная К и что она делает!!!!!HELP!!!!!

procedure Vystrel(L:integer);  {procedura prorisovki vystrela}
var X,Y,X0,Y0:integer;
k:longint;
t:real;
FillInfo:FillSettingsType;
OldPattern:FillPatternType;
Begin
X0:=10+trunc(80*cos(pi*(90-L)/180)); {nachalnaya tochka vyhoda snaryada}
Y0:=-10+GetMaxY-trunc(80*sin(pi*(90-L)/180));
Y:=Y0;
t:=0;
L:=90-L;
k:=0;
while (y<480)and(y>0) do {granici ekrana}
begin
t:=t+0.03;{t-dlya vychislenie pologeniya snaryada param uravnenie}
inc(k);
if k mod 10=0 then
Cell(0); {zapusk dvigeniya celi}
X:=X0+trunc(v0*t*cos(pi*L/180)); {prochitivaem sled tochku poleta snaryada}
Y:=Y0-trunc(v0*t*sin(pi*L/180))+trunc(5*t*t);
If (abs((XC-15)-X)<20)And(abs(H1-Y)<15) then {esli popali v cell}
begin
C:=Black;
Vzriv(X,Y);{vzriv}
break;{ostanovka snaryada}
end;
SetColor(White);
Sector(X,Y,0,360,3,3);
delay(100);
GetFillSettings(Fillinfo); {prorisovka poleta snaryada}
SetFillPattern(OldPattern,Black);
SetColor(black);
Sector(X,Y,0,360,3,3); {risuem malenkiy krug}
with FillInfo do
SetFillStyle(Pattern, Color); {zakrashivaem}
if k mod 10 =0 then
Cell(0); {zapusk dvigeniya celi}
end;
End;


Теги !
klem4

Автор: lapp 22.06.2006 16:25

Цитата(shikaka @ 22.06.2006 7:00) *

для чего в этой подпрограмме переменная К и что она делает!

Судя по комментариям (точнее трудно сказать, так как процедура Cell отсутствует), она каждые 10 шагов запускает некую "цель".
Почему-то (??) это делается даже дважды.