9 класс
ОДНОМЕРНЫЕ МАССИВЫ ЦЕЛЫХ ЧИСЕЛ. ОПИСАНИЕ,ЗАПОЛНЕНИЕ, ВЫВОД МАССИВА
Цель урока: иметь представление о одномерном массиве, разрабатывать программы для обработки одномерного массива.
Хо работы.
Организационный момент.
Проверка домашнего задания.
Основная часть урока.
Урок проводить при помощи презентации «Одномерные массивы целых чисел».
Массив - это поименованная совокупность однотипных элементов, упорядоченных по индексам, определяющим положение элемента в массиве.
Решение разнообразных задач, связанных с обработкой массивов, базируется на решении таких типовых задач, как:
- суммирование элементов массива;
- поиск элемента с заданными свойствами;
- сортировка массива.
Описание массива
function (): ;
begin
;
имя_функции := результат
end;
var a: array [1..10] of integer;
const b: array [1..5] of integer = (4, 2, 3, 5, 7);
Массив b с постоянными значениями описан в разделе описания констант.
Способы заполнения массива
1 способ. Ввод каждого значения с клавиатуры:
for i:=1 to 10 do read (a[i]);
2 способ. С помощью оператора присваивания (по формуле):
for i:=1 to 10 do a[i]:=i;
3 способ. С помощью оператора присваивания (случайными числами):
randomize;
for i:=1 to 10 do a[i]:=random(100);
Вывод массива
1 способ. Элементы массива можно вывести в строку, разделив их пробелом:
for i:=1 to 10 do write (a[i], ' ');
2 способ. Вывод с комментариями:
for i:=1 to 10 do writeln ('a[', i, ']=', a[i]);
Объявление массива
Заполнения массива A(10) случайными числами и вывод элементов массива program n_1 ;
var i: integer;
Заполнение массива
a: array[1...10]
of integer;
Вывод массива
begin for i:=1 to 10
do a[i]:=random(50);
for i:=1 to 10 do write (a[i],` `);
end.
Практическая работа № 3.
Конструирование алгоритмов.
Цель: конструирование алгоритмов с помощью программы «Паскаль»
Тип урока: Практическое применение знаний, умений, навыков.
Ход урока
Организация класса.
Инструктаж по ТБ.
Выполнение практической работы.
Задание №1
Напишите программу, которая вычисляет среднюю за неделю температуру воздуха.
Исходные данные вводятся с клавиатуры.
Пример входных данных.
Понедельник 12
Вторник10
Среда16
Четверг18
Пятница17
Суббота16
Воскресенье14
Пример выходных данных
Средняя температура за неделю: 14.71
var
a, b, c, d, e, f, g, sr: real;
begin
write('понедельник: ');
read(a);
write('вторник: ');
read(b);
write('среда: ');
read(c);
write('четверг: ');
read(d);
write('пятница: ');
read(e);
write('суббота: ');
read(f);
write('воскресенье: ');
read(g);
sr := (a + b + c + d + e + f + g) / 7;
writeln('Средняя температура за неделю: ', sr:1:2);
end.
Задание № 2
Сумма элементов, больших 50, но меньших 60. В массиве из программы 6 – это 55. program n_5;
var
i, s: integer;
const
a: array [1..10] of integer = (1, 55, 50, 120, 50, 17, 4, -50, 80, 50);
begin
s := 0;
for i := 1 to 10 do
if (a[i] 50) and (a[i] 60) then s := s + a[i];
writeln('s=', s)
end.
s=55
Закрепление.
Выводы по теме.
Подведение итогов.
Домашнее задание: § 2.2, выучить основные определения, задание № 7 стр.74
Дан массив из десяти целых чисел . определите, сколько элементов этого массива имеют максимальное значение.
Var
a: array[1..10] of integer;
max,i,x: integer;
begin
max:=-32768;
x:=1;
write('Введите элементы массива(через пробел) - ');
for i:=1 to 10 do
begin
read(a[i]);
if (a[i] max) then max:=a[i]
else if (a[i] = max) then x:=x+1;
end;
writeln('Элементов с максимальным значением: ', x);
end.