|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.11.2008, 12:35 | #1 |
Пользователь
Регистрация: 14.06.2008
Сообщений: 10
|
Программирование разветвляющихся алгоритмов в Delphi7
Помогите... напишите плиз программу условия задачи вот:
Известно, что из четырех чисел а1,а2,а3 и а4 одно отлично от трех других, равных между собой. Присвоить номер этого числа переменной n. |
27.11.2008, 13:11 | #2 |
Форумчанин
Регистрация: 06.06.2007
Сообщений: 282
|
Мой взгляд на задачу, решение "в лоб" =)
Код:
Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.
|
27.11.2008, 13:22 | #3 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Можно даже на одну проверку делать меньше(a1<>a2)and(a1<>a4) then a1
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
27.11.2008, 14:00 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ниче се код! А попроще никак?:
Код:
I'm learning to live...
|
27.11.2008, 14:10 | #5 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Данный код if a[i]-a[i-1]<>0 устанавливает неравенство элементво а не какой именно из них отличается от всех других. Запустите с (1,2,2,2)
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
27.11.2008, 14:36 | #6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну да ну да. Затык в первом элементе. А жаль.
I'm learning to live...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программирование алгоритмов циклическич структур | lantian | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 22.10.2008 16:05 |
Помогите с задачей.(Пскаль).по теме программирование алгоритмов разветвляющейся структуры. | svobodys | Помощь студентам | 6 | 12.10.2008 08:18 |
Программирование ветвящихся алгоритмов | Дима82 | Помощь студентам | 4 | 11.05.2008 11:35 |
Программированние циклических алгоритмов | Дима82 | Помощь студентам | 8 | 11.05.2008 11:31 |
Российский конкурс алгоритмов | Virtson | Свободное общение | 2 | 16.12.2007 21:53 |