Одномерные массивы. Решение задач

Конспект

урока информатики

по теме «Одномерные массивы. Решение задач»

Тема: Одномерные массивы. Решение задач

Цели урока:

1.Обучающие:

- научить решать типовые задачи на одномерные массивы.

2.Воспитывающие:

- воспитывать информационную и изобразительную культуру учащихся.

3.Развивающие:

- развивать логическое мышление;

- расширять познания учащихся об окружающем нас информационном мире.

Тип урока: комбинированный.

Оборудование: доска, компьютеры, рабочая тетрадь.

План урока:

1. Организационный момент…………………………………………...…...1 мин

2. Актуализация знаний……………………………………………………..6 мин

3. Закрепление изученного материала………………………………….....15 мин

4. Практическая работа за компьютером….…………………....................15 мин

5. Подведение итогов……………...………………………………...............2 мин

6. Домашнее задание……………………………...………………………....1 мин

Ход урока

Организационный момент

Здравствуйте. Садитесь. Сегодня урок информатики у вас проведу я. На прошлом уроке вы познакомились с вводом и выводом значений элементов одномерного массива. Мы продолжим эту тему и сегодня будем решать типовые задачи.

Актуализация знаний

Давайте проверим ваше домашнее задание. Теперь мы повторим основные теоретические знания на одномерные массивы. На следующем уроке будет самостоятельная работа, которая включает в себя теоретические знания и решение задачи на Паскале за компьютером. На доске написана задача на нахождение количества элементов. Вам нужно найти ошибки.

programm 1zadacha;

var i,k:integer;

t:string;

a:array[1...10] of byte;

begin;

writeln (“vvedite t”);

readln (t)

for i:=1 to 10 do

readln a[i];

if (a[i])t then k=k+a[i]

end;

writeln ('kolichestvo elementov;k);

end;

end.

Закрепление изученного материала

Задача №1. Нахождение суммы

Дан массив А(20). Найти сумму значений элементов массива, больших некоторой величины t.

program zadacha;

var i,s,t:byte;

a:array[1..10] of byte;

begin

writeln ('vvedite t');

readln (t);

for i:=1 to 10 do begin

writeln ('vvedite znachenie ',i,' elementa massiva');

readln(a[i]);

if a[i]t then s:=s+a[i]

end;

writeln ('summa elementov t=',s);

end.

Задача №2. Поменять местами значения элементов

Дан массив А(40), заполненный случайными числами. Поменять местами 1-й элемент с последним, 2-ой с предпоследним и т.д.

program zadacha;

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

i,p:integer;

begin

randomize;

for i:=1 to 40 do begin

a[i]:=random(100);

writeln (a[i]);

end;

for i:=1 to 20 do begin

p:=a[i];

a[i]:=a[10-i+1];

a[10-i+1]:=p;

end;

for i:=1 to 40 do

writeln (a[i]);

end.

Практическая работа за компьютером

Теперь попробуем проверить правильность решения задач на компьютере.

Подведение итогов

Итак, скажите, пожалуйста, что нового вы узнали сегодня на уроке и какие знания закрепили?

Домашнее задание

1. подготовиться к самостоятельной работе

2. решить в тетради задачу: «Дан массив на 30 элементов, заполненный по формуле 3х+8. Найти произведение значений элементов массива, меньших 20».