Если есть время напишите проги - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы