Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

1.Создать массив записей следующего типа:

Страна

Территория в км2

Население млн.человек

Столица

Латвия

67,7

2,6

Рига

Литва

65,2

3,4

Вильнюс

Польша

313

34,8

Варшава

Украина

603,7

50

Киев

Россия

17075,4

139

Москва

Найти и вывести страну с наибольшей плотностью населения.

сделайте пожалуйсто(abc паскаль)

Ответ оставил Гость

Program qw;
uses crt;
Type
   Atlas=Record
       country,capital:string;
       area,people:real;
     end;
   ps=File of atlas;
Var f:ps;
    z,t:atlas;
Begin
  assign(f,1.dat);
  rewrite(f);
    z.country:=Латвия; z.area:=67.7;
    z.people:=2.6; z.capital:=Рига;
    write(f,z);
    z.country:=Литва; z.area:=65.2;
    z.people:=3.4; z.capital:=Вильнюс;
    write(f,z);
    z.country:=Польша; z.area:=313;
    z.people:=34.8; z.capital:=Варшава;
    write(f,z);
    z.country:=Украина; z.area:=603.7;
    z.people:=50; z.capital:=Киев;
    write(f,z);
    z.country:=Россия; z.area:=17075.4;
    z.people:=139; z.capital:=Москва;
    write(f,z);
  Close(f);
  assign(f,1.dat);
  reset(f);
  read(f,t);
  while not(eof(f)) do
    begin
      read(f,z);  
      if t.people/t.area < z.people/z.area then t:=z;
    end;
  close(f);
  writeln(Cтранa с наибольшей плотностью населения:);
  writeln(t.country, (плотность населения равна ,t.people/t.area:9:6, млн на кв.км));
end.