Pascal, Записи

[Nastik]

Ввести названия 10 городов, число зарегистрированных безра-ботных, число занятых и численность населения каждого города. Ес-ли численность населения превышает 700 тыс. человек, то вычислить уровень безработицы по формуле:
U = (bez/zan)*100%, где u - уровень безработицы,
bez - число безработных,
zan - число занятых.

Программа:

program primer;
uses crt;
type dannye=record
     name:string[45];
     bez:real;
     zan:real;
     nasel:real;
end;
var gorod: Array[1..10] of dannye;
    i:integer; u:real;
begin
for i:=1 to 10 do
    begin
    writeln ('Vvedite dannye o', i, '-m dorode');
    writeln ('Vvedite name');
    readln (gorod[i].name);
    writeln ('Vvedite bez');
    readln (gorod[i].bez);
    writeln ('vvedite zan');
    readln (gorod[i].zan);
    writeln ('Vvedite nasel');
    readln (gorod[i].nasel);
    end;
for i:=1 to 10 do
    if gorod[i].nasel>700000 then u:=bez/zan;
writeln ('u=, u);
readkey;
end.

Помогите!!!Мне Паскаль выдаёт ошибку в формуле u:=bez/zan,пишет идентификатор не был объявлен!!!Почему???((((

[Serge_Bliznykov]

for i:=1 to 10 do
  if gorod[i].nasel>700000 then begin
         u:=gorod[i].bez/gorod[i].zan;
         writeln (gorod[i].Name, ' u= ', u:12:5);
  end;

А для чего у Вас в типе для количества населения, количества занятых и безработных используется вещественный (real) тип?! Это что, население может быть 10 человек и ещё четвертушка человека?!
Там нужно что-то типа longInt'а

[Nastik]

АА!!!!Спасибо большое!!!!!!!!!Поняла всё!)))))))))))
да?)))ну наверное можно и в четвертинках и в половинках!))))Ща исправлю!!Спасиб)

[VektorAB]

Неизвестный идентификатор потому что Вы обращаетесь к переменной типа запись как к обычной переменной.

u:=bez/zan;

Так нельзя, нужно писать

u:=gorod[i].bez/gorod[i].zan