Урок по информатике «Двумерные массивы в Паскаль»

0
1
Материал опубликован 1 February 2016

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


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



Комментарии

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

27 March 2017