[Hunter US]

Я вот написал код программы и не знаю как его можно сделать продуктивней (как то с помощю циклов или как то иначе).
Помогите пожалуйста. Заранее спасбо.
Програма прилагается.

[Hunter US]

Вот програма.

[angvelem]

Код конечно радует:

Код:

   if i<i then ii:=0
      else if i=i then ii:=1
           else if i>i then ii:=2 ;

[Hunter US]

Это я чтобы понятнее,... и не наделать ошибок.

[angvelem]

Это шутка такая? Можешь объяснить, что этот код делает?

[Hunter US]

Вот я и говорю, сделать так чтобы это не казалось шуткой.
Код считает то что прилагалось в ексельовском документе (только там изначально условие уже посчитаное).