|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.12.2011, 09:26 | #1 |
Пользователь
Регистрация: 23.10.2011
Сообщений: 13
|
одномерный массив
В общем нужно найти модуль максимального и модуль минимально,то есть числа между ними,и их произведение,в чем ошибка,подскажите ?
так я пишу:https:https://lh6.googleusercontent.com/-A...%2525B9111.jpg вот что выдает:https://lh3.googleusercontent.com/-D...s1280/2222.jpg |
11.12.2011, 09:37 | #2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
а зачем выводить a[i*i]?
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 11.12.2011 в 09:39. |
11.12.2011, 09:48 | #3 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
Круто! Но у нас принято выкладдывать не работающий код, а не его скрины. Скрины кстати ещё и в галимом качестве.
Минимум и максимум определяется путём перебора и сравнения числа с предыдущим с попутной регистрацией самого большого и самого маленького. |
11.12.2011, 10:00 | #4 |
Пользователь
Регистрация: 23.10.2011
Сообщений: 13
|
чем тебе мой скрин не нравиться) спасибо cat но не вышло не пойму ,у же все перепробовала,я кстати борщ так и делаю ,присваиваю мин и мах начальное значение ,если если,тогда и т.д. Кот ты бы мог* объяснить вот это for i:=min(mx,mn) to max(mx,mn) do ?
Последний раз редактировалось kokadyyyyyyy; 11.12.2011 в 10:09. |
11.12.2011, 10:10 | #5 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Проект выложи! проще будет подсказывать!
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
11.12.2011, 10:14 | #6 |
Пользователь
Регистрация: 23.10.2011
Сообщений: 13
|
проект ?код в смысле 7))
procedure TForm1.Button1Click(Sender: TObject); var i:integer; max,min,c,s:real; a:array [1..4] of Real; begin min:=a[1]; max:=a[1]; randomize; for i:=1 to 4 do begin a[i]:=random(10); Memo1.Lines.Add(Floattostr(a[i])); begin if a[i]<(Abs(min)) then min:=a[i]; if a[i]>(Abs(max)) then max:=a[i]; begin if a[i]>(Abs(min))then begin if a[i]<(Abs(max)) then c:=a[i*i]; Memo2.Lines.Add(FloatToStr(c)); end; end; end; end ; end; end. // как выглядил первоначально без исправлений |
11.12.2011, 10:50 | #7 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
11.12.2011, 11:03 | #8 |
Пользователь
Регистрация: 23.10.2011
Сообщений: 13
|
кот ты с проекта скопировал? у меня выводит ошибку :\
i:=min(mx,mn)+1 to max(mx,mn)-1 -так можно писать?,у меня тут ошибку выдает |
11.12.2011, 11:05 | #9 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
11.12.2011, 11:14 | #10 |
Пользователь
Регистрация: 23.10.2011
Сообщений: 13
|
)) спасибо кот
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одномерный массив и Двумерный массив | eugene1437 | Общие вопросы C/C++ | 15 | 25.05.2011 19:17 |
одномерный массив | Петр-99 | Фриланс | 16 | 20.12.2010 11:10 |
Одномерный массив , двухмерный массив | Woxx | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 10.09.2010 09:28 |
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P. | Marishkaa | Помощь студентам | 2 | 12.01.2010 16:54 |
Двумерный массив, одномерный массив. | Branbal | Помощь студентам | 14 | 18.11.2009 12:40 |