Показать сообщение отдельно
  #4  
Старый 09.11.2010, 23:45
Аватар для Konrad
Konrad Konrad вне форума
Эксперт
 
Регистрация: 19.03.2009
Сообщения: 1,261
Репутация: 45834
По умолчанию

Цитата:
Сообщение от Zolman
код не могу найти и математику по этому вопросу не знаю так что хотелось бы чтоб ктонибудь код написал а то очень надо проэкт стоит
Дожились, теперь код не пишем а ищем))

В раздел -> работа.

А за безплатно, такой ужаснейший код:
PHP код:
a:array[0..1000]of real;
k:integer;
begin
k
:=0;
for 
i:=1 to 997 do
if (
a[i]>a[i+1])and(a[i+1]<a[i+2]) then k:=k+1;
for 
i:=1 to 997 do
if (
a[i]<a[i+1])and(a[i+1]>a[i+2]) then k:=k+1;
messagebox('найдено '+inttostr(k)+' экстремумов');

end
Ответить с цитированием