Если есть время напишите проги - VB
Формулировка задачи:
Интересно как решаются задачи. Если у кого есть время и желание напишите))) Всем ставлю +
[B][I]1. «ЛЕНТА»
На ленте напечатаны цифры. Над лентой находится некий исполнитель, который может выполнять 2 команды:
() — передвинуться на одну цифру влево;
(+) — изменить цифру, над которой он находится в данный момент, по правилу:
1 изменяется на 2;
2 — на 3;
3 — на 4;
4 — на 5;
5 — на 6;
6 — на 7;
7 — на 8;
8 — на 9;
9 — на 0;
0 — на 1.
На ленте напечатано число 2307, исполнитель находится над цифрой 7. Как увеличить число на 93 за минимальное количество команд?
3. «ИСПОЛНИТЕЛЬ ЧЕРЕПАШКА»
Исполнитель Черепашка перемещается на экране компьютера, оставляя след в виде линии. В каждый конкретный момент известно положение исполнителя и направление его движения. У исполнителя существуют команды:
вперед N — передвижение черепашки на N шагов в направлении движения
направо M — изменение направления движения на M градусов против часовой стрелки
повтори T [Команда1 Команда2] — последовательность команд в скобках повторится T раз
Черепашке был дан для исполнения следующий алгоритм:
повтори 3 [вперед 15 направо 60]
Какая фигура появится на экране?
4. «СТРОКИ»
В начальный момент в строке записана цифра 0 (ноль).
На каждом из последующих 9 шагов выполняется следующая операция: в очередную строку записывается увеличенная вдвое предыдущая строка, а в конец строки приписывается очередная цифра (на i-м шаге приписывается цифра i).
Для удобства в скобках пишется номер строки (начиная с 0). Ниже показаны первые строки, сформированные по описанному правилу.
(0) 0
(1) 001
(2) 0010012
(3) 001001200100123
...
Сколько раз в последней строке встречается цифра 5?
5. «ВЫРАВНИВАНИЕ».-
Даны 5 чисел. Разрешается одним ходом выбрать любые три из них и увеличить каждое на одно и тоже число. Затем, при необходимости, выбирается другая тройка чисел и тоже увеличивается каждое из выбранных. Итак, до тех пор, пока все пять чисел не станут равными.
Опишите алгоритм, при котором любая заданная пятёрка чисел в результате его выполнения становится равной друг другу.
Например: 3,7,1,11,4 (варианты могут быть разные)
1 вариант 2 вариант
Шаг 0 3,7,1,11,4 3,7,1,11,4
Шаг1 7,11,5,11,4 13, 7, 11, 11, 14
Шаг 2 7,14,5,14,7 13, 14, 18, 18, 14
Шаг З 7,16,7,16,7 18,19, 18,18,19
Шаг 4 16,16,16,16,16 19,19,19,19,19
ЗАДАНИЕ 3 «Кучки».
Имеется кучка из n (n<32000) орехов. Разрешается разделить её на две. Каждую из полученных кучек можно также разделить на две. За каждое деление кучки на две неравные полагается штраф – 1 мрот (минимальный размер оплаты труда). Деление продолжается до тех пор, пока кучки не будут содержать по одному ореху.
Для введённого с клавиатуры числа орехов определить наименьший возможный штраф за деление.
Например, если n=100, то наименьший штраф s=2 мрот.
1. «ИСПОЛНИТЕЛЬ Арифметик»
У исполнителя Арифметик есть 2 команды, которым присвоены номера:
1. вычти 1
2. умножь на 3
Первая из них уменьшает число на экране на 1, вторая — увеличивает его в 3 раза.
Запишите программу, состоящую из минимального количества команд, для получения
из числа 3 числа 16.
2. «ИСПОЛНИТЕЛЬ Кузнечик»
Выберите точки 480, 115, 555, 160, 220, в которые может допрыгать исполнитель Кузнечик из начального положения в точке 0, если он умеет выполнять только команды:
вперед 15 — прыгает по числовой оси вперед на 15 единиц,
назад 6 — прыгает по числовой оси назад на 6 единиц.
Решение задачи: «Если есть время напишите проги»
textual
Листинг программы
Private Sub Form_Load() Dim s As String, z(5) As Integer, i As Integer z(1) = 480 z(2) = 115 z(3) = 555 z(4) = 160 z(5) = 220 s = "" For i = 1 To 5 If (z(i) Mod 3 = 0) Then s = s + CStr(z(i)) + " Yes" + vbCrLf Else s = s + CStr(z(i)) + " No" + vbCrLf End If Next i MsgBox s End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д