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

ЯнварьФевральМартАпрельМайИюньИюльАвгустСентябрьОктябрьНоябрьДекабрь , ,238950, , , , ,239123, , , , ,239600, , , , , ,609500,328561, , , , ,567894, , , , ,509800, , , ,236452,126800, , ,45 1. Сколько рублей потратило предприятие на выплату заработной платы в мае? 2. Какова годовая заработная плата 05 работника? 3. Сколько работников в сентябре имело заработную плату больше рублей? 1. Сколько рублей потратило предприятие на выплату заработной платы в мае? 2. Какова годовая заработная плата 05 работника? 3. Сколько работников в сентябре имело заработную плату больше рублей? Годовой отчёт по заработной плате 2

3

4

5 Задача 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. Что находит фрагмент алгоритма? Ответ: находит сумму модулей всех элементов массива. Ответ: находит сумму модулей всех элементов массива. 7 Меню Ответ: находит сумму элементов, меньших 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. 8 Задача 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 столбцов. 9 Меню

Распечатать элементы 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 10 Меню

Найти сумму элементов 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] 11 Меню

Найти количество положительных элементов в 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} 12 Меню

Найти максимальный элемент в 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] 13 Меню

Поменять местами элементы 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 14 Меню

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

Что выполняет фрагмент программы в сформированном массиве? … For i:=1 To 5 Do c[i,3]:=c[i,3]+1000; … Ответ: увеличивает элементы 3 столбца на Меню

Что выполняет фрагмент программы в сформированном массиве? … For j:=1 To 5 Do Write (c [2,j]:6 ); … Ответ: распечатывает 2 строчку. Ответ: распечатывает 2 строчку. 17 Меню

Что выполняет фрагмент программы в сформированном массиве? … For i:=1 To 5 Do c[i,4]:=10; … Ответ: элементы 4 столбца заменяет числом Меню

Что выполняет фрагмент программы в сформированном массиве? … S:=0; For j:=1 To 5 Do If c[2,j]

Что выполняет фрагмент алгоритма в сформированном массиве? Ответ: чётные элементы третьего столбца заменяет числом i:=1,5 c[i,3]:=70 с[i,3] Mod 2 =0 Меню

ЯнварьФевральМартАпрельМайИюньИюльАвгустСентябрьОктябрьНоябрьДекабрь , ,238950, , , , ,239123, , , , ,239600, , , ,609500,328561, , , , ,567894, , , , ,509800, , , ,236452,126800, , ,45 Вариант 1 1.Сколько потратило предприятие на выплату з/п в январе? 2.Найти годовую з/п 07 работника. 3.Сколько человек имели в декабре з/п больше рублей? Вариант 1 1.Сколько потратило предприятие на выплату з/п в январе? 2.Найти годовую з/п 07 работника. 3.Сколько человек имели в декабре з/п больше рублей? Вариант 2 1.Сколько потратило предприятие на выплату з/п в феврале? 2.Найти годовую з/п 05 работника. 3.Сколько человек имели в сентябре з/п меньше рублей? Вариант 2 1.Сколько потратило предприятие на выплату з/п в феврале? 2.Найти годовую з/п 05 работника. 3.Сколько человек имели в сентябре з/п меньше рублей? 21 Сформировать таблицу «Годовой отчёт по заработной плате» для одного из цехов некоторого предприятия. В цехе трудится семь работников. Массив заработных плат заполнить случайным образом, диапазон взять от рублей до рублей с точностью до копейки. Сформировать таблицу «Годовой отчёт по заработной плате» для одного из цехов некоторого предприятия. В цехе трудится семь работников. Массив заработных плат заполнить случайным образом, диапазон взять от рублей до рублей с точностью до копейки. Меню

22 Const N=7; M=12; a=6000; b=25000; Var c: Array [1..N,1..M] Of Real; s,s1:Real; k, i, j: Integer; Begin Randomize; WriteLn (Отчёт по заработной плате); 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]:10:2); End; WriteLn; End; … Const N=7; M=12; a=6000; b=25000; Var c: Array [1..N,1..M] Of Real; s,s1:Real; k, i, j: Integer; Begin Randomize; WriteLn (Отчёт по заработной плате); 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]:10:2); End; WriteLn; End; … Меню

Вариант 1 s:=0; For i:=1 To N Do s:=s+c[i,1]; WriteLn (s=, s:10:2, руб.); s1:=0; For j:=1 To M Do s1:= s1+c[7,j]; WriteLn (s1=, s1:10:2 руб); k:=0; For i:=1 to N Do If c[i,12]>20000 then k:=k+1; WriteLn (k=, k); Вариант 1 s:=0; For i:=1 To N Do s:=s+c[i,1]; WriteLn (s=, s:10:2, руб.); s1:=0; For j:=1 To M Do s1:= s1+c[7,j]; WriteLn (s1=, s1:10:2 руб); k:=0; For i:=1 to N Do If c[i,12]>20000 then k:=k+1; WriteLn (k=, k); Вариант 2 s:=0; For i:=1 To N Do s:=s+c[i,2]; WriteLn (s=, s:10:2, руб.); s1:=0; For j:=1 To M Do s1:= s1+c[5,j]; WriteLn (s1=, s1:10:2 руб); k:=0; For i:=1 to N Do If c[i,9]

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