Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
valeriya918

Найти минимальное число среди чисел

18.10.2012, 20:01. Показов 1499. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Чебурашка бежит вприпрыжку по лестнице вниз, начиная с самой верхней ступеньки до самой нижней. он иногда перепрыгивает через ступеньку, иногда через две, а иногда даже через три. а Гена перед этим на каждой ступеньке написал число в диапазоне от 1 до 1000. кроме того, в образовательных целях Гена дал задание: найти минимальное число среди чисел, написанных на ступеньках, но которые чебурашка наступал во время спуска по лестнице.
требуется написать программу , которая находит этот же минимум.

формат входных данных
первая строка входного файла содержит два числа N(1<=N<=100) и M(1<=M<=100). вторая строка содержит N целых чисел, которые гена написал на ступеньках. первое их этих чисел соответствует верхней ступеньке, а последнее нижней. третья строка содержит M целых чисел каждое из которых равно 1,2,3 или 4. первое из этих чисел означает длину первого прыжка с первой ступеньки, второе второго прыжка и т.д. Входные данные всегда корректны в том смысле , что сумма чисел во второй строке всегда равна N-1 , т.е. чебурашка начиная с первой ступеньки всегда закончит на последней. числа во всех строках разделены пробелами

формат выходных данных
выходной файл содержит целое число, которое означает минимальное значение, которое встретил чебурашка на ступеньках.

пример данных
input.txt
5 4
131 71 12 15 6
1 1 1 1

output.txt
6
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
18.10.2012, 20:01
Ответы с готовыми решениями:

Найти минимальное число среди положительных и максимальное число среди отрицательных
Дана некоторая последовательность из целых чисел оканчивающихся нулем. Найти минимальное число среди положительных и максимальное число...

Найти среди чисел последовательности самое первое число, превосходящее заданное число а
найти среди чисел последовательности 1,1+1/2,1+1/2+1/3,...самое первое число , превосходящее заданное число а.Циклический вычислительный...

Найти минимальное значение среди заданных
напишите код в бейсике, смотрите вложения

3
 Аватар для Апострофф
9908 / 3924 / 742
Регистрация: 11.10.2011
Сообщений: 5,906
18.10.2012, 21:41
Цитата Сообщение от valeriya918 Посмотреть сообщение
что сумма чисел во второй строке всегда равна N-1
Может быть - в третьей?
Цитата Сообщение от valeriya918 Посмотреть сообщение
чебурашка начиная с первой ступеньки всегда закончит на последней
А последняя (шестёрка) и так минимальная - что тут решать

valeriya918, постарайтесь приложить более изощрённые исходные данные и хоть какие-то намёки на самостоятельные попытки решения.
0
18.10.2012, 21:50

Не по теме:

да че там прогу кодить, у Чебурашки спросить и все тут, ему же задание поставили :)

1
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
18.10.2012, 22:33
Я думаю так
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
Private Sub Command1_Click()
    Dim ff As Integer, s As String, sArr, N As Integer, M As Integer
    Dim NumOnStep() As Integer, Jump() As Integer
    Dim MinNum As Integer, i As Integer, j As Integer
    ff = FreeFile
    Open App.Path & "\Input.txt" For Input As #ff
        Input #1, s: sArr = Split(s, " ")
        N = sArr(0): M = sArr(1)            'число ступенек, число прыжков
        Print " N = " & N & "    M = " & M;: Print
        ReDim NumOnStep(1 To N)
        ReDim Jump(1 To M)
        Input #1, s: sArr = Split(s, " ")
        For i = 1 To N
             NumOnStep(i) = sArr(i - 1)      'числа на ступеньках
             Print NumOnStep(i) & ",  ";
        Next i
        Print
        Input #1, s: sArr = Split(s, " ")
        For i = 1 To M
             Jump(i) = sArr(i - 1)           'размер прыжков
             Print Jump(i) & ",  ";
        Next i
    Close #ff
     j = 1 'прыжки начинаются с первой ступеньки
    MinNum = NumOnStep(1)
    For i = 1 To M
             j = j + Jump(i)
            If NumOnStep(j) < MinNum Then MinNum = NumOnStep(j)
    Next i
    Print
    Print MinNum
    ff = FreeFile
    Open App.Path & "\Output.txt" For Output As #ff
          Print #ff, MinNum
    Close #ff
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.10.2012, 22:33
Помогаю со студенческими работами здесь

Найти минимальное число среди положительных чисел и максимальное число среди отрицательных чисел
Никак не могу понять ,как написать эту программу.Помогите пожалуйста. Задан одномерный массив А (10) действительных чисел. Ввести массив...

Найти минимальное число среди четных чисел и количество таких чисел
Ввести 23 целых числа, найти минимальное число среди четных чисел и количество таких чисел.

Найти минимальное число среди заданных чисел
Здравствуйте, помогите пожалуйста с решением здадачи по PascalABC. NET. Даны натуральное n, действительные числа A(1), … , A(n) (N –...

Найти минимальное число среди данных чисел.
1) Даны действительные числа a, b, c, d. Найти наибольшее из этих чисел (описать подпрограмму нахождения наибольшего из двух чисел) 2)...

Найти минимальное число среди последовательности вводимых чисел
Найти минимальное число среди последовательности вводимых чисел. Остановить обработку программы при вводе признака конца - предварительно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения.
anaschu 23.03.2026
geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .
1С: Контроль уникальности заводского номера
Maks 23.03.2026
Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru