Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
12 / 12 / 0
Регистрация: 16.04.2010
Сообщений: 156
1

Вывести список республик с указанием плотности населения и количества больниц на 1000 человек

25.04.2010, 18:13. Показов 2604. Ответов 5
Метки нет (Все метки)

Таджикистан, Молдавия, Украина. Напечатать список республик, указав плотность населения, число школ и больниц, приходящихся на 1000 человек.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2010, 18:13
Ответы с готовыми решениями:

Напечатать список республик, указав плотность населения число школ и больниц, приходящихся на 1000 человек
Таджикистан, Молдавия, Украина. Напечатать список республик, указав плотность населения число школ...

Киргизия, Литва, Азербайджан. Напечатать список республик в порядке неубывания плотности населения
9. Киргизия, Литва, Азербайджан. Напечатать список республик в порядке неубывания плотности...

Таджикистан, Молдавия, Украина. Напечатать список республик указав плотность населения
Таджикистан, Молдавия, Украина. Напечатать список республик указав плотность ночть населения,...

Дан список стран с указанием занимаемой площади и численности населения. Вывести названия стран с максимальной площадью
Решить задачу по обработке записей: Дан список стран с указанием занимаемой площади и численности...

__________________
5
1915 / 1065 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
25.04.2010, 18:15 2
Цитата Сообщение от Ишка Посмотреть сообщение
приходящихся на 1000 человек
а как считается сколько должно быть на 1000 человек?
0
12 / 12 / 0
Регистрация: 16.04.2010
Сообщений: 156
25.04.2010, 18:50  [ТС] 3
Это уже не надо.А вот другой пример Армения, Латвия, Белоруссия. Напечатать название республики с минимальной обеспеченностью больницами. я просто перепутал примеры.
0
1915 / 1065 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
25.04.2010, 18:52 4
Pascal
1
2
3
4
5
6
7
8
min:=-1;
for i:=1 to n do
 if x[i].bol<min then
  begin
   min:=x[i].bol;
   imin:=x[i].name;
  end;
Writeln('Min: ',imin);
x[i].bol - кол-во больниц в республике
x[i].name - название республики
min - минимум
1
12 / 12 / 0
Регистрация: 16.04.2010
Сообщений: 156
25.04.2010, 18:55  [ТС] 5
А сможешь еще это сделать: Казахстан, Узбекистан, Туркмения, Киргизия. Напечатать названия республик в порядке неубывания плотности населения.
0
1915 / 1065 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
25.04.2010, 19:08 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
uses crt;
const n=4;
type rec=record
      name:string;
      pl:integer;
     end;
var x:array[1..n] of rec;
    i:integer;
 
procedure Sort;
var i,imin,j,k:integer;
    tmp:rec;
begin
for i:=1 to n-1 do
 begin
  imin:=i;
  for j:=i+1 to n do
   if x[j].pl>x[imin].pl then
    imin:=j;
   if imin<>i then
    begin
     tmp:=x[i];
     x[i]:=x[imin];
     x[imin]:=tmp;
    end;
 end;
end;
 
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write(' Plotnost: ');
   Readln(pl);
  end;
Writeln('-------------------');
Writeln('||  Name  |  PL  ||');
Writeln('-------------------');
for i:=1 to n do
 Writeln('||',x[i].name:8,'|',x[i].pl:6,'||');
Writeln('-------------------');
Sort;
for i:=1 to n do
Writeln(i,': ',x[i].name);
Readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2010, 19:08

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Разработать программу для вычисления плотности населения, площади района и количества жителей
Всем доброго времени суток! Прошу помочь мне написать код программы на языке Delphi исходя из...

Вывести список подпапок с указанием количества файлов в этих папках
Здравствуйте. С Новым годом! Хочу получить информацию по количеству подпапок и файлов во всех...

Программа должна вывести список из трёх наиболее популярных задач с указанием количества запросов по ним
На автозаправочных станциях (АЗС) продается бензин с маркировкой 92, 95 и 98. В городе N был...

Класс Государство (вычисление плотности населения, отношения числа жителей столицы к общей численности населения)
Помогите составить прогу: Напишите программу, которая будет включать описание указанного ниже...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.