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

@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

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

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

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

Опции темы