Варинат 2
Задание 1
Алгоритмический этюд для проверки знаний операторов языка программирования
Цель:
Проверить знание операторов языка программирования
Деятельность учащегося:
Оценка работы предложенной части программы на языке программирования Pascal
Задание.
Определить результат выполнения следующего кода программы:
……
Program prim1;
Var
N, i,a:integer;
begin
N:=10;
a:=0;
for i:=1 to N do
a:=N*(N+i);
writeln('a=',a);
readln;
end.
…….
Ответ a=200
Задание 2
Составление программы на проверку попадания точки, заданной координатами (Х, У) в заштрихованную область.
Цель:
Определить попадает ли точка в заданную область
Деятельность учащегося.
Необходимо определить формулу параболы и окружности.
Определить попадает ли точка в пересечение параболы и окружности.
Задание
Точка задана координатами. Определить попадает ли точка в заштрихованную область
Ответ
Program tochka;
var x, y: real;
begin
readln(x, y);
if x*x+y*y<=1 then
begin
if (x*x+y*y<=1) and ((x<=0) or (y>=0)) then
write('принадлежит')
else
write('не принадлежит');
readln;
end.
Задание 3
Составления программы для исполнителя, работающего в обстановке
Цель:
Изучить возможности исполнителя
Деятельность учащегося:
Используем теорему Пифагора
Задание
Построить прямоугольный треугольник с катетами N, R и гипотенузой K
где N = 9, R=16, N= 25
A, B, C – Углы треугольника
Использовать команды ВПЕРЕД, НАЛЕВО, НАПРАВО
Ответ
направо 90
вперёд 3
налево 90
вперёд 4
налево 135
вперёд 5
 |
Задание 4.
Логическая информация и основы логики.
Цель:
Изучить основы логических операций и построения логических схем
Деятельность учащегося.
Определить какие логические операции используются и как они отображаются на логических схемах
Задание.
Построить ЛОГИЧЕСКУЮ ФОРМУЛУ ПО СХЕМЕ
 |
Ответ
 |
( А V В ^ C)
Задание 5
Кодирование информации и измерение информации.
Цель:
Научить учащихся правильно измерять количество информации
Деятельность учащегося
Определение количества информации в сообщении
Задание.
Сколько бит информации содержит сообщение о том, что на экзамене ученик вытянул билет №14, а всего экзаменационных билетов было 32?
Решение:
Выбран один из 32 билетов, произошло одно из 32 равновероятных событий. По формуле Хартли количество информации равно:
I = log232 = 5 (бит)
Ответ: 5
Задание 6.
Составление программы с использованием одномерного массива
Цель:
Научиться использовать одномерный массив в PASCAL
Деятельность учащегося
Разобраться со структурой и принципом работы в одномерном массиве.
Задание.
Подсчитать количество отрицательных и неотрицательных элементов массива, заданного датчиком случайных чисел.
Решение:
Program mass1:
Var i, k,n. l:integer;
a:array[1..n] of integer;
begin
randomize:
readln(‘Введите число элементов массива ‘, n );
for i:=1 to n do begin
a[i]:= random (45)-22;
write(a[i], ‘ ‘);
if a[i]>=0 then k:=k+1 else l:=l+1 ;
end;
writeln (‘неотрицательных = ‘ k, ‘ отрицательных = ‘l);
readln;
end.
Задание 7
Составление программы с использованием двумерного массива.
Цель.
Научиться использовать двумерный массив в PASCAL
Деятельность учащегося
Разобраться со структурой и принципом работы в двумерном массиве
Задание
Вычислите среднее арифметическое значение элементов двухмерного массива А(nхm), больших заданного числа Q.
Решение:
Program mass2;
var a:array[1..n,1..m]of real;
Q, x:real;
i, j,m, n,k:integer;
begin
writeln('введите размер матрицы ');
readln(n, m);
writeln('введите Q’);
readln(Q);
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i, j]:=random(100)+random;
write(a[i, j]:5:1);
end;
writeln;
end;
x:=0;
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i, j]>Q then
begin
x:= x+a[i, j];
k:=k+1;
end;
x:=x/k;
write(‘среднее арифметическое = ‘,x:10:3);
end.
Список литературы:
1.Констпекты уроков по информатики в 9-11 классах: Практикум по программированию /Авт-сост. A. A. Чернов. – Волгоград: Учитель. 2005. – 236 с
2. Материалы по Logo Мирам
www. *****/club/logomiry/file2/217807
http://www. *****/logo/products. html
3. , , Фалина алгебры логики в профильном курсе информатики (10-11 классы). // Еженедельное приложение к газете "Первое сентября" "Информатика", №12, №14, 2003.
