Язык Паскаль. Циклический алгоритм. Оператор цикла for (программы решения задач: количество, сумма, среднее арифметическое)

В этой публикации применим оператор цикла for к решению задач и приведем готовые программы.

Задача 1. С клавиатуры вводятся N чисел – массы предметов. Найти общую массу предметов.

Исходные данные:

N – количество предметов (целое число, тип integer)

m – масса предмета (целое число, тип integer)

Промежуточные данные:

k – счетчик цикла (целое число, тип integer)

Выходные данные:

s – общая масса (целое число, тип integer)

Как будем решать задачу

Введем число N. В цикле от 1 до N будем вводить массу предмета оператором readln(m) и копить сумму оператором s:=s+m.

Программа решения задачи на языке Паскаль

var N,k,m,s:integer;

begin

   write('Введите общее количество предметов: ');

   readln(N);

   s:=0;

   for k:=1 to N do

    begin

      write('Введите массу предмета ');

      readln(m);

      s:=s+m;

    end;

   writeln('Общая масса: ',s);

end.

Подумайте, как изменилась бы программа, если бы масса предмета была не целым числом.

Задача 2. С клавиатуры вводятся N чисел – массы предметов. Найти среднюю массу предмета.

Средняя масса – это среднее арифметическое масс предметов. Чтобы найти среднее арифметическое, нужно сумму разделить на количество. В нашей задаче нужно суммарную массу разделить на число N.

Изменим предыдущую программу, добавив оператор для расчета среднего арифметического.

Исходные данные:

N – количество предметов (целое число, тип integer)

m – масса предмета (целое число, тип integer)

Промежуточные данные:

k – счетчик цикла (целое число, тип integer)

s – общая масса (целое число, тип integer)

Выходные данные:

r – среднее арифметическое (не целое число, тип real)

Программа решения задачи на языке Паскаль

var N,k,m,s:integer; r:real;

begin

   write('Введите общее количество предметов: ');

   readln(N);

   s:=0;

   for k:=1 to N do

    begin

      write('Введите массу предмета ');

      readln(m);

      s:=s+m;

    end;

   r:=s/N;

   writeln('Средняя масса: ',r);

end.

Задача 3. С клавиатуры вводятся N чисел – массы предметов. Найти количество предметов с массой менее 7 кг.

Как будем решать задачу

В цикле от 1 до N будем вводить массу предмета, условным оператором будем сравнивать массу с числом 7 на знак < (меньше), и если условие ИСТИНА, то будем копить счетчик оператором p:=p+1.

Исходные данные:

N – количество предметов (целое число, тип integer)

m – масса предмета (целое число, тип integer)

Промежуточные данные:

k – счетчик цикла (целое число, тип integer)

Выходные данные:

p – количество предметов с массой менее 7 (целое число, тип integer)

Программа решения задачи на языке Паскаль

var N,k,m,p:integer;

begin

   write('Введите общее количество предметов: ');

   readln(N);

   p:=0;

   for k:=1 to N do

    begin

      write('Введите массу предмета ');

      readln(m);

      if m<7 then p:=p+1;

    end;

   writeln('Количество предметов, с массой менее 7 кг: ',p);

end.

Задача 4. С клавиатуры вводятся N чисел – вес багажа. Ручная кладь – это багаж с весом не более 10 кг. Какое количество человек возьмут свой багаж в салон самолета?

Программа решения на языке Паскаль

var N,k,m,p:integer;

begin

   write('Сколько всего пассажиров? ');

   readln(N);

   p:=0;

   for k:=1 to N do

    begin

      write('Введите вес багажа ');

      readln(m);

      if m<=10 then p:=p+1;

    end;

   writeln('Количество человек, которые возьмут багаж в салон: ',p);

end.

Публикация «Циклический алгоритм, операторы цикла while, repeat, for, использование в решении задач», читать.