Приложение 10. Программа расчета величины ущерба (главный модуль)

Приложение 10

Программа расчета величины ущерба
(главный модуль)

uses Crt, Mathem, NewUnit, Calc_Z;

var

StepOfTime: Integer;

begin

ClrScr;

WriteLn (' Введите имя файла без расширения ');

Read (FileName);

FileOpen(FileName + '.dat', DataFile);

FileOpen (FileName + '.prf', ProfFile);

FileOpen(FileName + '.res', ResFile);

WriteLn (' Ввод общих сведений об аварии. <V/N>');

if Yes then InpData;

(ReadData (Data);)

WriteLn (' Ввод сведений о профиле трассы.<V/N>');

if Yes then InpProfil (Data.L);

WriteLn ('Для расчетов нажмите. <V/N>');

if Yes then

begin

ReadData (Data);

ReadProf (Data.L, Z);

PlotProfil (Z);

Calc_V1 (V1);

Calc_V2(StepOfTime, V2);

Calc_V3 (Data.Zadv1, Data. Zadv2, V3);

Calc Zemlja;

Calc_Woda;

Calc_Atmosfera;

WriteRes;

end

Close (DataFile);

Close (ProfFile);

Close (ResFile)

end.