Лекция_№4_Итерационные алгоритмы_Мах_Сумма_2024

1. Итерационные алгоритмы

Лекция №4

2. Алгоритм нахождения max, min

3.

Принцип действия функции MAX и MIN
4 3 7 5 1 8
478
MIN:
431
MAX:

4. Алгоритм нахождения максимума

За первоначальное значение Max берется
первое число последовательности;
Далее все числа последовательности
сравниваются со значением переменной Max;
Если число оказалось больше значения Max,
то запоминаем его как новое значение Max.

5. Блок-схема алгоритма

начало
N, max
i=2;N;1
a
A>max
max=a
max
начало

6. Алгоритм нахождения максимума

…
Readln(max);
//первое максимальное значение}
for i:=2 to N do
//N-количество чисел
begin
write('Введите число: ');
readln(a);
if a>max then max:=a; //выявление очередного
end;
//максимума
writeln('max=',max);

7. Задание

Вводится N целых чисел. Найти максимальное число,
кратное трём. Если таких чисел не было, вывести слово
‘NO’.

8. Задание

Вводится N целых чисел. Найти максимальное
число подряд идущих элементов, кратных трём.

9. Алгоритмы накопления

К алгоритмам накопления относятся алгоритмы
◼ накопления суммы чисел,
◼ накопления произведения,
◼ Вычисление целочисленной степени числа,
◼ подсчет количества элементов.

10. Задание. Вычислить сумму 5 элементов числовой последовательности.

Program Summa_1;
Var A1, A2, A3, A4, A5,SUMMA:REAL;
Begin
read(a1, a2, a3, a4, a5);
SUMMA:=A1+A2+A3+A4+A5;
WRITELN('SUMMA= ',SUMMA:5:1)
End.

11. Задание. Вычислить сумму N элементов числовой последовательности.

Program summa_3;
Var a,summa: real;
i,n:integer;
Begin
Write('Введите n=');Readln(n);
Summa:=0;
for i:=1 to n do
begin
write('введите число:');
readln(a);
summa:=summa+a ;
end;
writeln('summa= ',summa:4:2)
End.
a:=readlnreal(‘вв.число:’);
Summa+=a;
Summa+=readlnreal(‘вв.число:’);

12. Задание. Вычислить сумму N элементов натурального ряда 1+2+3+….+N.

Program summa_3;
Var summa,i,n:integer;
Begin
Write('Введите n=');Readln(n);
Summa:=0;
for i:=1 to n do
summa:=summa+i ;
writeln('summa= ',summa:4:2)
End.

13. Задание. Вычислить сумму натурального ряда 1+x+x^2+x^3+…+x^N.

Задание. Вычислить сумму натурального ряда
1 +