Протабулировать функцию

@Танюх@ · Регистрация: 24.05.2012

Author24 — интернет-сервис помощи студентам

Еще раз прошу помощи((

как это выполнить в делфи?

Протабулировать функцию, результат вывести в поле Memo.
Функция y=x+cos(x^0,52+2) границы отрезка и шаг [0,5;1]0,05

@Puporev · 24.05.2012, 20:47

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x,y:real;
begin
x:=0.5;
while x<=1+0.025 do
 begin
  y:=x+cos(exp(ln(x)*0.52)+2);
  Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,5,2)+
                '  y='+FloatToStrF(y,ffFixed,8,4));
  x:=x+0.05;
 end;
end;

@Танюх@ 0 / 0 / 0 Регистрация: 24.05.2012 Сообщений: 24
		1
	Протабулировать функцию 24.05.2012, 15:16. Показов 1574. Ответов 1 Метки нет (Все метки) Еще раз прошу помощи(( как это выполнить в делфи? Протабулировать функцию, результат вывести в поле Memo. Функция y=x+cos(x^0,52+2) границы отрезка и шаг [0,5;1]0,05 0

	24.05.2012, 20:47

Опции темы

Протабулировать функцию

Решение