Массив в Delphi
-
KAPAHDALLI
- Сообщения: 2
- Зарегистрирован: 09 апр 2007, 22:03
I need help ! Delphi. Нужно написать пограмму.которая из файла читает элементы массива и находит 3 максимальных из них.Если таких чисел несколько, то распечатать их нужно.
-
Blood_Magic
- Сообщения: 273
- Зарегистрирован: 30 июн 2005, 14:53
флуданул .
- Чем юзер похож на обезьяну?
- Он жмет на все, что жмется, дергает все, что дергается и крутит все, что крутится.
- Чем юзер отличается от обезьяны?
- У обезьяны хватает ума не воспроизводить ту последовательность, которая приводит к краху системы.
- Он жмет на все, что жмется, дергает все, что дергается и крутит все, что крутится.
- Чем юзер отличается от обезьяны?
- У обезьяны хватает ума не воспроизводить ту последовательность, которая приводит к краху системы.
И в чем проблема? Считывание данных из файла - стандартнейшая операция. Для трех максимальных - вводим массив, например, a=array[1..3] of N. Инициируем нулями. Далее для каждого прочитанного числа делаем примерно следующее:
если x>a[3], то a[1]:=a[2], a[2]:=a[3], a[3]:=x,
иначе если x>a[2], то a[1]:=a[2], а[2]:=x,
иначе если x>a[1], то a[1]:=x
все
если x>a[3], то a[1]:=a[2], a[2]:=a[3], a[3]:=x,
иначе если x>a[2], то a[1]:=a[2], а[2]:=x,
иначе если x>a[1], то a[1]:=x
все
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.