В этой публикации применим оператор цикла 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, использование в решении задач», читать.