Введение в технологию программирования. Часть 3. Проект OLYMPUS-D. Коржов Е.Н - 54 стр.

переключателя, обладающего некоторым значением по умолчанию. Ис-
пользуется компонент TRadioGroup с закладки Standart.

    После записи значений данных в соответствующие поля, выбора ме-
тода численного решения задачи и способа расчета вихря на границах по-
лости при нажатии кнопки Ввод выполняется следующая процедура:

procedure TForm2.Button1Click(Sender: TObject);
{
   Назначение: Чтение данных из окна данных в оперативную память
}
begin
   H      := StrToFloat(Edit1.Text);
   L      := StrToFloat(Edit2.Text);
   Alfa := StrToFloat(Edit3.Text);
   Ro := StrToFloat(Edit4.Text);
   My := StrToFloat(Edit5.Text);
   Lamda:= StrToFloat(Edit6.Text);
   Cp := StrToFloat(Edit7.Text);
   Beta := StrToFloat(Edit8.Text);
   case RadioGroup1.ItemIndex of
       0: NumMet := 0; // Явная разностная схема
       1: NumMet := 1; // Неявная разностная схема
       2: NumMet := 2; // Метод контрольных объемов
   end;
   case RadioGroup2.ItemIndex of
       0: BVal_W := 0; // Формулы Тома
       1: BVal_W := 1; // Формулы Вудса
       2: BVal_W := 2; // Формулы Йенсена
       3: BVal_W := 3; // Формулы Тарунина
   end;
   Eps      := StrToFloat(Edit9.Text);
   MaxIter:= StrToInt (Edit10.Text);
   Nx      := StrToInt (Edit11.Text);
   Ny      := StrToInt (Edit12.Text);
   Relax := StrToFloat(Edit13.Text);
   // Закрыть окно ввода или корректировки исходных данных
end;




                                  54