План урока: «Составление простейших программ с использованием массивов»

Министерство Образования и Науки Российской федерации Татарский Государственный Гуманитарно - Педагогический Университет

Физический факультет.

План урока:

«Составление простейших программ с использованием массивов.»

Провела:

Студентка 5 курса

Физического факультета

Группы 060502

Гизатуллина Лилия С.

Дата проведения:

20.02.10.

Казань 2009

Триединая задача урока:

1. Познавательная

• Формировать навыки и умения составления программ с использованием массивов.

2. Развивающая

• Учить строить аналогии, выделять главное, ставить и решать проблемы.

3. Воспитательная

• Воспитывать аккуратность, внимательность, вежливость и дисциплинированность.

План урока:

1. Составление программ

1. Заполнить массив случайными числами и вывести его на экран компьютера.

Program Random_mas;

uses Crt;

Var i: integer;

Ran : array [1..10] of integer;

begin

Clrscr;

Randomize;

For i:=1 to 10 do

begin

ran[i]:=random(100);

writeln(ran[i]);

end;

readln;

end.

2. Определить, содержит ли массив A[1..20] случайных чисел число Х, введенное с клавиатуры.

Program Poisk_mas;

uses Crt;

Var i, x: integer;

A : array [1..20] of integer;

c: string;

begin

Clrscr; Randomize;

Write ('Zadayte chislo X ');

readln (x);

c:='v massive net chisla x';

For i:=1 to 20 do

begin

a[i]:=random(10);

writeln(A[i]);

if a[i]=x then c:='v massive est chislo x';

end;

writeln (c);

readln; end.

3. Заполнить массив значениями, вычисляемыми по формуле:

a[i]:=sin i *i²

Вывести элементы этого массива на экран компьютера и найти максимальное значение среди них.

Program Max_mas;

uses Crt;

Var i:integer;

max: real;

A : array [1..10] of real;

begin

Clrscr;

For i:=1 to 10 do

begin

a[i]:=sin(i)*sqr(i);

writeln(A[i]:8:3);

end;

max:=A[1];

For i:=2 to 10 do

if a[i]> max then max:=a[i];

writeln;

writeln ('max=', max:8:3);

readln; end.

4. Составить программу подсчета суммы и произведения элементов одномерного массива.

Program sum-prois;

uses crt;

const

n = 100;

var

a: array [1…n] of real;

n, k, i: integer;

p, s: real;

begin

clrscr; s: = 0; p: =1;

writeln ('введите размер массива'); readln (nk);

writeln ('введите элемент массива');

for i:=1 to nk do

readln (a[i] );

for i:=1 to nk do

begin

s:= s + a[ i ];

p:= p * a[ i ];

end;

writeln ('Сум. = ', s, 'Произ. =' , p);

end.

Необходимо подготовить ячейки:

• при накапливании суммы - s=0

• при подсчете произведения - p=1.

Задача рассчитана на обработку массива с максимальным размером 100 элементов (n=100).

Конкретный размер массива вводится с клавиатуры (nk).

При каждом прохождении через цикл с клавиатуры вводится только один элемент массива. Два цикла for можно было объединить в один.

Пр. Задача формирования массива по правилу:

Задан массив X из 8 элементов. Сформировать массив Y по правилу

Y[i]= 4X[i], если I - четное

Cos 2X[i], если I - нечетное

и найти количество его положительных элементов.

Var x,y: array [1..8] of real;

I,k:integer;

Begin

Writeln ('Введите массив X из 8 элементов');

For i:=1 to 8 do begin

Read (x[i]);

If I mod 2 =0 then y[i]:=4*x[i]

Else y[i]:=cos(2*x[i]);

End;

K:=0;

Writeln ('Массив Y');

For i:=1 to 8 do begin

If y[i]>0 then k:=k+1;

Write (y[i]:8:2);

End;

Writeln;

Writeln ('K=',k);

End.

2. Закрепление нового материала - практическая работа. Разъяснение хода практической работы.

Задача 1.

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

Рекомендуемый вид экрана при работе программы:

После ввода каждого числа нажмите <ENTER>

A[1]= 12

A[2]= 0

A[3]= -3

A[4]= 1

A[5]= 0

В массива 3 ненулевых элемента

Задача 2.

Написать программу, которая определяет, сколько раз в массиве случайных чисел A[1..100] встречается число Х, введенное с клавиатуры.

3. Оценивание выполнения работы.

4. Итоги урока.

5. Домашнее задание. Выучить конспект, повторить § 31.

Задача 1.

Написать программу, которая вычисляет среднее арифметическое ненулевых элементов массива М[1..100], элементы которого вычисляются по формуле:

М[i]=sin(i)*cos(i)

Задача 2.

Написать программу, которая проверяет, образуют ли элементы массива Х[1..10], введенного с клавиатуры неубывающую последовательность.