Стрельникова Л. В. МОУ Хохольская СОШ, Ludmvass@ya.ru 1. - презентация

1 Стрельникова Л. В. МОУ Хохольская СОШ, 1

2 1.Суммирование 1). Сумм. всех элементов 2). Сумм. с условием 2.Произведение 1). Произв. всех элементов 2). Произв. с условием 3.Подсчёт числа элементов 1). Число всех элементов 2). Число с условием Стрельникова Л. В. МОУ Хохольская СОШ, 2

3 Общий вид : S := 0; For I := 1 to n do S := S + A[I]; где n – число элементов в массиве Стрельникова Л. В. МОУ Хохольская СОШ, 3

4 For i := 1 to 4 do S := S+A[i]; 1.I=1 S:=0+2 2.I=2 S:=2+3=5 3.I=3 S:=2+3+1=6 4.I=4 S:= =10 Результат : S=10 Стрельникова Л. В. МОУ Хохольская СОШ, 4 N=4 A[1]=2 A[2]=3 A[3]=1 A[4]=4

5 IF A[I] 0 then S:=S+A[i] IF A[I] mod 2 = 0 then S:=S+A[i] IF A[I] mod 2 0 then S:=S+A[i] IF A[I] 0 then S:=S+A[i] IF A[I] =0 then S:=S+A[i] IF A[I] =5 then S:=S+A[i] IF A[I] 5 then S:=S+A[i] Стрельникова Л. В. МОУ Хохольская СОШ, 5 Для отрицательных Для положительных Для чётных Для нечётных Для не равных нулю Для равных нулю Для равных 5 Для не равных 5

6 Определите какую задачу решает данный фрагмент программы : S := 0; For I := 1 to n do IF A[I] mod 2=0 then S := S + A[I]; Стрельникова Л. В. МОУ Хохольская СОШ, 6

7 Определите какую задачу решает данный фрагмент программы: otr := 0; pol := 0; For I := 1 to n do begin IF A[I] 0 Then pol := pol + A[I]; end; Стрельникова Л. В. МОУ Хохольская СОШ, 7

8 Определите какую задачу решает данный фрагмент программы: pol := 0; otr := 0; For I := 1 to n do begin IF A[I]

9 Общий вид : Pr := 1; For I := 1 to n do Pr := Pr * a[I]; Стрельникова Л. В. МОУ Хохольская СОШ, 9

10 Общий вид: N := 0; For I := 1 to m do N := N + 1; Стрельникова Л. В. МОУ Хохольская СОШ, 10

11 Какие задачи решают эти фрагменты задач : Kol := 0; For I := 1 to n do If a[I] mod 2 0 then Kol :=Kol + 1; Kol := 0; For I := 1 to n do If a[I] mod 2 = 0 then Kol :=Kol + 1; Стрельникова Л. В. МОУ Хохольская СОШ, 11

12 Общий вид : For I := 1 to n do A[I] := ; o Вопрос : написать фрагмент программы - увеличение вдвое каждого элемента массива. Ответ: For I := 1 to n do A[I] := A[I] * 2; Стрельникова Л. В. МОУ Хохольская СОШ, 12

13 Пример: уменьшить каждый элемент массива на половину своего значения. Считать все значения элементов чётными. Решение: For I := 1 to n do A[I] := A[I] - A[I] div 2; Стрельникова Л. В. МОУ Хохольская СОШ, 13

14 Задать случайным образом 10 элементов массива : целые числа из интервала от -5 до 50. Найти : 1) сумму нечётных элементов ; 2) произведение элементов, стоящих на чётных местах ; 3) количество отрицательных элементов. Стрельникова Л. В. МОУ Хохольская СОШ, 14

15 Ввести с клавиатуры 12 элементов числового массива. Все положительные увеличить на 100, все отрицательные обнулить. Стрельникова Л. В. МОУ Хохольская СОШ, 15