9 класс Информатика ГДЗ учебник Босова Параграф 2.2

9 класс Информатика ГДЗ учебник Босова Параграф 2.2. Одномерные массивы целых чисел

Стр.84-86.

Ответы на вопросы

Презентацию можно дополнить слайдами, демонстрирующими примеры кодов для создания, заполнения, вывода и обработки массивов, а также визуальные схемы, показывающие процесс сортировки и поиска в массивах.
Массив не может одновременно содержать целые и вещественные значения, так как массив предполагает однотипность своих элементов.
Описание массива необходимо для выделения памяти нужного размера и указания типа данных, которые будут храниться в массиве.
a) Массив будет содержать случайные значения в диапазоне от -50 до 50.
б) Массив будет заполнен последовательными числами от 1 до 20.
в) Массив будет содержать первые пять нечетных чисел (1, 3, 5, 7, 9).

Программа для подсчета количества жильцов в 30 домах:

program n_3;
const
n = 30;
var
i, s: integer;
a: array [1..n] of integer;
begin
 randomize;
 for i := 1 to n do
 begin
   a[i] := random(151) + 50;
   writeln('a[', i, '] = ', a[i]);
 end;
 s := 0;
 for i := 1 to n do
   s := s + a[i];
   writeln('Total inhabitants: ', s);
 end.

program n_3;

const

n = 30;

var

i, s: integer;

a: array [1..n] of integer;

begin

randomize;

for i := 1 to n do

begin

a[i] := random(151) + 50;

writeln('a[', i, '] = ', a[i]);

end;

s := 0;

for i := 1 to n do

s := s + a[i];

writeln('Total inhabitants: ', s);

end.

На столе останется самое маленькое яблоко. Инвариантом цикла является условие, что на столе всегда находится наименьшее из рассмотренных яблок.

Программа для вычисления средней температуры:

program avg_temp;
var
i: integer;
temp: array [1..7] of real;
sum, avg: real;
begin
sum := 0;
for i := 1 to 7 do
begin
  writeln('Введите температуру за день ', i, ': ');
  readln(temp[i]);
  sum := sum + temp[i];
end;
avg := sum / 7;
writeln('Средняя температура за неделю: ', avg:4:2);
end.

program avg_temp;

var

i: integer;

temp: array [1..7] of real;

sum, avg: real;

begin

sum := 0;

for i := 1 to 7 do

begin

writeln('Введите температуру за день ', i, ': ');

readln(temp[i]);

sum := sum + temp[i];

end;

avg := sum / 7;

writeln('Средняя температура за неделю: ', avg:4:2);

end.

Программа для подсчета максимальных значений в массиве:

program max_count;
var
i, max, count: integer;
a: array [1..10] of integer;
begin
randomize;
for i := 1 to 10 do
  a[i] := random(100);
max := a[1];
count := 1;
for i := 2 to 10 do
begin
if a[i] > max then
begin
  max := a[i];
  count := 1;
end
else if a[i] = max then
  count := count + 1;
end;
writeln('Max value: ', max, ', count: ', count);
end.

program max_count;

var

i, max, count: integer;

a: array [1..10] of integer;

begin

randomize;

for i := 1 to 10 do

a[i] := random(100);

max := a[1];

count := 1;

for i := 2 to 10 do

begin

if a[i] > max then

begin

max := a[i];

count := 1;

end

else if a[i] = max then

count := count + 1;

end;

writeln('Max value: ', max, ', count: ', count);

end.

Программа для подсчета оценок за диктант:

program grades;
const
n = 20;
var
i, grade, twos, threes, fours, fives: integer;
a: array [1..n] of integer;
begin
randomize;
twos := 0; threes := 0; fours := 0; fives := 0;
for i := 1 to n do
begin
  a[i] := random(4) + 2;
  case a[i] of
    2: twos := twos + 1;
    3: threes := threes + 1;
    4: fours := fours + 1;
    5: fives := fives + 1;
  end;
end;
writeln('Twos: ', twos, ', Threes: ', threes, ', Fours: ', fours, ', Fives: ', fives);
end.

program grades;

const

n = 20;

var

i, grade, twos, threes, fours, fives: integer;

a: array [1..n] of integer;

begin

randomize;

twos := 0; threes := 0; fours := 0; fives := 0;

for i := 1 to n do

begin

a[i] := random(4) + 2;

case a[i] of

2: twos := twos + 1;

3: threes := threes + 1;

4: fours := fours + 1;

5: fives := fives + 1;

end;

writeln('Twos: ', twos, ', Threes: ', threes, ', Fours: ', fours, ', Fives: ', fives);

end.

Программа для подсчета претендентов в баскетбольную команду:

program basketball_team;
const
n = 50;
var
i, count: integer;
height: array [1..n] of integer;
begin
randomize;
count := 0;
for i := 1 to n do
begin
  height[i] := random(51) + 150;
  if height[i] >= 170 then
    count := count + 1;
  end;
writeln('Number of candidates: ', count);
end.

program basketball_team;

const

n = 50;

var

i, count: integer;

height: array [1..n] of integer;

begin

randomize;

count := 0;

for i := 1 to n do

begin

height[i] := random(51) + 150;

if height[i] >= 170 then

count := count + 1;

end;

writeln('Number of candidates: ', count);

end.

Программа для нахождения треугольника с наибольшей площадью:

program max_area_triangle;
const
n = 10;
var
i, maxIndex: integer;
maxArea, area: real;
a, b: array [1..n] of integer;
begin
randomize;
maxArea := 0;
for i := 1 to n do
begin
  a[i] := random(50) + 1;
  b[i] := random(50) + 1;
  area := 0.5 * a[i] * b[i];
  if area > maxArea then
  begin
    maxArea := area;
    maxIndex := i;
  end;
end;
writeln('Max area triangle index: ', maxIndex);
writeln('Cathets: ', a[maxIndex], ', ', b[maxIndex]);
writeln('Area: ', maxArea:4:2);
end.

program max_area_triangle;

const

n = 10;

var

i, maxIndex: integer;

maxArea, area: real;

a, b: array [1..n] of integer;

begin

randomize;

maxArea := 0;

for i := 1 to n do

begin

a[i] := random(50) + 1;

b[i] := random(50) + 1;

area := 0.5 * a[i] * b[i];

if area > maxArea then

begin

maxArea := area;

maxIndex := i;

end;

writeln('Max area triangle index: ', maxIndex);

writeln('Cathets: ', a[maxIndex], ', ', b[maxIndex]);

writeln('Area: ', maxArea:4:2);

end.

Программа для сортировки стран по плотности населения:

program country_density;
const
n = 10;
var
i, j: integer;
tempS: real;
tempN: string[20];
p: array [1..n] of string[20];
k, s, density: array [1..n] of real;
begin
// Ввод данных о странах
for i := 1 to n do
begin
  writeln('Введите название страны ', i, ': ');
  readln(p[i]);
  writeln('Введите численность населения страны ', i, ': ');
  readln(k[i]);
  writeln('Введите площадь страны ', i, ': ');
  readln(s[i]);
  density[i] := k[i] / s[i];
end;
// Сортировка по плотности населения
for i := 1 to n-1 do
 for j := i+1 to n do
   if density[i] > density[j] then
   begin
    tempS := density[i];
    density[i] := density[j];
    density[j] := tempS;
    tempN := p[i];
    p[i] := p[j];
    p[j] := tempN;
   end;
// Вывод отсортированных стран
writeln('Страны в порядке возрастания плотности населения:');
for i := 1 to n do
  writeln(p[i]);
end.

program country_density;

const

n = 10;

var

i, j: integer;

tempS: real;

tempN: string[20];

p: array [1..n] of string[20];

k, s, density: array [1..n] of real;

begin

// Ввод данных о странах

for i := 1 to n do

begin

writeln('Введите название страны ', i, ': ');

readln(p[i]);

writeln('Введите численность населения страны ', i, ': ');

readln(k[i]);

writeln('Введите площадь страны ', i, ': ');

readln(s[i]);

density[i] := k[i] / s[i];

end;

// Сортировка по плотности населения

for i := 1 to n-1 do

for j := i+1 to n do

if density[i] > density[j] then

begin

tempS := density[i];

density[i] := density[j];

density[j] := tempS;

tempN := p[i];

p[i] := p[j];

p[j] := tempN;

end;

// Вывод отсортированных стран

writeln('Страны в порядке возрастания плотности населения:');

for i := 1 to n do

writeln(p[i]);

end.

Стек — это структура данных, организованная по принципу LIFO (последним пришел — первым ушел). Очередь — это структура данных, организованная по принципу FIFO (первым пришел — первым ушел). В стеке элементы добавляются и удаляются с одного конца, а в очереди — с разных концов.

§ 2.2