Урок 1 Учитель: Н.В. Фоменко
s := 0 s := s+a [i] i = 1, n s Для нахождения суммы элементов массива используется стандартный метод накопления суммы по шагам: Сначала предполагается, что сумма равна 0 Далее на каждом шаге цикла к имеющемуся значению суммы добавляется очередное слагаемое Полученный результат сохраняется как значение переменной S s :=0; for i:=1 to n do s:= s+a[i]; writeln (s)
Трассировка алгоритма i s 0 1 0+a[1] 8 2 0+a[1]+a[2] 8+7=15 3 0+a[1]+a[2]+a[3] 15-2=13 4 0+a[1]+a[2]+a[3]+a[4] 13+10=223 5 0+a[1]+a[2]+a[3]+a[4]+a[5] 23+3=26 i 1 2 3 4 5 a[i] 8 7 -2 10 3 s :=0; for i:=1 to n do s:= s+a[i]; writeln (s)
В этом случае в тело цикла добавляется условный оператор s :=0; for i:=1 to n do if a[i]= условие then s:= s+a[i]; writeln (s) Найти сумму четных s :=0; for i:=1 to n do if a[i] mod 2=0 then s:= s+a[i]; writeln (s) Найти сумму положительных s :=0; for i:=1 to n do if a[i] > 0 then s:= s+a[i]; writeln (s) Условие может быть сложным. Тогда простые условия соединяются логическими операциями and, or, xor Найти сумму элементов, принадлежащих интервалу [0;10] s :=0; for i:=1 to n do if a[i] > =0 and a[i]<=10 then s:=s+a[i]; writeln (s)
Переменная S должна быть описана как real s :=0; for i:=1 to n do s:= s+a[i]; s:=s/n writeln (s) Внимание! Деление суммы на количество элементов должно осуществляться после окончания цикла.
p :=1; for i:=1 to n do p:=p*a[i]; writeln (p) Внимание! Переменной р перед входом в цикл должна быть присвоена единица!
k :=0; for i:=1 to n do if a[i]= условие then k:=k+1; writeln (k) Как найти среднее арифметическое элементов, удовлетворяющих определенному условию? k :=0; s:=0; for i:=1 to n do if a[i]= условие then begin k:=k+1; s:=s+a[i] end; s:=s/k writeln (s)
const n=20; var a: array[1..n] of integer; i,k:integer ; begin for i:=1 to n do begin a[i]:=-50+random(101) write(a[i]:4) end; writeln ; k:=0; for i:=1 to n do if a[i]<0 then a[i]:=0 else k:=k+1; writeln (‘ количество неотрицательных элементов= ‘,k); for i:=1 to n do write (a[i]:4); end. Предположим, что элементы массива находятся в диапазоне [-50;50] Внимание! НЕ смешивать циклы ввода и обработки!!!
