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

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

18.10.2012, 20:01. Показов 1477. Ответов 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,904
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
Ответ Создать тему
Новые блоги и статьи
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Киев стоит - украинская песня
zorxor 28.01.2026
wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru