Двумерные массивы

Урок 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.

Домашнее задание: конспект, задача.

Опубликовано 01.02.16 в 13:31

Комментарии (1)

Трифонова Надежда Вячеславовна, 27.03.17 в 22:35 0Ответить Пожаловаться

Извините, но чего-то не хватает, может раздаток, наглядности или хоть еще чего-то: ведь не все будут программистами, а таких надо тоже заинтересовать. Мое мнение

Чтобы написать комментарий необходимо авторизоваться.