1 / 1 / 0
Регистрация: 18.05.2013
Сообщений: 93
Записей в блоге: 1
1

Ввести четыре числа: Вывести два наибольших числа. Вывести два из них, расположенных между max и min. Visual Basic

19.05.2013, 17:24. Показов 2466. Ответов 1
Метки нет (Все метки)

Ввести четыре числа: Вывести два наибольших числа. Вывести два из них, расположенных между max и min. Visual Basic
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.05.2013, 17:24
Ответы с готовыми решениями:

Ввести четыре числа. Вывести два наибольших числа
Ввести четыре числа. Вывести два наибольших числа

Даны четыре разных числа. Найти среди них два наибольших
Задача: Даны четыре разных числа. Найти среди них два наибольших. С применением if. Помогите...

Даны четыре разных числа. Найти среди них два наибольших
Даны четыре разных числа. Найти среди них два наибольших. Чет я не понимаю как это все написать...

Ввести 10 чисел. Вывести на экран два наибольших из них
Всем привет. Изучаю С по Дейтелу и задачка поставила в тупик: Ввести 10 чисел. Вывести на экран...

1
bmstu-team
301 / 136 / 91
Регистрация: 10.01.2012
Сообщений: 420
Записей в блоге: 10
19.05.2013, 21:19 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Вроде без ошибок:
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
Private Sub Form_Load()
Dim a(4), max As Double
Dim i, iMin, iMax As Integer
For i = 0 To 3
a(i) = InputBox("Ââåäèòå " + Str(i + 1) + " ÷èñëî")
Next
 
iMin = 0
iMax = 0
max = a(0)
For i = 1 To 3
If a(i) > max Then
max = a(i)
iMax = i
Else
iMin = i
End If
Next
 
If iMax > iMin Then
For i = iMin + 1 To iMax - 1
Print Str(a(i))
Next
Else
For i = iMax + 1 To iMin - 1
Print Str(a(i))
Next
End If
End Sub
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.05.2013, 21:19
Помогаю со студенческими работами здесь

Ввести с клавиатуры строку символов. На новой строке вывести два символа: с max и min ASCII кодом
Здравствуйте!!! Код работает нормально,но он в конце выводит числа min и max) а надо что бы...

Вывести два наибольших числа
Ввести четыре числа. Вывести два наибольших числа

Ввести 4 числа, найти два из них разность между которыми минимальна
Ввести 4 числа, найти два из них разность между которыми минимальная. Не очень понятно как это...

Дано три числа. Если ровно два из них меньше 5, то вывести yes, иначе вывести no
Дано три числа. Если ровно два из них меньше 5, то вывести yes, иначе вывести no. Подскажите...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru