|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.01.2009, 17:00 | #1 |
Регистрация: 06.01.2009
Сообщений: 7
|
Локальные минимумы и их номера.
Парни пожалуйста помагите с задаяей. Очень-очень нужно.
В массиве действительных чисел B[n] найти все локальные минимумы и их номера. Вывести на экран исходный массив и искомые минимумы с номерами. |
06.01.2009, 17:13 | #2 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
а что значит локальные минимумы?)
@(o_0)@
|
06.01.2009, 17:26 | #3 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
на) Если ето правильно, с тебя отзыв))
uses crt;
var mas:array[1..100] of real; n,i,j,kol:integer; min:real; begin clrscr; write(' Kolichestvo elementov v massive -> '); readln(n); writeln; writeln; for i:=1 to n do begin write(' -> '); readln(mas[i]); writeln; end; writeln; writeln; for i:=1 to n do write(mas[i]:3:1,' '); writeln; writeln; for i:=2 to n-1 do begin if (mas[i]<mas[i+1]) and (mas[i]<mas[i-1]) then writeln('mas[',i,']','=',mas[i]:3:1); end; writeln; readln; end.
@(o_0)@
|
06.01.2009, 19:39 | #4 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
Мой вариант:
Код:
Последний раз редактировалось capta1n; 06.01.2009 в 19:42. |
06.01.2009, 20:51 | #5 |
Регистрация: 06.01.2009
Сообщений: 7
|
Tkirill and capta1n парни огромное спасибо.
|
06.01.2009, 21:51 | #6 |
Форумчанин
Регистрация: 06.12.2008
Сообщений: 613
|
Вам спасибо - все же это набор опыта в программировании, ибо мне это очень нужно Обращайтесь еще
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
TWebBrowser и локальные файлы... | Johnson | Общие вопросы Delphi | 5 | 26.10.2008 15:15 |
Определение номера телефона | xpress | Общие вопросы по Java, Java SE, Kotlin | 6 | 29.04.2008 20:02 |
По очереди отвалились локальные диски на SATA Hard Drive | Alar | Компьютерное железо | 8 | 19.04.2008 00:15 |
Вычисления номера позиции | Stelix | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 03.12.2007 03:05 |
Локальные ПОИСКовики. The Copernic Desktop Search | Virtson | Софт | 6 | 14.01.2007 10:48 |