Составьте программу нахождения максимального и минимального значения одномерного массива К(N)=sin(N)*N)

[newera1]

Составьте программу нахождения максимального и минимального значения одномерного массива К(N)=sin(N)*N).Сформулируйте новый массив B(N) ,в котором поменяйте местами максимальный и минимальный элемент массива K(N).

[Aleksandr H.]

Сообщение от newera1

К(N)=sin(N)*N)

где ошибка?

[digitalis]

Какой диапазон этой самой N ?

[newerow1989]

const n=100;
      dx=0.1;
      a=-3;
var k,b:array[0..n-1] of real;
    i,imin,imax:integer;
begin
   For i:=0 to n-1 do
      k[i]:=Sin(a+i*dx)*(a+i*dx);
   imin:=0;
   imax:=0;
   For i:=1 to n-1 do
   begin
      If k[imin]>k[i] then
         imin:=i;
      If k[imax]<k[i] then
         imax:=i;
   end;
   Writeln('K(',imin,') = ',k[imin]:5:8);
   Writeln('K(',imax,') = ',k[imax]:5:8);
   For i:=0 to n-1 do
   begin
      b[i]:=k[i];
      If i=imin then
         b[i]:=k[imax];
      If i=imax then
         b[i]:=k[imin];
      Writeln(b[i]:5:8);
   end;
   Readln;
end.

[digitalis]

Как для любителя - сойдет. В нашей деревне профи написал бы так :

const n=100;
      dx=0.1;
      a=-3;
var k,b:array[0..n-1] of real;
    i,imn,imx:integer;
    a,x,y,amin,amax: real ; 
begin
   amin := 0;
   amax := 0;
   For i:=1 to n-1 do
   begin
      x := a+i*dx ;
      y := Sin(x)*x;
      If y > amax then 
         begin amax := y; imx := i end else
      If y < amin then 
         begin amin := y; imn := i end ;
      k[i] := y ; b[i] := y ;
   end;
   b[imx] := amin ; b[imn] := amax ;
end.

ну это не считая вывода.
Кстати, amin := 0; amax := 0; в данном конкретном случае нормально, учитывая специфику функции, но в общем случае amin := <очень_большое_число>; amax := - <очень_большое_число>;

[Аватар]

А в той деревне не в курсе, что минимум вполне может быть больше 0, или максимум отрицательным? Ну так, чисто теоретически, особенно при манипуляциях с синусом в частности

PS пока писал, оказалось, что в курсе

[digitalis]

В последней своей фразе я именно это и сказал - касаемо общего случая. А в данном частном, учитывая именно синус, тут все нормально: синус бывает и больше нуля, и меньше, при умножении на положительное число эта ситуевина сохраняется. Хотя возможно так подобрать n и dx, что все значения будут лежать слева (справа) от нуля. Тогда снимаем мое согласие "в данном случае можно" и действуем по общему правилу в последней фразе.
n = 10 ; dx = 0.1
Кстати, прога предыдущего оратора, не в обиду ему будь сказана, может быть внесена в FAQ ошибок стиля начинающего проггера: здесь и многократный цикл, когда одного более чем, и многократное вычисление в цикле выражения, опять же многократное использование в цикле элемента массива - все это пустая загрузка вычислительного процесса. Могут возразить: компилятор оптимизирует и выбросит лишнее. Может быть. Но мудрые люди утверждают: наилучший оптимизатор находится между ушей По моему глубокому убеждению, если проггер с младых лет не учится писать оптимально, он рискует до седин остаться "индусским быдлкодером" . Хотя есть другое мнение:
- Акуля, чаму шыеш кашулю не адтуля ?
- А я яе перашываць буду, матуля . (бел.)

ИЧСХ, студенты тут не только ленивые, но и неблагодарные : накропаешь ему - а он ни спасиба, ни плюсика. В delphi.int.ru контингент был повоспитанней. Сначала это меня возмущало, а потом: чего это я? Разве пишу для того, чтобы страна получила очередного неуча, которых и так миллионы ? Конечно, нет - просто для разминки мозгов, как утренняя пробежка.