Цитата:
Код:
if a = 1 then begin
a:=10; потом рисунок - стрелка указывает на 10 балов.
if a = 2 then begin
a:=20; потом рисунок - стрелка указывает на 20 балов.
и.т.д
|
Я бы этот момент реализовал иначе, через оператор
case. То есть примерно так:
Код:
case a of
1: begin
a=10;
....
end;
2: begin
a=20;
....
end;
.
.
.
10: begin
a=100;
....
end;
end;
Вот только как оперировать барабаном - я не в курсе. Да и с ABC Pascal'ем мало знаком.