align="justify"> write («?», oldCar.name: 15," ?");
write (oldCar.moschnost: 8:3," ?");
write (oldCar.KPD: 4:2);
write («?», oldCar.tvhod: 3:0," ?");
write (oldCar.tvih: 4:0," ?");
write (oldCar.nasos: 5:3," ?");
write (oldrasch.sekrashvoda: 7:3," ?");
write (oldrasch.sekrashtosol: 7:3," ?");
write (oldrasch.sekteplvoda: 8:2," ?");
write (oldrasch.sektepltosol: 8:2," ?");;; ((I=1) and (PRVV=1)) then
begin
ClrScr; («Вже є такі дані»);; ((I=1) and (PRVV=0)) then
begin
write (t, car);; («Дані успішно додані»);; (t); ((I=2) and (VR=0)) then; («Розрахунок не зроблений, так як дані не були введені »);;
end; Vvod (var I: integer); VV, PRVV: integer; m: string; oldrasch: jidkosti; l: file of auto;:=0;; («1 - Ввести дані»); («2 - Вихід в головне меню»); («Будь ласка, зробіть вибір») ; (VV); VV=1 then («Введіть значення потужності N =»); (car.moschnost); («Введіть назву автомобіля car =»); (car.name); («Введіть ККД KPD=»); (car.KPD); (« Введіть температуру на вході T0=»); (car.tvhod); (« Введіть температуру на виході T=»); (car.tvih); («Введіть продуктивність насоса P =»); (car.nasos);:=0;:=car.name; (I, m, PRVV, oldrasch, car);; VV=2;; Raschet (var I , PRVV: integer); R, PRR: integer; m: string; oldrasch: jidkosti; car: auto;:=0;; («1 - Виконати розрахунок»); («2 - Вихід в головне меню»); («Будь ласка, зробіть вибір»); (R); R=1 then («Введіть назву автомобіля car =»); (m);:=0; (f, «fl2.txt»); (f); not eof (f) do (f, oldrasch) ; m=oldrasch.namecar then; («Розрахунок вже був проведений раніше»);:=1;;; (f); PRR=0 then Proverka (I, m, PRVV, oldrasch, car);;
until R=2;; Vivod (var I, PRVV: integer); VI, PRR, j, n, r: integer; m: string; oldrasch: jidkosti;
k: file of jidkosti; Cars: array [1 .. 100] of string [15]; car: auto;:=0;; («1 - Вивести дані»); (« ; 2 - Вихід в головне меню »); (« Будь ласка, зробіть вибір »); (VI); VI=1 then (« Введіть кількість машин, дані для яких ви хочете вивести n=»); (n) ; j:=1 to n do («Введіть назву автомобіля car =»); (Cars [j]);;
assign (k, «fl2.txt»); ("?"); j:=1 to 15 do ("?"); ("?") ; j:=1 to 8 do ("?"); ("?"); j:=1 to 4 do ("?"); ("?"); j:= 1 to 3 do ("?"); ("?"); j:=1 to 4 do ("?"); ("?"); j:=1 to 5 do ("?"); ("?"); j:=1 to 7 do ("?"); ("?"); j:=1 to 7 do («? »); ("?" ); j:=1 to 8 do ("?" ); ("?" ); j:=1 to 8 do ("?" ); ("?"); («? Назва машини? Потужність? ККД? Твх? Твих? Насос? РасхВод? РасхТос? ТеплВода? ТеплТос?"); r:=1 to n do:=cars [r] ; (k);:=0; not eof (k) do (k, oldrasch); Cars [r]=oldrasch.namecar then:=1; (I, m, PRVV, oldrasch, car);;; PRR= 0 then ("?"); j:=1 to 15 do ("?"); ("?"); j:=1 to 8 do ("?"); (« ;?" ); j:=1 to 4 do ("?" ); ("?" ); j:=1 to 3 do ("?" ); («? » ); j:=1 to 4 do ("?"); ("?"); j:=1 to 5 do ("?"); ("?"); j: =1 to 7 do ("?"); ("?"); j:=1 to 7 do ("?"); ("?"); j:=1 to 8 do ("?"); ("?"); j:=1 to 8 do
write(«?»);(«?»);(«?»,m:15,«?»,'данные не виведено, так як
уваги не був проведений «: 62,»? ');; ...
