close

Вход

Забыли?

вход по аккаунту

?

алгоритмы

код для вставки
спецкурс Делфи
Урок
лист 1 (2) 11 класс
Алгоритмы
Создание алгоритмов
Цель урока: обучающая: закрепить и проконтролировать навыки создания базовых структур алгоритмов:
следование, ветвление, повторение;
развивающая: развитие логического мышления, навыков самоконтроля;
воспитательная: умеешь сам – объясни другому.
Тип урока: практическое занятие.
Ученики должны знать: понятие алгоритма; способы и формы представления.
Ученики должны уметь: ° создавать алгоритм задачи; выполнять алгоритм задачи.
Ход урока.
1. Оргмомент. Контроль вып д/з (3 чел у доски).
2. Работа по группам с последующим контролем созданной блок-схемы у доски.
Задачи:
1. Даны две стороны a, b и периметр треугольника P. Найти третью сторону c.
2. Дана сторона a и периметр треугольника P. Длины двух других сторон равны. Найти их.
3. Вычислить высоту дерева, если известно расстояние до него и угол, под которым его
видно. Информацию о высоте дерева распечатайте в следующем виде, например, 2 м 32 см.
4.
Найти у по заданному х. y   0 при x  0 , -x при 0 < х ≤ 1; x2 в ост. случ.
5.
y= 2x при x≤0 ; x в ост. случ.
6.
y= 2x при x≤0 ; x-2 при 0 < х ≤ 1; x в ост. случ.
7.
* является ли введённое число чётным двухзначным.
8.
Вычислить и напечатать значение x, y= x2 в каждой точке отрезка -5; 5.
9.
*Определите, является ли заданное число нечетным двузначным числом.
10.
Заданы площади квадрата и круга. Определите, поместится ли квадрат в круге.
11.
Решите квадратное уравнение.
12.
Найдите среднее арифметическое положительных элементов заданного одномерного
массива.
13. Дано целое положительно число, соответствующее номеру года. Определите, является ли введенный
год високосным: год является високосным, если его номер кратен 4, но из лет, кратных 100, високосными
считаются кратные 400 (Например: 1700, 1800 и 1900 - невисокосные годы, а 2000 - високосный).
Подготовка к Delphi
Линейные Написать программу, которая вычисляет сопротивление электрической цепи, состоящей из двух
сопротивлений. Сопротивления могут быт соединены последовательно или параллельно. (см
Delphi_графика_просто)
Написать программу, которая вычисляет силу тока в электрической цепи. Цепь состоит из двух
сопротивлений. Сопротивления могут быть соединены последовательно или параллельно.
Написать программу, которая, используя закон Ома, вычисляет силу тока, напряжение или сопротивление
электрической цепи. Во время работы программы, в результате выбора переключателя Ток, Напряжение или
Сопротивление, текст, поясняющий значение полей ввода, должен меняться.
Ветвление if в Delphi-
Задача. Развивая предельно возможную скорость своего движения, жираф пробегает за 23 с 335,8 м.
Заяц пробегает за 55 с 918,5 м. Кому из этих животных вы присвоите звание чемпиона, сопоставляя
их скорости? Решение задачи сводится к расчёту скорости животных и их последующему сравнению.
Представим алгоритм решения задачи в виде блок-схемы.
Урок
лист 2 (2) 11 класс
Алгоритмы
В 1985 году урожай ячменя составил 20 ц с га. В среднем каждые 2 года за счет
применения передовых агротехнических приемов урожай увеличивается на 5 %.
Определить, через сколько лет урожайность достигнет 25 ц с га.
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer; // значение i
s:real; // значение S
begin
s:=20;
i:=0;
repeat
i:=i+2;
s:=s+s*0.05;
until s>=25;
label1.Caption:='Урожайность достигнет 25 ц с га через '+IntTоStr (i) +' лет';
end;
end.
Переведите число из десятичной в восьмеричную систему счисления.
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer; // значения i, j
s,z:string; // значения s, z
begin
Label1.Caption:=''; // вычислить значение j
j:=StrToInt(Edit1.Text);
repeat
z:=z+IntTOStr(j mod 8); // вычислить значение z
j:=j div 8;
until j<8;
z:=z+IntTOStr(j);
for i:=Length(z) downto 1 do
Label1.Caption:=Label1.Caption+z[i]
end;
end.
Начав тренировки, спортсмен в первый день пробежал 13 км. Каждый следующий
день он увеличивал дневную норму на 1,4 % от нормы предыдущего дня. На какой день он
пробежит более 24 км?
procedure TForm1.FormCreate(Sender: TObject);
var i:integer; s:real;
begin
s:=13;
i:=1;
repeat
i:=i+1;
s:=s+s*0.14;
until s>=24;
label1.Caption:='Спортсмен пробежит более 24км на '+IntTOStr(i)+' день';
end;
end.
Автор
ovsianik
Документ
Категория
Образование
Просмотров
11
Размер файла
36 Кб
Теги
алгоритмы, делфи
1/--страниц
Пожаловаться на содержимое документа