Найти наибольшее из трех чисел. Если числа равны, то вывести любое из них - VB
Формулировка задачи:
Найти наибольшее из трех чисел. Если числа равны, то вывести любое из них.
ВХОДНЫЕ ДАННЫЕ
Во входном файле Z_1.in записаны три числа через пробел. Все числа целые, не меньшие -10000 и не большие 10000.
ВЫХОДНЫЕ ДАННЫЕ
В файл Z_1.out вывести единственное число.
ПРИМЕР
Z_1.in
4 7 5
-10 -1000 -100
8 8 8
Z_1.out
7
-10
8
Моя проблема в том, что программа выводит только число -10, вместо чисел 7; -10; 8
Помогите решить данную задачу на языке Visual basic 6
КОД ПРОГРАММЫ на языке Visual basic 6:
Решение задачи: «Найти наибольшее из трех чисел. Если числа равны, то вывести любое из них»
textual
Листинг программы
Dim a As Integer Dim b As Integer Dim c As Integer Dim max As Integer Private Sub Command1_Click() Open "C:\vvod_vyvod\Z_1.in" For Input As #1 Open "C:\vvod_vyvod\Z_1.out" For Output As #2 Do While Not EOF(1) Input #1, a, b, c If a > b And a > c Then max = a If a < b And b > c Then max = b If a < c And c > b Then max = c If a = b = c Then max = a Write #2, max Loop Close #1 Close #2 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д