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

@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

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

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

	Если есть время напишите проги 11.11.2010, 16:05. Показов 3071. Ответов 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