Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Конспекты / План урока: «Составление простейших программ с использованием массивов»
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

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

библиотека
материалов

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

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







План урока:

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





Провела:

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

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

Группы 060502

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

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

20.02.10.









Казань 2009

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

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

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

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

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

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

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



План урока:

  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.




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


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

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.



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

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.


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

Задача 1.

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

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

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

A[1]= 12

A[2]= 0

A[3]= -3

A[4]= 1

A[5]= 0

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

Задача 2.

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

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

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

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

Задача 1.

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



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

Задача 2.

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








Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Краткое описание документа:

Триединая задача урока: Познавательная Формировать навыки и умения составления программ с использованием массивов. Развивающая Учить строить аналогии, выделять главное, ставить и решать проблемы. Воспитательная Воспитывать аккуратность, внимательность, вежливость и дисциплинированность.   План урока: 1.     Составление программ   a.  Заполнить массив случайными числами и вывести его на экран компьютера.   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.       b. Определить, содержит ли  массив 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.   c.   Заполнить массив значениями, вычисляемыми по формуле: 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.   d. Составить программу подсчета суммы и произведения элементов одномерного       массива. 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.
Автор
Дата добавления 03.04.2014
Раздел Информатика
Подраздел Конспекты
Просмотров820
Номер материала 57277040346
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх