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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

59
}
var
i : byte;
FN : TextFile;
begin
SaveDialog1.Filter := ‘Исходные данные|*.txt’+’Входные данные|*.dat’;
if SaveDialog1.Execute
then
begin
AssignFile(FN,SaveDialog1.FileName);
Rewrite (FN);
for i := 1 to 5 do Write (FN,’ ’); Writeln(FN);
Writeln (FN, ‘Исходные данные для программного комплекса
«KAWAGUTI»’);
for i := 1 to 55 do Write(FN,’*’); Writeln(FN);
for i := 1 to 5 do Write (FN,’ ’); Writeln(FN);
Wrteln (FN,’Версия: 01.01 Дата: 25.11.07’);
Writeln (FN);
for i := 1 to 10 do Write (FN,’ ’);
Writeln (FN, ‘1. Геометрические параметры объекта’);
Writeln (FN,H,‘ – высота полости, м Н);
Writeln (FN,L,’ – ширина полости, м L’);
for i := 1 to 2 do Writeln(FN);
for i := 1 to 10 do Write (FN,’ ’);
Writeln (FN, ‘2. Физические параметры объекта’);
Writeln (FN,Ro,’ – плотность воздуха, кг, м
3
Ro’);
Writeln (FN,My,’ – коэффициент вязкости воздуха, кг/(м*сек)
My’);
Writeln (FN,U0,’ – скорость движения верхней стенки каверны,
м/с U0’);
for i := 1 to 2 do Writeln(FN);
Writeln (FN,Eps);
Writeln (FN, ‘2. Параметры алгоритма’);
Writeln (FN,Eps,’ – точность вычислений Eps’);
Writeln (FN,Nx,’ – количество разбиений каверны вдоль Х-оси
Nx’);
Writeln (FN,Ny,’ – количество разбиений каверны вдоль Y-оси
Ny’);
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,’ ’); 
}
var
   i        : byte;
   FN       : TextFile;
begin
   SaveDialog1.Filter := ‘Исходные данные|*.txt’+’Входные данные|*.dat’;
   if SaveDialog1.Execute
       then
          begin
             AssignFile(FN,SaveDialog1.FileName);
             Rewrite (FN);
             for i := 1 to 5 do Write (FN,’ ’); Writeln(FN);
             Writeln (FN, ‘Исходные данные для программного комплекса
                           «KAWAGUTI»’);
             for i := 1 to 55 do Write(FN,’*’); Writeln(FN);
             for i := 1 to 5 do Write (FN,’ ’); Writeln(FN);
             Wrteln (FN,’Версия: 01.01                       Дата: 25.11.07’);
             Writeln (FN);
             for i := 1 to 10 do Write (FN,’ ’);
            Writeln (FN, ‘1. Геометрические параметры объекта’);
             Writeln (FN,H,‘ – высота полости, м                          Н);
             Writeln (FN,L,’ – ширина полости, м                          L’);
             for i := 1 to 2 do Writeln(FN);
             for i := 1 to 10 do Write (FN,’ ’);
             Writeln (FN, ‘2. Физические параметры объекта’);
             Writeln (FN,Ro,’ – плотность воздуха, кг, м3          Ro’);
             Writeln (FN,My,’ – коэффициент вязкости воздуха, кг/(м*сек)
                                 My’);
             Writeln (FN,U0,’ – скорость движения верхней стенки каверны,
                                 м/с          U0’);
             for i := 1 to 2 do Writeln(FN);
             Writeln (FN,Eps);
             Writeln (FN, ‘2. Параметры алгоритма’);
             Writeln (FN,Eps,’ – точность вычислений               Eps’);
             Writeln (FN,Nx,’ – количество разбиений каверны вдоль Х-оси
                                 Nx’);
             Writeln (FN,Ny,’ – количество разбиений каверны вдоль Y-оси
                                 Ny’);
             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,’ ’);
                                      59

Страницы