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

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

57
кнопки на панели инструментов или выборе соответствующей команды из
главного меню.
Ниже в качестве примера приведен текст процедуры, который должен
быть написан для чтения исходных данных из файла для задачи Кавагути,
приведенного в приложении 1.
procedure TCronus.ToolButton2Click(Sender:TObject);
{
Назначение: Чтение исходных данных из файла на диске при нажатии
кнопки на панели инструментов Стандартная
}
var
i : byte;
FN : TextFile;
begin
OpenDialog1.Filter := ‘Исходные данные|*.txt’+’Входные данные|*.dat’;
if OpenDialog1.Execute and FileExists(OpenDialog1.FileName)
then
begin
AssignFile(FN,OpenDialog1.FileName);
Reset (FN);
while not EOF(FN) do
begin
for
i := 1 to 6 do Readln (FN);
Readln (FN,H); Edit1.Text := FloatToStr(H);
Readln (FN,L); Edit1.Text := FloatToStr(L);
for i := 1 to 2 do Readln (FN);
Readln (FN,Ro); Edit1.Text := FloatToStr(Ro);
Readln (FN,My); Edit1.Text := FloatToStr(My);
Readln (FN,U0); Edit1.Text := FloatToStr(U0);
for i := 1 to 2 do Readln (FN);
Readln (FN,Eps); Edit1.Text := FloatToStr(Eps);
Readln (FN,Nx); Edit1.Text := IntToStr(Nx);
Readln (FN,Ny); Edit1.Text := IntToStr(Ny);
Readln (FN);
Readln (FN, NumMet); RadioGroup1.ItemIndex := Num-
Met-1;
for i := 1 to 4 do Readln (FN);
Readln (FN, BVal_W); RadioGroup2.ItemIndex :=
BVal_W-1; 
кнопки на панели инструментов или выборе соответствующей команды из
главного меню.

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

procedure TCronus.ToolButton2Click(Sender:TObject);
{
   Назначение: Чтение исходных данных из файла на диске при нажатии
                  кнопки на панели инструментов Стандартная
}
var
   i        : byte;
   FN       : TextFile;
begin
   OpenDialog1.Filter := ‘Исходные данные|*.txt’+’Входные данные|*.dat’;
   if OpenDialog1.Execute and FileExists(OpenDialog1.FileName)
       then
          begin
             AssignFile(FN,OpenDialog1.FileName);
             Reset (FN);
             while not EOF(FN) do
                begin
                    for i := 1 to 6 do Readln (FN);
                    Readln (FN,H); Edit1.Text := FloatToStr(H);
                    Readln (FN,L);      Edit1.Text := FloatToStr(L);
                    for i := 1 to 2 do Readln (FN);
                    Readln (FN,Ro); Edit1.Text := FloatToStr(Ro);
                    Readln (FN,My); Edit1.Text := FloatToStr(My);
                    Readln (FN,U0); Edit1.Text := FloatToStr(U0);
                    for i := 1 to 2 do Readln (FN);
                    Readln (FN,Eps); Edit1.Text := FloatToStr(Eps);
                    Readln (FN,Nx); Edit1.Text := IntToStr(Nx);
                    Readln (FN,Ny); Edit1.Text := IntToStr(Ny);
                    Readln (FN);
                    Readln (FN, NumMet); RadioGroup1.ItemIndex := Num-
Met-1;
                    for i := 1 to 4 do Readln (FN);
                    Readln (FN, BVal_W);             RadioGroup2.ItemIndex :=
BVal_W-1;
                                     57

Страницы