Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
Webster
0 / 0 / 0
Регистрация: 27.11.2010
Сообщений: 122
1

В первый час лыжник проходит 8 км. Каждый следующий час его скорость снижается на 10%. Через сколько часов он преодолеет более 33 км?

06.05.2011, 13:20. Просмотров 1571. Ответов 5
Метки нет (Все метки)

Разработайте проект для решения следующей задачи: «В первый час лыжник проходит 8 км. Каждый следующий час его скорость снижается на 10%. Через сколько часов он преодолеет более 33 км?»

Найдите сумму элементов одномерного массива, заключенных между наибольшим и наименьшим элементами массива. Предполагается, что массив содержит только один минимальный и только один максимальный элементы.
Дан одномерный массив целых чисел. Образовать новый массив, выбросив из исходного элементы, равные минимальному элементу массива.
Дан целочисленный массив температур за месяц. Определите день, когда температура была наиболее близкой к средней температуре месяца.
Дан двумерный массив целых чисел. Найти строку с наибольшей и наименьшей суммой элементов. Вывести на экран найден¬ные строки и суммы их элементов.
Дана квадратная матрица n-го порядка целых чисел. Определить, является ли она магическим квадратом, т.е. такой, в которой суммы элементов во всех строках и столбцах одинаковы.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.05.2011, 13:20
Ответы с готовыми решениями:

Определить, через сколько часов лыжник преодолеет более 33 км?
Помогите пожалуйста с задачей. В первый час лыжник проходит 8 км. Каждый следующий час его...

Скорость лодки в стоячей воде V км/час, скорость тичения реки Y км/час ...
Скорость лодки в стоячей воде V км/час, скорость тичения реки Y км/час, причём Y<V, время движения...

Два спортсмена одновременно начинают движение. Выяснить, кто преодолеет больший путь через 1 час; через 4 часа.
2 задание Два спортсмена одновременно начинают движение из одной точки. Первый спортсмен начинает...

1. На трех станках, производительность которых St1 м/час, St2 м /час и St3 м /час соответственно
господа прогдамисты еще 1 прозьба это уже лаба номер 2) если не сложно копи из делфи или хотябы...

Перезапуск программы каждый час в течение 16-ти часов
Помогите пожалуйста сделать батник для перезапуска программы каждый час в течении 16 часов....

5
YuraAAA
1581 / 1321 / 283
Регистрация: 25.10.2009
Сообщений: 3,436
Записей в блоге: 2
06.05.2011, 15:24 2
Разработал. Определил. Что дальше?
0
Webster
0 / 0 / 0
Регистрация: 27.11.2010
Сообщений: 122
06.05.2011, 15:30  [ТС] 3
Всмысле?
0
YuraAAA
1581 / 1321 / 283
Регистрация: 25.10.2009
Сообщений: 3,436
Записей в блоге: 2
06.05.2011, 15:31 4
сарказм...
Это раздел помощи, и наврятли тут будут тебе решать это всё.
0
Webster
0 / 0 / 0
Регистрация: 27.11.2010
Сообщений: 122
06.05.2011, 15:44  [ТС] 5
Тогда помогите разобраться как решить это всё.
0
YuraAAA
1581 / 1321 / 283
Регистрация: 25.10.2009
Сообщений: 3,436
Записей в блоге: 2
06.05.2011, 16:39 6
1.
Visual Basic
1
2
3
4
5
6
7
8
9
Dim t As Single: t = 8
Dim sum As Single
Dim time As Single
Do While sum <= 33
    time = time + 1
    sum = sum + t
    t = t - t * 0.1
Loop
MsgBox time
Добавлено через 8 минут
2.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim A() As Single, max As Single, MAXi As Integer
Dim min As Single, minI As Single, sum As Single
Dim n As Integer, st As Integer
n = Round(Val(InputBox("n")))
ReDim A(1 To n)
For i = 1 To n
    A(i) = Int(100 * Rnd - 50)
Next i
min = A(1): minI = 1: max = A(1): MAXi = 1
For i = 2 To n
    If A(i) < min Then min = A(i): minI = i
    If A(i) > max Then max = A(i): MAXi = i
Next i
If Abs(minI - MAXi) = 1 Then MsgBox "Nothing": Exit Sub
If minI > MAXi Then st = -1 Else st = 1
For i = minI + 1 To MAXi - 1 Step st
    sum = sum + A(i)
Next i
MsgBox "Sum = " & sum
Добавлено через 2 минуты
3.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim A() As Single
Dim min As Single
Dim n As Integer, C() As Single, cCount As Integer
n = Round(Val(InputBox("n")))
ReDim A(1 To n)
For i = 1 To n
    A(i) = Int(100 * Rnd - 50)
Next i
min = A(1)
For i = 2 To n
    If A(i) < min Then min = A(i)
Next i
For i = 1 To n
    If A(i) = min Then
        cCount = cCount + 1
        ReDim Preserve C(1 To cCount)
        C(cCount) = A(i)
    End If
Next i
    MsgBox "Таких элементов = " & cCount
Добавлено через 14 минут
4.
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
Dim A() As Single
Dim minDifferent As Single
Dim average As Single, temp As Integer
Dim n As Single
n = Int(Val(InputBox("n")))
ReDim A(1 To n)
Randomize
For i = 1 To n
    A(i) = Int(30 * Rnd)
    average = average + A(i)
Next i
average = average / n
minDifferent = 0
 
For i = 1 To n
    minDifferent = Abs(A(i) - average)
    If minDifferent <> 0 Then temp = A(i): Exit For
Next
 
If minDifferent = 0 Then MsgBox "ВСЕ ОДИНАКОВЫЕ": Exit Sub
 
For i = 1 To n
    If Abs(A(i) - average) < minDifferent Then minDifferent = Abs(A(i) - average): temp = A(i)
Next i
MsgBox "Средняя = " & average & Chr(13) & "Минимально близкая температура = " & temp & " с разницей " & minDifferent
Добавлено через 15 секунд
Остальные сам добивай)
0
06.05.2011, 16:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.05.2011, 16:39

За сколько часов можно пройти 40 км, если идти 5 км /час
Расстояние от города А до города Б 40 км.За сколько часов можно дойти из А в Б,если идти 5 км...

Сколько контейнеров выдавалось и принималось (авто/жд) каждый час
Никак не могу сформировать: Сколько контейнеров выдавалось и принималось (авто/жд) каждый час В...

Сколько информации получит ученик, если в 10.00 увидит сообщение о том, что классный час состоится в 14 часов,
Сколько информации получит ученик, если в 10.00 увидит сообщение о том, что классный час состоится...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru