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

            Writeln (FN,’ 2 – неявная разностная схема’);
            for i := 1 to 8 do Write (FN,’ ’);
            Writeln (FN,’ 3 – МКЭ’);
            for i := 1 to 8 do Write (FN,’ ’);
            Writeln (FN,’ 4 – метод контрольных объемов’);
            for i := 1 to 5 do Write (FN,’ ’);
            Writeln (FN,’’Способ аппроксимации граничных условий для
                            вихря’);
            for i := 1 to 8 do Write (FN,’ ’);
            Writeln (FN,’ 1 – формулы Тома’);
            for i := 1 to 8 do Write (FN,’ ’);
            Writeln (FN,’ 2 – формулы Вудса’);
            for i := 1 to 8 do Write (FN,’ ’);
            Writeln (FN,’ 3 – формулы Йенсена’);
            for i := 1 to 8 do Write (FN,’ ’);
            Writeln (FN,’ 4 – формулы Тарунина’);
            for i := 1 to 8 do Write (FN,’ ’);
            Writeln (FN,’ 5 – формулы Полежаева – Грязнова’);
            Writeln (FN, NMaxIt, ‘– максимальное число итераций
                      NMaxIt ‘);
            for i := 1 to 2 do Writeln(FN);
            Writeln (FN, PrintStep, ‘– шаг печати    PrintStep ‘);
            CloseFile(FN);
         end;
end; { TCronus.ToolButton4Click }

    Отметим, прежде всего, что до выполнения этого действия пользова-
тель произвел ввод или редактирование исходных данных и нажатие кноп-
ки Ввод в окне Исходные данные. Поэтому значения всех данных для
обеих указанных ситуаций находятся в оперативной памяти компьютера.

    Затем инициализируется действие OnClick для команды Save главно-
го меню, после чего в тело новой процедуры копируется текст процедуры
TCronus.ToolButton4Click. Можно, естественно, создать одну вспомога-
тельную процедуру, выполняющую вышеописанные действия, а в тела
процедур TCronus.ToolButton4Click и TCronus.Save1Click поместить
оператор этой вспомогательной программной единицы.


                                  60