Рабочая тетрадь по информатике по теме "Массив" урок 54

Урок 54

Тема: Массивы

Цель: узнать, как программируют одномерные и многомерные массивы

I.                    Повторяем домашнее задание. Разбор примеров из параграфа 23

Задание1.Выделите красным цветом  блок процедуры. Выделите коричневым цветом  основную программу
Program NOD1; Var A,B,C: Integer; procedure Evklid(m,n: integer; var K:integer); begin   while M<>N do     if M>N then M:=M-N else N:=N-M;       K:=M end; begin   Write (‘a=’);readln(a);   Write(‘b=’);readln(b);   Evklid(a+b, a*a+b*b,c);   Evklid(c,a*b,c);   Writeln(‘НОД=’,c); end.
Задание2. В примере NOD1 (с.157) назовите формальные параметры и фактические. Сформулируйте правило соответствия формальных и фактических параметров.	Формальные – Фактические-
Задание3. Составьте программу сложения двух дробей, используя пример NOD1. … Begin Write (‘ch1=’);readln(ch1); Write(‘zn1=’);readln(zn1); Write (‘ch2=’);readln(ch2); Write(‘zn2=’);readln(zn2); Evklid(…); Writeln(ch1*c)
Задание4. Запишите команду обращения к процедуре, которая выводит на экран линию из 20 символов '–'.
Program gh; Var n: integer; Procedure liniya(n:integer); Var i: integer; Begin For i:=1 to n do Write(‘-’); End; Begin ??? End.

?Новая тема. Массив – это группа переменных одного типа, расположенных в памяти рядом (в соседних ячейках) и имеющих общее имя. Каждая ячейка в массиве имеет уникальный номер.

 Надо:

•         Объявить массив (выделять память)

•         записывать данные в нужную ячейку

•         читать данные из ячейки

Одномерный массив	Многомерный массив
var Uroki: array[1..6] of integer;     Temp: array[1..12] of real;     class: array[1..22] of string; const n=6; var uroki: array[1..6] of integer; Uroki–массив целых чисел, хранящий количество уроков в вашем классе в течении недели A[5]-  ? temp[4]-? class[1]-?	Var Lessons: [1..6, 1..33,1..7]of integer; Const n=6; m=33;k=7 Var lessons: [1..n, 1..m,1..k] of integer; Lessons – многомерный массив целых чисел, со значением класса, для указанного кабинета и урока. Lessons[4,28,4] - ? Lessons[4,28,5] - ?
Обращение к элементу массива
Uroki 1 2 3 4 5 6 6 6 7 7 6 5 3- номер индекса 7- значение элемента массива Uroki[3]=7(количество уроков в среду)	Lessons каб 4 1 2 3 4 5 6 7 1 2 … 28 10 11 … 33
записывать данные в нужную ячейку
1способ: For i:=1 to 6 do readln(Uroki[i]);	For x:=1 to n do For y:=1 to m do For z:=1 to k do readln(lessons[x,y,z]);
Вывод элементов массива (читать данные из ячейки)
For i:=1 to 5 do writeln(‘Uroki[‘,I,’]=’, Uroki[i]);	For x:=1 to n do For y:=1 to m do For z:=1 to k do writeln(lessons [x,y,z]);
:Практическая работа
Задание1. Составить программу ввода и вывода  массива уроков в вашем классе
Задание2.Пример ввода и вывода элементов массива
Задание3. Выполнить самостоятельно №1 с.249	1.  описание 2.  ввод элементов массива 3.  вывод элементов массива 4.  if a[i]<a[???] then write (‘Последовательность возрастающая’)else writeln(‘последовательность невозрастающая’)

V.Домашнее задание – §24 с.163-164 прочитать до многомерного массива и выполнить №2 с.249