Program Examlpe3;
type Tsklad = record
nd : integer; // Номер детали
im : string; // имя детали
c : integer; // стоимость детали
k : integer; // план выпуска
g : integer; // год выпуска
otk : integer; // отк
end;
var sklad: array[1..5] of integer;
i,n,s:integer; // s- сумма деталей
begin
write('Введите кол-во ltnfktq n,n<5: '); Readln(n);
//Ввод данных
for i:=1 to n do
begin
writeln('sklad ',i);
write('Номер детали : '); readln(sklad[i]. nd);
write('имя детали : '); readln(sklad[i]. im );
write('стоимость детали : '); readln(sklad[i]. c );
write('план выпуска : '); readln(sklad[i]. k );
write('год выпуска : '); readln(sklad[i]. g );
write('отк : '); readln(sklad[i]. otk);
writeln;
end;
for i:=1 to n do
with sklad[i] do begin
if (g = '2008') then begin
s:=0;
s:=c*k;
writeln(' = ',s:7:2);
end;
readln;
end;
end.
компилятор выдает не объявлен nd не объявлен в типе integer!!!!!! ПОМОГИТЕ!!!!!!
Теги используй, без них программа нечитабельная...
Сообщение отредактировано: volvo -