
09.06.2009, 19:51
|
Модератор
|
|
Регистрация: 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;
все...
|