Question

Школьные Знания.com Задай вопрос из школьного предмета 5 - 9 классыИнформатика 5+3 б Помогите пожалуйста!!!! Даю 25 баллов 1)Как можно описать на Паскале массив,в котором будет храниться значения численности населения Москвы к концу каждого года XX века? 2)Вы приобрели котёнка.Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив,в котором будет храниться значения веса котёнка в течение месяца (например,мая)? Напишите фрагмент программы на Паскале ввода исходных данных для массивов, определённых в заданиях 1 и 2. Помогите пожалуйста совсем ничего не понимаю ☹️ Можно пожалуйста хорошую программу)

Answer 1

1)
var population: array[0..99] of longint;

for year := 0 to 99 do begin
    write('Введите население за ', year,' год');
    readln(population[year]);
end;

2)
var weight: array[1..31] of double;

for day:= 1 to 31 do begin
    write('Введите вес на ', day,' число');
    readln(weight[day]);
end;

Answer 2

Конечно, я помогу с обоими заданиями! Вот фрагмент программы на языке Паскаль для описания массивов и ввода исходных данных:

1. Описание массива для численности населения Москвы к концу каждого года XX века:

pascalCopy code
program Population;

const
  YearsCount = 101; // Век начинается с 1901 и заканчивается в 2000
  YearStart = 1901; // Начальный год

var
  PopulationArray: array[1..YearsCount] of Integer;
  Year: Integer;

begin
  // Ввод данных для массива
  for Year := 1 to YearsCount do
  begin
    writeln('Введите численность населения Москвы к концу ', YearStart + Year - 1, ' года:');
    readln(PopulationArray[Year]);
  end;

  // Вывод данных массива для проверки
  for Year := 1 to YearsCount do
    writeln('Конец ', YearStart + Year - 1, ' года: ', PopulationArray[Year]);
end.

2. Описание массива для веса котёнка в течение месяца:

pascalCopy code
program KittenWeight;

const
  DaysCount = 31; // Предполагаем, что месяц не больше 31 дня
  Month = 'Май'; // Название месяца

var
  WeightArray: array[1..DaysCount] of Real;
  Day: Integer;

begin
  // Ввод данных для массива
  for Day := 1 to DaysCount do
  begin
    writeln('Введите вес котёнка в мае, день ', Day, ':');
    readln(WeightArray[Day]);
  end;

  // Вывод данных массива для проверки
  for Day := 1 to DaysCount do
    writeln('Вес котёнка в ', Month, ', день ', Day, ': ', WeightArray[Day]);
end.

Примечание:

• В первой программе массив численности населения объявлен как array[1..YearsCount] of Integer, так как его размер равен количеству лет в XX веке (101 год). Значения начинаются с 1901 года (YearStart = 1901), поэтому в цикле for мы добавляем YearStart + Year - 1, чтобы правильно указать текущий год для ввода данных.

• Во второй программе массив веса котёнка объявлен как array[1..DaysCount] of Real, так как вес может быть дробным числом. Ввод данных происходит аналогично первой программе, но в данном случае, вместо годов, используются дни месяца.

Удачи с изучением программирования! Если у вас возникнут ещё вопросы, не стесняйтесь задавать.