Открытый урок на тему "Массивы" 9 класс

Предпросмотр материала:

Выберите файл для просмотра:

Всего файлов: 6

Фамилия имя _______________________________________________

Класс__________________________________

Рефлексия на начало занятий:

Красный – мне нечего не интересно, настроение 2-

Синий – «опять информатика», настроение на 3

Желтый – «интересно, что будет дальше», настроение на 4

Розовый – «готов к работе», настроение отличное

По теме: что вы знаете о массивах?

оцени свои знания на начало урока синим цветом и на конец урока красным цветом.

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

Задание 1. Тренинг на интерактивной доске.

i. Определение.

2. Что такое массив?

a. Группа элементов с одним именем.

b. Упорядоченная последовательность разнотипных величин, обозначаемая одним именем.

c. Упорядоченная последовательность однотипных величин, обозначаемая одним именем.

d. Сложная переменная, состоящая из строковых переменных

3. Выберите служебное слово для описания массива

a. Array

b. Arrey

c. Dim

d. Dam

4. Что такое размерность массива

a. Количество элементов

b. Количество строк

c. Количество столбцов

d. Количество индексов

5. Что такое индекс?

a. Число в скобках

b. Количество элементов

c. Количество строк

d. Количество столбцов

6. Что обозначает индекс в имени одномерного массива?

a. Количество элементов

b. Количество строк

c. Количество столбцов

d. Порядковый номер элемента

7. Что обозначает индекс в имени элемента одномерного массива?

a. Количество элементов

b. Количество строк

c. Количество столбцов

d. Порядковый номер элемента

Задание 2. набрать программу по вариантам. Пример:

Program mas_1;

uses Crt;

Var i: integer;

M : array [1..5] of Real ;

begin

Clrscr;

For i:=1 to 5 do

begin

write ('m[',i,']=');

readln(m[i);

Writeln (' ', m[i]:6:2);

readln;

end;

end.

Program Create;

Type Mas = Array[1..100] Of Integer;

Var A : Mas; I, J, N : Byte; Log : Boolean;

Begin

    Write(''); ReadLn(N);

    randomize; A[1] := -32768 + random(65535);

    For I := 2 To N Do

    Begin

        Log := True;

        Repeat

            A[i] := -32768 + random(65535); J := 1;

            While Log and (j <= i - 1) Do

            begin Log := a[i] <> a[j]; j := j + 1 End

        Until Log

    End;

    For i := 1 to N Do Write(a[i]:7); readln;

End.

Задание 3 найти ошибки в программе. И набрать в Паскале.

Пример 1. Ввод значений элементов массива с клавиатуры из 10 элементов используется обычно тогда, когда между элементами не наблюдается никакой зависимости. Например, последовательность чисел 1, 2, -5, 6, -111, 0 может быть введена в память следующим образом:

Program Vvod;

Var N, I : Integer;

A : Array [1..20] Of Integer;

Begin

Write('Введите количество элементов массива '); ReadLn(N);

FOR I := 1 TO N DO

Begin

Write('Введите A[', I, '] '); ReadLn(A[I])

End.

Пример2, программа, выводящая на печать номера и названия дней недели, хранящиеся в массиве day, может быть реализована так:

var

day: array [1..7] of string [11];

i: integer;

begin

day [1]:= writeln ‘Понедельник’;

day [2]:= writeln ‘Вторник’;

day [3]:= writeln ‘Среда’;

day [4]:= writeln ‘Четверг’;

day [5]:= writeln ‘Пятница’;

day [6]:= writeln ‘Суббота’;

day [7]:= writeln ‘Воскресенье’;

for i:= 1 to 7 do writeln (i, ‘ ’, day [i]); readln;

end.

Рефлексия на начало занятий:

Красный – «мне нечего не интересно», настроение 2-

Синий – «опять информатика была скучная», настроение на 3

Желтый – «интересно, по работал на уроке хорошо», настроение на 4

Розовый – «Продолжение будет?», настроение отличное

Дополнительное задание.

Применение знаний на практике.

Задача1. Дан линейный массив. Упорядочить его элементы в порядке возрастания.

{Сортировка массива выбором (в порядке возрастания).

Идея решения: пусть часть массива (по K-й элемент включительно)

отсортирована. Нужно найти в неотсортированной части массива

минимальный элемент и поменять местами с (K+1)-м}

Program Sortirovka;

Var N, I, J, K, Pr : Integer; A : Array [1..30] Of Integer;

Begin

Write('Введите количество элементов: '); ReadLn(N);

For I := 1 To N Do

Begin

Write('Введите A[', I, '] '); Readln(A[I]);

End;

WriteLn;

For I := 1 To N - 1 Do

Begin

K := I;

For J := I + 1 To N Do If A[J] <= A[K] Then K := J;

Pr := A[I]; A[I] := A[K]; A[K] := Pr;

End;

For I := 1 To N Do Write(A[I], ' ');

End.

Тест: N = 10; элементы массива - 1, 2, 2, 2, -1, 1, 0, 34, 3, 3.

Ответ: -1, -1, 0, 1, 2, 2, 2, 3, 3, 34.

Для продвинутых с учебника пример 2-3 стр.123

Задание № 4. Задачи для самостоятельной работы на ПК

1. Составьте программу, заменяющее меньшее из двух данных чисел суммой, а большее – произведением этих чисел.

2. Составьте программу расположения трех чисел в порядке возрастания

3. Составьте программу, вычисления значения выражения для данного числа N: 4+8+12+…+4*N.

4. Составьте программу вычисления среднего арифметического целых чисел из отрезка [6;33].

д/з. Составьте блок-схему и программу с учебника пример 2-3 стр.123

ЗАДАНИЕ:

Массив из 13 положительных элементов заполнить целыми случайными числами из интервала (-5, 5)

Найти:

1 уровень:

Сумму или количество (положительных, отрицательных)

2 уровень

Сумму(количество) положительных(отрицательных) и кратных (2,3,5 и т.д)

3 уровень

Сумму(количество) положительных(отрицательных) и кратных (2,3,5 и т.д) и на четных или нечетных местах

Найти кол-во отриц, нечетных, на нечетных местах

PROGRAM V;

USES CRT;

var a:array [1..13] of integer;

k,i:integer;

begin

clrscr;

randomize;

for i:=1 to 13 do

begin

a[i]:=random(30)+random(30)*(-1);

write(a[i],' ');

if (a[i]<0) and odd(i) and odd(a[i]) then k:=k+1;

end;

writeln;

writeln('Количество',k);

end.

Найти сумму четных, положительных на четных местах

program nata;

uses crt;

var a:array [1..13] of integer;

l,i,k,j:integer;

begin

clrscr;

randomize;

for i:=1 to 13 do

begin

a[i]:=random(31)+random(31)*(-1);

if (frac(a[i]/2)=0) and (frac(i/2)=0) and (a[i]>=0) then k:=k+a[i];

write (' ',a[i]);

end;

writeln;

writeln('Сумма=',k);

end.

1/7

1/5

1/20

Открытый урок на тему "Массивы" 9 класс

Информатика

9 класс

Конспекты

RAR

21.11.2014

1485

Информатика

9 класс

Конспекты

Файл будет скачан в формате:

RAR

Автор материала

Куцева Альфия Анатольевна

учитель информатики

На сайте: 11 лет и 1 месяц
Всего просмотров: 15684
Подписчики: 0
Всего материалов: 5

15684
просмотров
5
материалов
0
подписчиков

Настоящий материал опубликован пользователем Куцева Альфия Анатольевна.
Инфоурок является информационным посредником. Всю ответственность за опубликованные материалы несут пользователи, загрузившие материал на сайт. Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете на материал.