Задание 12 Параграф 1.4 ГДЗ Босова 9 класс 2023 (Информатика)
|
Не совпадает с вашим учебником? Посмотрите устаревший решебник |
Решение #1
Рассмотрим вариант решения задания из учебника Босова 9 класс, Просвещение:
12. Занесите информацию о десяти странах мира в массивы NAME (название страны), К (численность населения), S (площадь страны). Напишите программу, выводящую названия стран в порядке возрастания плотности их населения.
Сортировка массива плотности населения производится методом «пузырька». Сортировка происходит по двум массивам: плотности населения и по данным этой сортировки меняется соответственно и массив названий стран.
const
N = 10;
var
name: array [1..N] of string = ('Китай', 'Индия', 'Россия', 'Бразилия', 'Индонезия', 'Нигерия', 'Пакистан', 'США', 'Мексика', 'Бангладеш');
k: array [1..N] of longint = (1411750000, 1414843757, 146424729, 215000000, 277329163, 214568727, 222903998, 301693000, 129150971, 165775000);//численность
s: array[1..N] of longint = (9598960, 3287590, 17075000, 8511970, 1919440, 1267000, 803940, 9363000, 1972550, 130170); // площадь
plt: array[1..N] of real; // плотность начеления
i, j: integer;
c: real;
st: string;
begin
for i := 1 to 10 do
plt[i] := k[i] / s[i];//формирование массива плотности населения
for i := 1 to 10 do //сортировка по плотности
for j := i + 1 to 10 do
if plt[i] > plt[j] then
begin
c := plt[j]; plt[j] := plt[i]; plt[i] := c;
st := name[j]; name[j] := name[i]; name[i] := st;
end;
for i := 1 to 10 do writeln(name[i]:10, ' ', plt[i]:15:2);
end.
Окно вывода:
Россия 8.58
Бразилия 25.26
США 32.22
Мексика 65.47
Индонезия 144.48
Китай 147.07
Нигерия 169.35
Пакистан 277.26
Индия 430.36
Бангладеш 1273.53
Похожие решебники
Популярные решебники 9 класс Все решебники
*К сожалению, временные проблемы с публикацией комментариев с мобильных устройств.