Показать сообщение отдельно
  #21  
Старый 09.06.2009, 19:51
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от юра
определить массив Y=x^2-20cosx,где x=0.2,0.4,...20 в делфи,помогите)завтра экзамен)

И-и-и???
Ну так определяй.

У тебя шаг икса по 0.2, функция достаточно простая...

Код:
function F(X : Double) : Double;
begin
   Result := sqr(X) - 10*Cos(X);
end;

var
  A : Array Of TPoint;
  X : Double;
begin
  X := 0.2;
  SetLength(A,0);
  While X <= 20 Do
     Begin
       SetLength(A,Length(A)+1);
       A[High(A)].x := X;
       A[High(A)].y := F(X);
       X := X + 0.2;
     End;
end;

все...