Выбранный для просмотра документ 10 класс 8 урок.doc
Скачать материал "Разработка урока "Поиск элементов с заданными свойствами. Решение задач с использованием алгоритма линейного поиска""
Рабочие листы
к вашим урокам
Скачать
Выбранный для просмотра документ Поиск элементов с заданными свойствами.ppt
Скачать материал "Разработка урока "Поиск элементов с заданными свойствами. Решение задач с использованием алгоритма линейного поиска""
Рабочие листы
к вашим урокам
Скачать
1 слайд
Поиск элементов с заданными свойствами. Решение задач с использованием алгоритма линейного поиска
2 слайд
Пример 5.7. Известны результаты ЦТ по математике для n человек. Определить, есть ли среди них хотя бы один человек с баллом выше x. Значение x вводится с клавиатуры. Результаты экзаменов ввести случайным образом.
var a: array[1..20] of integer;
n,x,k,i:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=random(101);
write(a[i],' ');
end;
writeln;
readln(x);
k:=0;
for i:=1 to n do
if a[i]>=x then
begin
k:=k+1;
writeln(‘Это человек с № ', i, ‘ , его балл - ‘a[i]);
end;
if k=0 then writeln(‘таких нет');
end.
3 слайд
Пример 5.8. В двух линейных массивах x и y, заданных случайным образом, хранятся координату точек плоскости (-200 ≤ x[i], y[i] ≤ 200). Определить, каких точек больше – лежащих внутри или снаружи области, ограниченной окружностью радиуса r с центром в начале координат (будем считать, что точки, лежащие на окружности, лежат внутри области). Построить окружность и точки. Точки, принадлежащие внутренней области, нарисовать красным цветом, а внешней области – синим цветом..
4 слайд
uses graphabc, crt;
var x,y:array[1..1000] of integer;
n,k1,k2,r,i:integer;
begin
read(n);
for i:=1 to n do
begin
x[i]:=random(401)-200;
y[i]:=random(401)-200;
end;
readln(r);
circle(200,200,r);
line(0,200,400,200);
line(200,0,200,400);
for i:=1 to n do
if x[i]*x[i]+y[i]*y[i]<=r*r then
begin
k1:=k1+1;
setpixel(x[i]+200,200-y[i], clred);
end
else
begin
k2:=k2+1;
setpixel(x[i]+200,200-y[i], clblue);
end;
if k1>k2 then writeln(‘ Внутри больше')
else if k1<k2 then writeln(‘ Снаружи больше ')
else
writeln(‘ поровну');
end.
5 слайд
Пример 5.10. Имеется список мальчиков 10 А класса и результаты их бега на 100 м. Для сдачи норматива необходимо пробежать дистанцию не более чем за 16 с. Вывести фамилии учащихся, которые не выполнили норматив по бегу. Сколько таких учащихся в классе?
var r: array[1..20] of real;
fam:array[1..20] of string;
i,n,k: integer;
Begin
readln(n);
for i:=1 to n do
begin
readln(fam[i]);
readln(r[i]);
end;
K:0;
for i:=1 to n do
if r[i]>16 then begin
k:=k+1;
writeln(fam[i]); end;
writeln(‘ne cdali normativ’, k);
end.
Рабочие листы
к вашим урокам
Скачать
Рабочие листы
к вашим урокам
Скачать
Учебное пособие для 10 класса учреждений общего среднего образования с русским языком обучения "Информатика 10 класс" , В.М. Котов, А.И. Лапо, Ю.А. Быкадоров, Е.Н. Войтехович, Минск "Народная асвета" 2020Учебное пособие для 9 класса общеобразовательных учреждения с русским языком обучения "Информатика 9 класс", Г.А. Заборовский, А.И. Лапо, А.Е. Пупцев, Минск "Народная асвета", 2009
6 664 254 материала в базе
Настоящий материал опубликован пользователем Лось Ирина Валерьевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс повышения квалификации
72 ч. — 180 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Курс профессиональной переподготовки
600 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.