1 Автор разработки: Розанова Татьяна Аркадьевна, учитель информатики МОУ СОШ 2 города Кинешмы Ивановской области 2011 – 2012 учебный год Автор разработки: Розанова Татьяна Аркадьевна, учитель информатики МОУ СОШ 2 города Кинешмы Ивановской области 2011 – 2012 учебный год

2 Задача 1. Что можно сказать о сформированном массиве? Program P1; Const N=6; M=3; a=-20; b=20; Var c: Array [1..N,1..M] Of Integer; i, j: Integer; Begin Randomize; For i:=1 To N Do Begin For j:=1 To M Do Begin c [i, j]:=Trunc (a+(b-a)*Random); Write (c[i,j]:6); End; WriteLn; End; … End. Program P1; Const N=6; M=3; a=-20; b=20; Var c: Array [1..N,1..M] Of Integer; i, j: Integer; Begin Randomize; For i:=1 To N Do Begin For j:=1 To M Do Begin c [i, j]:=Trunc (a+(b-a)*Random); Write (c[i,j]:6); End; WriteLn; End; … End. Задача 2. Какие изменения нужно внести в программу, чтобы сформировать массив из вещественных чисел? Задача 2. Какие изменения нужно внести в программу, чтобы сформировать массив из вещественных чисел? Program P1; Const N=6; M=3; a=-20; b=20; Var c: Array [1..N,1..M] Of Real; i, j: Integer; Begin Randomize; For i:=1 To N Do Begin For j:=1 To M Do Begin c [i, j]:=a+(b-a)*Random; Write (c[i,j]:6:2); End; WriteLn; End; … End. Program P1; Const N=6; M=3; a=-20; b=20; Var c: Array [1..N,1..M] Of Real; i, j: Integer; Begin Randomize; For i:=1 To N Do Begin For j:=1 To M Do Begin c [i, j]:=a+(b-a)*Random; Write (c[i,j]:6:2); End; WriteLn; End; … End. Ответ: двумерный целочисленный массив, 6 строк, 3 столбца. Ответ: двумерный целочисленный массив, 6 строк, 3 столбца. Меню

Задача 3. Чему равен элемент c[5,2]? For i:=1 To N Do For j:=1 To M Do c [i,j]:=2*j-i; Задача 3. Чему равен элемент c[5,2]? For i:=1 To N Do For j:=1 To M Do c [i,j]:=2*j-i; Ответ: -1. Задача 4. Что выполняет фрагмент программы? For i:=1 To N Do For j:=1 To M Do c[i,j]:=500+c[i,j]; Задача 4. Что выполняет фрагмент программы? For i:=1 To N Do For j:=1 To M Do c[i,j]:=500+c[i,j]; Ответ: увеличивает значения всех элементов массива на 500. Задача 5. Какой массив сформирован? For i:=1 To 4 Do For j:=1 To 4 Do c[i,j]:=i; Задача 5. Какой массив сформирован? For i:=1 To 4 Do For j:=1 To 4 Do c[i,j]:=i; Ответ: i= i= i= i= Ответ: i= i= i= i= Меню

Задача 6. Что находит фрагмент программы? x:=0; For i:=1 To N Do For j:=1 To M Do If c[i,j]7 Then z:= z+1; WriteLn (z=, z); y:=0 i:=1,N j:=1,M y:=y+ Abs(c[i,j]) Вывод y Задача 8. Что находит фрагмент алгоритма? Ответ: находит сумму модулей всех элементов массива. Ответ: находит сумму модулей всех элементов массива. 4 Меню Ответ: находит сумму элементов, меньших 5. Ответ: находит количество элементов, больших 7.

Задача 10. Сколько элементов массива 4×4 будут равны 1? For i:=1 To 4 Do For j:=1 To 4 Do If i+j Mod 3 =0 Then c[i,j]:=0 Else c[i,j]:= 1; Задача 10. Сколько элементов массива 4×4 будут равны 1? For i:=1 To 4 Do For j:=1 To 4 Do If i+j Mod 3 =0 Then c[i,j]:=0 Else c[i,j]:= 1; i=1 i=2 i=3 i=4 i=5 i=6 j=1j=2j=3j=4 j=5j= j=1j=2j=3j=4 i=1 i=2 i=3 i= Ответ: 15. Ответ:11. 5 Задача 9. Сколько элементов массива 6×6 будет иметь положительные значения? For i:=1 To 6 Do For j:=1 To 6 Do c[i,j]:=j-i; Задача 9. Сколько элементов массива 6×6 будет иметь положительные значения? For i:=1 To 6 Do For j:=1 To 6 Do c[i,j]:=j-i; Меню

i=1 i=2 i=3 i=4 i=5 i=6 i=7 i=8 j=2j=4j=1j=3j=5 Сформирован целочисленный массив с (8×5). 1.Распечатать элементы 6 строчки. 2.Найти сумму элементов 2-го столбца. 3.Найти количество положительных элементов в 3 строчке. 4.Найти максимальный элемент в 4 столбце. 5.Поменять местами элементы 2 и 4 столбцов. 6 Меню

Распечатать элементы 6 строчки For j:=1 To 5 Do WriteLn (c[6,j]); C[6,1] j=1j=2 C[6,2] j=3 C[6,3] j=4 C[6,4] j=5 C[6,5] i=6 7 Меню

Найти сумму элементов 2-го столбца S:=0; For i:=1 To 8 Do S:=S+c [i,2]; WriteLn (S=, S); i=1 i=2 i=3 i=4 i=5 i=6 i=7 i=8 j=2 C[1,2] C[2,2] C[3,2] C[4,2] C[5,2] C[6,2] C[7,2] C[8,2] S + c[i,2] 8 Меню

Найти количество положительных элементов в 3 строчке k:=0; For j:=1 To 5 Do If c[3,j]>0 Then k:=k+1; WriteLn (k=, k); j=1j=2j=3j=4j=5 i=3 k C[3,1]C[3,2]C[3,3]C[3,4]C[3,5] + 1 {если c[3,j]>0} 9 Меню

Найти максимальный элемент в 4 столбце Max:=c[1,4]; For i:=2 To 8 Do If c[i,4]>Max Then Max:=c[i,4]; WriteLn (Max=, Max); j=4 C[1,4] Max i=2 C[2,4] i=3 C[3,4] i=4 C[4,4] i=5 C[5,4] i=6 C[6,4] i=7 C[7,4] i=8 C[8,2] 10 Меню

Поменять местами элементы 2 и 4 столбцов For i:=1 To 8 Do Begin x:=c [i,2]; c [i,2]:=c [i,4]; c [i,4]:=x; End; i=1 i=2 i=3 i=4 i=5 i=6 i=7 i=8 x j=2j=4 11 Меню

Выводы 12 При работе со строчкой меняется параметр j, номер строчки определяется условием задачи При работе со столбцом меняется параметр i, номер столбца определяется условием задачи Меню

Домашнее задание Сформировать целочисленный массив (6×6), заполненный случайным образом. 1.Заменить нулями элементы третьей строчки. 2.Чётные элементы второго столбца увеличить на 100, распечатать получившийся массив. 3.В четвёртом столбце найти количество элементов, которые больше *Распечатать строчку, в которой находится минимальный элемент массива (если таких элементов несколько и находятся в разных строчках, то любую из них). 5.**Упорядочить вторую строчку в порядке нестрогого возрастания. 6.**Сформировать одномерный массив, каждый элемент которого равен сумме элементов соответствующего столбца. Сформировать целочисленный массив (6×6), заполненный случайным образом. 1.Заменить нулями элементы третьей строчки. 2.Чётные элементы второго столбца увеличить на 100, распечатать получившийся массив. 3.В четвёртом столбце найти количество элементов, которые больше *Распечатать строчку, в которой находится минимальный элемент массива (если таких элементов несколько и находятся в разных строчках, то любую из них). 5.**Упорядочить вторую строчку в порядке нестрогого возрастания. 6.**Сформировать одномерный массив, каждый элемент которого равен сумме элементов соответствующего столбца. 13 Меню