Урок 7.
Тема. ПРАКТИЧЕСКАЯ РАБОТА
«СОЗДАНИЕ И РЕАЛИЗАЦИЯ ПРОГРАМ ОБРАБОТКИ ТАБЛИЧНЫХ ВЕЛИЧИН».
Цель:
1.
отработка навыков решения задач с совместным
применением одномерных
и двумерных массивов; подготовка к
контрольной работе. Познакомить
с генерацией элементов массива с помощью функции случайных чисел- Randomize;
2. Развивающая – учить анализировать и сравнивать, задавать вопросы.
3. Воспитательная – воспитывать аккуратность, внимательность, вежливость и дисциплинированность, бережное отношение к вычислительной технике.
Ход урока
1. Актуализация знаний
Занятие начинается с повторения материала на определение значения элемента по его порядковому номеру в массиве.
|
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
А$, |
*м |
*а |
*с |
*с |
*и |
*в |
*- |
* |
В$ |
*т |
*а |
*б |
*л |
*и |
*ц |
*а |
* |
С$, |
*и |
*з |
*n |
*с |
*т |
*р |
*о |
*к |
|
Задание. Имеется три одномерных массива — А$, В$ и С$, с помощью которых зашифрована фраза.
Известно, что / и J,R — порядковые номера (индексы) элементов массива, причем i=6 и J=7, r=8. А также
1. А$(1) = «м».
2. А$(2) = «а».
3. А$(6) = «в».
4. А$(7) = «-».
5. В$(1) = т
6. В$(2) = а
7. В$(5) = и
8.
С$(1)
= «и».
9.
С$(3) = «N».
10. С$(4) = «с».
11. С$(8) = «K».
Какая фраза зашифрована?
2. Практическое
задание. Задача № 1. Составить программу, которая в двумерном массиве случайных чисел находит в каждой строке наибольший элемент и записывает его в одномерный массив. m – количество строк в двумерном массиве и длина одномерного массива; n – количество столбцов; A[1..m,1..n] - двумерный массив; B[1..m] – одномерный массив max – вспомогательная переменная для нахождения наибольшего элемента в каждой строке. |
Ответ:. Массив-таблица из п строк
Пояснение по функции
случайных чисел- Randomize:
·
Задача 2.
·
Заполнить
массив случайными числами и вывести его на экран компьютера( программу открыть
и записать в тетрадь).
Program Random_mas;
uses Crt;
Var i: integer;
a : array [1..10] of integer;
begin
Clrscr;
Randomize; (функция случайных чисел)
For i:=1 to 5 do ( вывести 5 случайных чисел)
begin
a[i]:=random(100); (любое случайное число из 100 чисел)
writeln(a[i]);
end;
readln;
end.
·
Программу
закомментировать .
Программа задачи 1 ( программу написать самостоятельно)- 15 мин.
Пояснение: Воспользоваться программными строками генерации случайных чисел из закомментированной предыдущей программы.
Program max_str;
Uses crt;
Const
m=5; n=6;
var
i,j:byte;
a: array
[1..m, 1..n] of integer; b: array [1..m] of integer; max: integer;
begin
randomize;
for i:=1
to m do
begin
for
j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
writeln ('Массив из максимальных значений в строках:');
for i:=1 to m do
begin
max:=a[i,1];
for
j:=2 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;
b[i]:=max;
write (b[i]:4);
end;
readln;
end.
Дополнительные задачи:
1. Рассчитать наибольшее и наименьшее значения функции y= sin(x) - x2 на интервале 0 =< x <= 1, изменяя значение "х" с шагом 0. 005. Вывести на экран таблицу значений "х" и "у" в три пары колонок, а также наибольшее и наименьшее значения функции "у" и соответствующие им значения "х".
2. Рассчитать наибольшее и наименьшее значения функции y= cos(x) + x на интервале 0 =< x <= Pi/2, разбив интервал на 99 отрезков. Вывести на экран таблицу значений "х" и "у" в две пары колонок, а также наибольшее и наименьшее значения функции "у" и соответствующие им значения "х".
3. Итог урока. Выставление
оценок за составление программы практической работы.
4. Задание на дом:
• Составить программу, которая в каждом столбце двумерного массива случайных чисел находит наименьший элемент и записывает его индекс в одномерный массив.