Приложение 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.