AnnArhiA

я вот немножко разобралась....
написала по примеру вот такой алгоритм, но преподу что-то не понравилось...говорит есть ошибки...а вот что именно тут неправильно - непонятно((

program z_24;
var
k1_paz,k2_paz,k3_paz,d1,d2,k2d1,k2d2:real;
k1_gaz,k2_gaz,k3_gaz:real;
L_paz,L_gaz:real;
a_gaz,a_paz:real;
to_paz_k,to_gaz_k:real;
ttr_paz,ttr_gaz:real; {годовая производственная программа}
f_paz,f_gaz:real;
rt_paz,rt_gaz:integer;
to_paz,to_gaz:real;
q,to_god_paz,to_god_gaz:real;
l1_s,l2_s,l1_h,l2_h:real;
a:array [1..2,1..4] of integer;
s1,s2:string;
i,j:integer;
t:text;
BEGIN
s1:='Паз-3205';
s2:='Газ-3110';
writeln('изменить начальные данные? (1-да,0-нет)');
readln(q);
if q=0 then
begin
assign(t,'data.txt');
reset(t);
for i := 1 to 2 do
begin
for j:= 1 to 4 do
read(t,a[i,j]);
end;
close(t);
end
else begin
writeln('введите кол-во авто',s1,' ',s2);
readln(a[1,1],a[2,1]);
writeln('введите средний пробег для авто №1 и №2',s1,' ',s2);
readln(a[1,2],a[2,2]);
writeln('введти кол-во дней работы для авто №1 и №2',s1,' ',s2);
readln(a[1,3],a[2,3]);
writeln('введти категорию условий экспп. для авто №1 и №2',s1,' ',s2);
readln(a[1,4],a[2,4]);
end;
writeln('Введите коэфф. корректирования K1, K2, k3 для ',s1);
readln(k1_paz,k2_paz,k3_paz);
writeln('Введите коэфф. корректирования K1, K2, k3 для ',s2);
readln(k1_gaz,k2_gaz,k3_gaz);
writeln('Введите норм. трудоемкость ТO для ',s1);
readln(to_paz);
writeln('Введите норм. трудоемкость ТO для ',s2);
readln(to_gaz);
writeln('Введите пробег до ТО для ',s1, ' ', s2);
readln(l1_s,l2_s);
writeln('Введите продолжительность простоя в ТР для ',s1, ' ',s2);
readln(D1,D2);
writeln('Введите коэффициент K2 для продолжительности простоя в ТР для ',s1,' ', s2);
readln(k2D1,K2D2);
{коэф. использ авто a_gaz,a_maz}
a_gaz:=1/(1+a[1,2]*D1*K2D1/1000);
a_paz:=1/(1+a[1,2]*D2*K2D2/1000);
{годовой пробег L_maz L_gaz}
L_paz:=a[1,1]*a[1,2]*a[1,3]*a_paz;
L_gaz:=a[2,1]*a[2,2]*a[2,3]*a_gaz;
{Скорректированная трудоемкость ТO t1_maz_k,t1_gaz_k}
to_paz_k:=to_paz*k2_paz*k3_paz;
to_gaz_k:=to_gaz*k2_gaz*k3_gaz;
{скоректир. пробег до то-1}
l1_h:=l1_s*k1_paz*k3_paz;
l2_h:=l2_s*k1_gaz*k3_gaz;
{годовая производственнаая программа}
to_god_paz:=L_paz*to_paz_k/l1_h;
to_god_gaz:=L_gaz*to_gaz_k/l1_h;
writeln(s1,' - диагностирование общее (Д1) ',to_god_paz*0.15:5:2);
writeln(s1,' - крепежные, регулиров. и др. работы ',to_god_paz*0.85:5:2);
writeln(s2,' - диагностирование общее (Д1) ',to_god_paz*0.08:5:2);
writeln(s2,' - крепежные, регулиров. и др. работы ',to_god_paz*0.92:5:2);
END.

ebco

Может обойтись без файла с массивом данных, просто объявить массив с начальными значениями...