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

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



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


Провела:
Студентка 5 курса
Физического факультета
Группы 060502
Гизатуллина Лилия С.
Дата проведения:
20.02.10.




Казань 2009
Триединая задача урока:
Познавательная
Формировать навыки и умения составления программ с использованием массивов.
Развивающая
Учить строить аналогии, выделять главное, ставить и решать проблемы.
Воспитательная
Воспитывать аккуратность, внимательность, вежливость и дисциплинированность.

План урока:
Составление программ

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

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.



Определить, содержит ли массив 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.

Заполнить массив значениями, вычисляемыми по формуле:
a[i]:=sin i *i2
Вывести элементы этого массива на экран компьютера и найти максимальное значение среди них.

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.

Составить программу подсчета суммы и произведения элементов одномерного массива.
Program sum-prois;
uses crt;
const
n = 100;
var
a: array [1n] 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.

Закрепление нового материала – практическая работа. Разъяснение хода практической работы.
Задача 1.
Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит количество ненулевых элементов. Перед вводом каждого элемента должна появляться подсказка с номером.
Рекомендуемый вид экрана при работе программы:
После ввода каждого числа нажмите
A[1]= 12
A[2]= 0
A[3]= -3
A[4]= 1
A[5]= 0
В массива 3 ненулевых элемента
Задача 2.
Написать программу, которая определяет, сколько раз в массиве случайных чисел A[1..100] встречается число Х, введенное с клавиатуры.
Оценивание выполнения работы.
Итоги урока.
Домашнее задание. Выучить конспект, повторить § 31.
Задача 1.
Написать программу, которая вычисляет среднее арифметическое ненулевых элементов массива М[1..100], элементы которого вычисляются по формуле:

М[i]=sin(i)*cos(i)
Задача 2.
Написать программу, которая проверяет, образуют ли элементы массива Х[1..10], введенного с клавиатуры неубывающую последовательность.