Урок по информатике «Двумерные массивы в Паскаль»
Урок 50. "Двумерные массивы"
Тема: "Двумерные массивы в Паскаль. Изменение значений элементов. Заполнение по правилу."
Цели:
Углублять знания учащихся о двумерных массивах.
Развивать логическое мышление.
Воспитывать интерес к программированию.
Ход урока:
Проверка домашнего задания.
Пример:
В массиве размерностью nхm к элементам четных столбцов прибавить элемент первого столбца соответствующей строки.
Решение:
Procedure Sub(var x:dmyarray); Var i,j:integer; Begin For i:=1 to n do For j:=1 to m div 2 do Inc(x[i,2*j], x[i,1]); End; |
Пример:
Заменить все отрицательные элементы на противоположные.
Решение:
Procedure Sub2(Var x:dmyarray); Var i,j:integer; Begin For i:=1 to n do For j:=1 to m do x[i,j]:=abs(x[i,j]); End; |
Пример:
Заполнить массив nхm змейкой следующим образом:
Решение:
Чтобы заполнить массив в таком порядке, нужно ввести правило заполнения: если ряд четный, то a[I,j]=(i- 1)*m+j, если ряд нечетный, то a[I,j]=i*m-j+1. По этому правилу составим процедуру:
Procedure Fill (var x:dmyarray); var i,j:integer; begin for i:=1 to n do for j:=1 to m do if i mod 2=1 then x[i,j]:=(i-1)*m+j else x[i,j]:=i*m-j+1; end; |
Вопросы и задания:
Последний отрицательный элемент каждого столбца массива заменить нулем.
Составить программу заполнения и вывода на экран таблицы умножения.
К элементам столбца К1 прибавить элементы столбца К2.
Домашнее задание: конспект, задача.
Трифонова Надежда Вячеславовна