Практическая работа по информатике

Практическая работа

Тема: двумерные массивы.

Цель работы: овладеть практическими навыками работы с массивами, организация их ввода и вывода, приобретение дальнейших навыков по организации программ циклической структуры. Обработка двумерных массивов.

Оборудование: Компьютер с установленной операционной системой Windows, Free Pascal.

Литература:

1. Бабушкин И.А. и др. Практикум по Турбо     Паскалю. Учебное пособие.: М,1998

2. Информатика. 7–9 класс. Базовый курс. Практикум-задачник по моделированию./ Под ред.Н. В. Макаровой. –СПб.: Питер, 2001

3. Лапчик М. П. Вычисления. Алгоритмизация. Программирование: Пособие для учителя. - М.: Просвещение, 1988

4. Основы информатики и вычислительной техники: Проб. учеб. Для 10-11 кл. сред. шк./ А. Г. Гейн, В. Г. Житомирский, Е.В. Линецкий и др. - М. Просвещение, 1992

5. Основы информатики и вычислительной техники: Проб. учеб. пособие для сред. учеб. заведений. В 2 ч./ под ред А.П. Ершова, В.М. Монахова. - М.: Просвещение, 1986

Задания:

Разработать алгоритм, составить блок-схему, программу и тестовый пример для решения задач.

1 вариант.

1. Нахождения суммы элементов двумерного массива,  меньших 10.

2. Нахождения числа элементов двумерного массива, больших 0,5.

3. Замены элементов двумерного массива их квадратами.

4. Нахождения произведения и количества элементов второй строки двумерного массива больших 8 и замены остальных элементов 1.

5. Нахождения суммы элементов двумерного массива 2,5 и замены остальных элементов их квадратами. Элементы массива – случайные натуральные числа 100.

2 вариант.

1. Нахождения суммы элементов двумерного массива, больших 4.

2. Нахождения числа элементов двумерного массива, не превосходящих 4.

3. Замены элементов двумерного массива их кубами.

4. Нахождения произведения и количества элементов первого столбца двумерного массива меньших 3 и замены остальных элементов 3.

5. Нахождения суммы элементов двумерного массива 8,3 и замены остальных элементов нулями. Элементы массива – случайные натуральные числа 100.

Теоретические сведения к практической работе:

Под массивом  понимается  упорядоченная совокупность (последовательность, набор) конечного числа данных одного типа, объединенных под общим именем. Имена массивов образуются так же, как и имена простых переменных. Двумерные массивы  можно описать следующим образом:

var имя массива ; array [размер] of тип, где в "размере" указывается на первом месте количество строк, а на втором месте – количество столбцов;

Например:  var f: array[1..n,1..m] of real; {- массив, состоящий из n строк и m столбцов и в нем -n*m элементов вещественного типа}.

                      a:array [1..10,1..5] of integer {-массив, состоящий из 10 строк и 5 столбцов и в нем -10*5 элементов целого типа}.

а[i,j] - значение  элемента массива a, первым указывается i - порядковый номер строки, вторым  j - порядковый номер столбца, на пересечении которых находится данный элемент.

Вводить, выводить данные в массив и из массива, обрабатывать данные удобно с помощью циклов, например:  for i:=1 to n do begin

                                             for j:=1 to m do

                                                     write(а[i,j],’ ‘); 

                                                writeln;                         

                                         end;

                                         end;                                    

Пример: Выведите на экран элементы двумерного массива.

Program Р;

Uses crt;

Var MA:array[1..20,1..20]of integer;

Sum:array[1..20] of longint;

k,i,j,imin:integer;

min:longint;

BEGIN

clrscr;

write('Введите число строк и столбцов: ');

readln(k);

Randomize;

Writeln('Введите элементы: ');

for i:=1 to k do

for j:=1 to k do

begin

write('MA[',i,',',j,']=');

Readln(MA[i,j]);

writeln;

end;

Пример: Составьте  программу  нахождения  суммы  элементов  массива:

а)const a: array[1..2,1..10]  of  integer= ((5,7,0,3,-5,4,-5,7,0,1), (2,3,6,0,1,1,1,2,9,7));

   var i, j, S, : integer;

begin

    S:= 0;

      for i:= 1  to 2 do

             for j:= 1  to 10 do

                    S:= S + a [i,j] ;

Writeln ( S )

End.

б) var i, j, S, : integer;

          a: array[1..2,1..10]  of  integer;

begin

      for i:= 1  to 2 do

             for j:= 1  to 10 do

                     read(a[i,j]);

 S:= 0;

      for i:= 1  to 2 do

             for j:= 1  to 10 do

                    S:= S + a [i,j] ;

Writeln ( S )

End.

Сделайте вывод по работе.