Если есть время напишите проги

@parkito · Регистрация: 22.03.2010

Студворк — интернет-сервис помощи студентам

Интересно как решаются задачи. Если у кого есть время и желание напишите))) Всем ставлю +

[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 единиц.

@Dzhej-Dzhej · 11.11.2010, 17:26

«Кучки»:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
    Dim s As Integer, z As Integer
    Randomize
    s = CInt((32000 * Rnd) + 1)
    MsgBox "s = " + CStr(s)
    's = 100
    z = -1
    While (s > 0)
        If (s Mod 2 = 1) Then z = z + 1
        s = s \ 2
    Wend
    MsgBox CStr(z)
End Sub

@parkito · 11.11.2010, 17:35 **[ТС]**

Спасибо огромное !

@Dzhej-Dzhej · 11.11.2010, 17:45

«ЛЕНТА»

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_Load()
    Dim s As Integer, z As Integer, q As String, i As Integer
    s = 2307
    z = s + 93
    q = ""
    While (s > 0)
        For i = 1 To ((z Mod 10) - (s Mod 10) + 10) Mod 10
            q = q + "+"
        Next i
        s = s \ 10
        z = z \ 10
        If (s = z) Then GoTo endsub
        q = q + "^"
    Wend
endsub:
    MsgBox CStr(q)
End Sub

Добавлено через 9 минут

3. «ИСПОЛНИТЕЛЬ ЧЕРЕПАШКА»
Исполнитель Черепашка перемещается на экране компьютера, оставляя след в виде линии. В каждый конкретный момент известно положение исполнителя и направление его движения. У исполнителя существуют команды:
�� вперед N — передвижение черепашки на N шагов в направлении движения
�� направо M — изменение направления движения на M градусов против часовой стрелки
�� повтори T [Команда1 Команда2] — последовательность команд в скобках повторится T раз
Черепашке был дан для исполнения следующий алгоритм:
повтори 3 [вперед 15 направо 60]
Какая фигура появится на экране?

равносторонний треугольник(стороны равны, углы равны)
только почему направо - это против часовой стрелки, непонятно(а может черепаха сверху летаетО_о)

@parkito · 11.11.2010, 17:48 **[ТС]**

угадайте для каких классов эти задачи ??

@Dzhej-Dzhej · 12.11.2010, 09:04

«СТРОКИ» можно так

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
    Dim s As String, q() As String, i As Integer
    s = "0"
    For i = 1 To 9
        s = s + s + CStr(i)
    Next i
    q = Split(s, "5")
    MsgBox CStr(UBound(q) - LBound(q) - 1)
End Sub

Сообщение от parkito

угадайте для каких классов эти задачи ??

для 9-х?
был бы я учителем информатики, у меня бы детки раньше начинали б развивать мозги

Добавлено через 10 минут
«ИСПОЛНИТЕЛЬ Кузнечик»

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@parkito 15 / 14 / 10 Регистрация: 22.03.2010 Сообщений: 695

	Если есть время напишите проги 11.11.2010, 16:05. Показов 3053. Ответов 5 Метки нет (Все метки) Интересно как решаются задачи. Если у кого есть время и желание напишите))) Всем ставлю + [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 единиц. 0

@parkito 15 / 14 / 10 Регистрация: 22.03.2010 Сообщений: 695
	11.11.2010, 17:35 [ТС]
	Спасибо огромное ! 0

@parkito 15 / 14 / 10 Регистрация: 22.03.2010 Сообщений: 695
	11.11.2010, 17:48 [ТС]
	угадайте для каких классов эти задачи ?? 0