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

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


Напоминаем, что в соответствии с профстандартом педагога (утверждён Приказом Минтруда России), если у Вас нет соответствующего преподаваемому предмету образования, то Вам необходимо пройти профессиональную переподготовку по профилю педагогической деятельности. Сделать это Вы можете дистанционно на сайте проекта "Инфоурок" и получить диплом с присвоением квалификации уже через 2 месяца!

Только сейчас действует СКИДКА 50% для всех педагогов на все 184 курса профессиональной переподготовки! Доступна рассрочка с первым взносом всего 10%, при этом цена курса не увеличивается из-за использования рассрочки!

ВЫБРАТЬ КУРС И ПОДАТЬ ЗАЯВКУ
библиотека
материалов

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

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







План урока:

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





Провела:

Студентка 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], введенного с клавиатуры неубывающую последовательность.







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

Триединая задача урока: Познавательная Формировать навыки и умения составления программ с использованием массивов. Развивающая Учить строить аналогии, выделять главное, ставить и решать проблемы. Воспитательная Воспитывать аккуратность, внимательность, вежливость и дисциплинированность.   План урока: 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.

Общая информация

Номер материала: 57277040346


Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

Специально для учителей, воспитателей и других работников системы образования действуют 60% скидки (только до конца зимы) при обучении на курсах профессиональной переподготовки (124 курса на выбор).

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG

Похожие материалы

Только до конца зимы! Скидка 60% для педагогов на ДИПЛОМЫ от Столичного учебного центра!

Курсы профессиональной переподготовки и повышения квалификации от 1 400 руб.
Для выбора курса воспользуйтесь удобным поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВЫ).

Московские документы для аттестации: KURSY.ORG


Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс профессиональной переподготовки «Информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Облачные технологии в образовании»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Специфика преподавания информатики в начальных классах с учетом ФГОС НОО»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»