Цикл с условиями. Delphi.

[ZdSaliery]

Здравствуйте! Столкнулся с небольшой проблемой - понимаю ее с логической стороны, но знания языка не достаточны. Суть такова - программе вводятся данные по ФАР, и в следствии этих данных она рисует топологию, которую можно в последующем использовать при расчетах в САПР. Мне необходимо было внести изменения позволяющие менять фазу по определенному закону(y=x;x^2;x^3). Характеризуется данное изменение тем что фаза может меняться либо по одной оси - либо по окружности, естественно с разными формулами. Реализация данной функции сделана через checkbox1.
Теперь сама проблема - при попытке ввести 3 checkbox'a с условиями выбора закона изменения(Линейный, Квадратичный, Кубичный), так что если выбран один - оставшиеся два не выбирались и расчет проводился уже от условия выбора checkbox1 - привел к тому что программа воспринимает мои условия как просто текст - и считает все подряд, чего мне естественно не надо. Кто-нибудь подскажите пожалуйста, как это сделать.
Собственно сам текст:

for Q:=0 to (sqr(N)-1) do
begin
W1:=10000;
I:=Q mod N;  // nomer stolbza elementa
G:=Q div N;   //  nomer stroki elementa
HX:=D*(Abs(I+1/2)-N/2); //koordinata X elementa
HY:=D*(Abs(G+1/2)-N/2);   //koordinata Y elementa
L:=sqrt(sqr(HX-FX)+sqr(HY-FY)+sqr(H));  //rasstoianie ot elementa do fokusa
Beta:=Koef/sqr(D*((N-1)/2));
       if  checkbox3.Checked=True then    //lineinaia
             begin
             checkbox4.enabled:=False;
             checkbox5.enabled:=False;
             end
             else
             ShowMessage ('Нужно выбрать только один закон изменения');
             end;
  begin
            if checkbox2.Checked=False then
            begin
               F1:=(формула для расчета по одной оси)
            end 
            else
            begin
               F1:=(формула для расчета по окружности);
            end;
      if  checkbox4.Checked=True then       //kvadrati4naia
            begin
      checkbox3.Checked:=False;
      checkbox5.checked:=False;
end
else
ShowMessage ('Нужно выбрать только один закон изменения');
 end;
 if checkbox2.Checked=False then
            begin
               F1:=(формула для расчета по одной оси);
            end
            else
             begin
               F1:=(формула для расчета по окружности);
            end;
      if  checkbox5.Checked=True then        //kubi4naia
         begin
          checkbox3.Checked:=False;
          checkbox4.checked:=False;
end
          else
ShowMessage ('Нужно выбрать только один закон изменения');
            end;
            if checkbox2.Checked=False then
            begin
               F1:=(формула для расчета по одной оси);
              end
            else
             begin
               F1:=(формула для расчета по окружности);
            end;
      Fi:=F1-360*trunc(F1/360);
        if Fi>180 then
        Fi:=Fi-360;

[Аватар]

В алгоритм не вникал, но явно с блоками begin ... end чехарда

[ZdSaliery]

А как обойтись без них? И ваще возможна ли реализация такая?

[Аватар]

Без них не нужно обходиться. Их нужно правильно расставить

[ZdSaliery]

Аватар, не могли бы вы подсказать каким образом. Правда, плохо знаю язык, но главное же мотивация =)

[Аватар]

Ну сначала код отформатировать так, что бы было видно где операторный блок начинается и где заканчивается. Отступами нормальными а не крендебобильно

[ZdSaliery]

Не совсем наверное наглядно, ну вот примерно вот так вот. Посоветовали еще OnClick сделать, не совсем понимаю что это?

if  checkbox3.Checked=True then    //Линейный
        begin
              checkbox4.enabled:=False;
              checkbox5.enabled:=False;
        end
         else
             ShowMessage ('Нужно выбрать только один закон изменения');
        end;
         begin
if checkbox2.Checked=False then
              begin
              F1:=(формула для расчета по одной оси)
         end 
          else
              begin
              F1:=(формула для расчета по окружности);
         end;
if  checkbox4.Checked=True then       //Квадратичный
         begin
             checkbox3.Checked:=False;
             checkbox5.checked:=False;
         end
          else
             ShowMessage ('Нужно выбрать только один закон изменения');
         end;
if checkbox2.Checked=False then
         begin
               F1:=(формула для расчета по одной оси);
         end
            else
             begin
               F1:=(формула для расчета по окружности);
            end;
if  checkbox5.Checked=True then        //Кубичный
          begin
            checkbox3.Checked:=False;
            checkbox4.checked:=False;
         end
           else
             ShowMessage ('Нужно выбрать только один закон изменения');
            end;
if checkbox2.Checked=False then
          begin
               F1:=(формула для расчета по одной оси);
          end
            else
             begin
               F1:=(формула для расчета по окружности);
          end;

[Аватар]

И че толку от такого форматирования? В исходники любого юнита делфи загляните

[ZdSaliery]

Хорошо, признаю, я не умеют делать то, что вы просите... Но давайте отбросим эти визуальные преобразования, и переступим через ваши профессионально-эстетические взгляды на форматирование текста... Вы можете подсказать мне где я ошибаюсь,мне действительно нужна подсказка человека разбирающегося в Delphi...

[syrj]

Вот немного поправил ваш код. В своих проектах я делаю выбор через case of, так для процессора меньше работы и нагрузка меньше.

if  checkbox3.Checked=True then    //Линейный
begin
    checkbox4.enabled:=False;
    checkbox5.enabled:=False;
end;
    if  checkbox3.Checked=False then
begin
    ShowMessage ('Нужно выбрать только один закон изменения');
end;

if checkbox2.Checked=False then
begin
    F1:=(формула для расчета по одной оси)
end
else
    F1:=(формула для расчета по окружности);

    if  checkbox4.Checked=True then       //Квадратичный
begin
    checkbox3.Checked:=False;
    checkbox5.checked:=False;
end;

if  checkbox4.Checked=False then
begin
    ShowMessage ('Нужно выбрать только один закон изменения');
end;

if checkbox2.Checked=False then
begin
    F1:=(формула для расчета по одной оси);
end
else
   F1:=(формула для расчета по окружности);

if  checkbox5.Checked=True then        //Кубичный
          begin
            checkbox3.Checked:=False;
            checkbox4.checked:=False;
         end
if  checkbox5.Checked=False then
begin
             ShowMessage ('Нужно выбрать только один закон изменения');
end;
if checkbox2.Checked=False then
          begin
               F1:=(формула для расчета по одной оси);
          end
            else
               F1:=(формула для расчета по окружности);

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.