Подборка задач по темеАлгоритм и его свойства

Выступление на МО учителей информатики подборка задач для решения по теме алгоритм и его свойства в средней школы.

Знакомство с алгоритмами учащихся происходит в начальной школе. В третьем классе учащиеся уже знают определение алгоритма. Основные виды алгоритмических конструкций: линейная, циклическая и ветвление. Также они знакомятся с системами программирования «Скрейтч» и «Черепашка». Продолжение знакомства происходит в 6 классе. Учащиеся изучают основные алгоритмические конструкции, знакомятся с различными способами записи алгоритма. Интерес у учащихся вызывает работа над проектами по теме ветвления - компьютер отгадывает одного из героев сказки репка. В зависимости от уровня подготовки учащихся, можно сразу поставить перед учащимися задачу. Показать готовую презентацию и дать задание на создание аналогичной по другой сказке. Можно наоборот полностью разобрать задачу начиная с блок-схемы

Программы для черепашки или Скрейтч

Сброс

Повтори 5[

Вперёд 100

Направо 144

]

Сброс

Назад 100

Нов_ширина_пера 5

Вперёд 100

Направо 45

Вперёд 71

Направо 90

Вперёд 71

направо 45

вперёд 100

направо 90

вперёд 100

направо 135

вперёд 142

налево 135

вперёд 100

налево 135

вперед 142

сброс

повтори 5 [

вперёд 100

направо 120

]

Забор

Сброс

Нов_размер_холста 300,300

Нов_ширина_пера 4

Спрячь

Иди 10,280

Повтори 7[

Вперёд 100

Направо 45

Вперёд 28

Направо 90

Вперёд 28

Налево 45

Вперёд 100

Налево 180

]

Сброс

Нов_размер_холста 400,400

Повтори 3[

X = случайное 0,225

Y = случайное 0,225

Иди Х,У

Вперёд 100

Налево 135

Вперёд 48

Назад 48

Налево 90

Вперёд 48

Назад 48

Направо 45

Вперёд 40

Налево 45

Вперёд 48

Назад 48

Направо 90

Вперёд 48

Назад 48

Налево 45

Вперёд 60

Налево 180

]

Сброс

Повтори 180 [

Вперёд 1

Направо 1

]

Сброс

Повтори 360 [

Вперёд 1

Направо 1

]

Повтори 360 [

Вперёд 1

Налево 1

]

Бабочка

Сброс

Повтори360[

Вперёд1

Направо1

]

Повтори 360 [

Вперёд 1

Налево 1

]

Повтори 180 [

Вперёд 1

Направо 2

]

Повтори 180 [

Вперёд 1

Налево 2

]

Повтори 90 [

Вперёд 3

Направо 4

]

Повтори 90 [

Вперёд 3

Налево 4

]

Сброс

Нов_размер_холста 300,300

Имя = окно вопроса «Сколько тебе лет»

Иди 0,10

Напиши «Ты учишься»,имя-6, «классе»

Напиши «Ты прожил», имя*365,25 «дней»

Сброс

Спрячь

Х = случайное 0,7

Если Х < 1 [иди 0,10

Напиши «любит» ]

Если (Х>1)и(X<2)

[ иди 0,20

Напиши «не любит»

]

Если (Х>2) и (X<3)

[

Иди 0,30

Напиши «плюнет»

]

Если (Х>3)и(Х<4)

[

иди 0,40

Напиши «поцелует»

]

Если (Х>4)и(Х<5)

[

иди 0,50

Напиши «к сердцу прижмёт»

]

Если (Х>5)и(Х<6)

[

иди 0,60

Напиши «к черту пошлет»

]

Если (Х>6)и(Х<7)

[

иди 0,70

Напиши «своей нозовет»

]

Музыка для Скрейтча гамма на 0,5 такта ноты 60,62, 64, 65, 67, 69, 71, 72 чижик - пыжик 64 0,25 60 0,25 64 0,25 60 0,25 65 0,25 64 0,25 62 0,5 67 0,25 67 0,25 67 0,25 69 0,125 71 0,125 60 0.25 60 0,25 60 0,5

Линейные алгоритмы

Составить алгоритм переводящий температуру в градусах Цельсия в температуру по Фаренгейту и наоборот.

Dim C, F As Integer

Sub Command1_Click()

C = InputBox("Введи температуру в градуса Цельсия")

F = 32 +(F*9/5)

Print"Температура в градусах Фаренгейта";F

End Sub

Алгоритм вычисляющий идеальный вес человека по формулам для женщины Вж = (Р*3 - 450+Л)*0,225 +40,5 для мужчины Вм = (Р*3 - 450+Л)/4 +45)

Dim V,L,V As Single

Sub Command1_Click()

R = InputBox("Введи рост в см")

L = InputBox("Введи возраст в годах»)

V = (R*3-450+L)*0.225+40.5

End Sub

Строковые функции и строковые переменные. Используя функции вырезки и склейки получить из слова простоквашино слова сторона, росток, квас, ваш шар просто красота. Из слова академия получить слова камея мидия диадема маяк

Из слова железнодорожник получить слова дозор, железо, жезл, колено, крокодил

Составить слово алгоритм из слов аттестат лимон гора

Составить слово интеграл из слов интуиция градус лень

Разветвляющие алгоритмы

Составьте алгоритм, определяющий введенное число четное или нечетное, введенный год високосный или не високосный

program sc;

var a : integer;

begin

readln(a);

if a mod 2 = 0 then writeln('четное')

else writeln('нечетное')

end.

program sc;

var a : integer;

begin

readln(a);

if a mod 4 = 0 then writeln('високосный')

else writeln('невисокосный');

end.

Программа здоровается с своим пользователем и спрашивает где пользователь, если введено другое имя

Dim strA As String

Sub Command1_Click()

strA = InputBox("Введите свое имя ")

If strA = "Вася"Then Print"Здравствуй Вася"else Print"А где Вася?"

End Sub

В компьютер вводится число от 1 до 100, программа соотносит числительное с существительным ворона

A = InputBox("")

B = A Mjd 10

If A = 0 Or A>=5And A<=20 Or B>=5 Or B =0 Then Print A;"ворон"

Else

If B >=2 And B <=4 Then Print A;"вороны"

Else

Print A;"ворона"

End If

End If

Составить алгоритм, заменив слово ворона на рубль овец, подсчитывающий количество лет.

Команда выбора

Dim N As Byte

Private Sub Command1_Click()

A = InputBox("Скажи что нибуть Эллочки")

N = Int(Rnd(1) * 5) + 1

Select Case N

Case 1

Print "Красота"

Case 2

Print "Не учите меня жить"

Case 3

Print "Мрак"

Case 4

Print "Хамите"

Case 5

Print "Ты толстый красивый парниша"

Case 6

Print "Ого"

Case Else

Print "Жуть"

End Select

End Sub

Циклические алгоритмы

Графика в циклических алгоритмах

Dim strA, strB, strX As String

strA = InputBox("Введите слово")

strX = ""

For I = 1To Len(strX)

strB = Mid(strA,I,1)

strX = strB +strX

Next

Print"Слово перевертыш";strX

End Sub

Dim N, S, i As Integer

Private Sub Command1_Click()

N = Int(Rnd(1) * 100) + 1

S = 0

D:

i = InputBox("Угадай число которое я задумала")

Do While i <> N

If i > N Then Print "мговато будет"

S = S + 1

GoTo D

If i < N Then Print "маловато будет"

S = S + 1

GoTo D

Loop

Print "число угадано потрачено попыток"; S

End Sub

Private Sub Command1_Click()

P = 4 * Atn(1)

N = InputBox("число сторон")

R = 3000

PSet (7000 + R * Sin(2 * P / N), 5000 + R * Cos(2 * P / N)), vbRed

For I = 0 To 2 * P Step 2 * P / N

X = 7000 + R * Sin(I)

Y = 5000 + R * Cos(I)

Line -(X, Y), vbRed

Next

End Sub

Звезды

Private Sub Command1_Click()

P = 4 * Atn(1)

N = InputBox("количество зубцов")

R = 3000

For I = 0 To 2 * P Step 2 * P / N

PSet (7000 + R * Sin(I), 4000 + R * Cos(I)), vbRed

X = 7000 + R * Sin(I)

Y = 4000 + R * Cos(I)

Line -(X, Y), vbRed

X1 = 7000 + R * Sin(I + P * 4 / 5)

Y1 = 4000 + R * Cos(I + P * 4 / 5)

Line -(X1, Y1), vbRed

Next

End Sub

Одномерные массивы

Памятка для решения задач

название

Сумма элементов массива

Произведение элементов массива

Максимум элемент массива

Минимум элемент массива

Количество элементов массива

Поиск порядкового элемента равного 7

Команда до цикла

S = 0

P = 1

Max=A(1)

Min=A(1)

K = 0

K = 0

Команда в цикле

S = S + A(I)

Если нужно найти сумму только положительных то в цикле должно быть If A(I)>0 Then S = S + A(I)

P = P *A(I) Если нужно найти произведение только отрицательных то в цикле должно быть If A(I)<0 Then Р = Р*A(I)

If A(I)>Max Then Max = A(I)

If A(I)

К = К+1 Если нужно найти количество только нулевых то в цикле должно быть If A(I)=0 Then К = К + 1

If A(I) = 7 Then К =I