Цикл с предусловием: протабулировать функцию и нарисовать график

@Doker1996 · Регистрация: 14.09.2011

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

В общем дано функцию, ее нужно протабулировать , и нарисовать график. Но вот в чем проблема, проблема в самой функции, дано функцию Название: 6.jpg
Просмотров: 228

Размер: 4.7 Кб

Название: 6.jpg
Просмотров: 228

Размер: 4.7 Кб

, в Делфи я записываю ее так :

Delphi

1	y := exp((1/3)ln(cos(4x) + (1/2)));

Программа запускаеться, но когда вводиш значения, то выдает ошибку, но если убрать косинус, все роботает, далее, если написать косинус, но убрать корень кубический, то тоже все работает, но вместе никак не работает все.

Вот код:

Delphi

procedure TForm1.N2Click(Sender: TObject);
var x, a, b, h, y, k, v: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
h := StrToFloat(Edit3.Text);
x := a;
k := 0;
v := 0;
 
Memo1.Lines.Add('Табулювання функції');
Memo1.Lines.Add('x             y');
While x < b+h/2 do
begin
y := exp((1/3)*ln(cos(4*x) + (1/2)));
if y>0 then begin k := k + 1;
if y<0 then begin v := v + 1;
end;
end;
 
Chart1.Series[0].Add(y,FloatToStr(x),clGreen) ;
 
Memo1.Lines.Add(FloatToStr(x)+'          '+FloatToStr(y));
x:=x+h;
v := v + 1 ;
k := k + 1;
end;
 
Edit4.Text := FloatToStr(k);
Edit5.Text := FloatToStr(v);
 
end;

Proga3.rar

@volvo · 20.10.2012, 20:14

Какие границы задаются для X? Конкретнее: значение, которое передается в функцию Ln, не является ли нулевым или отрицательным? Да, я знаю, что можно извлекать кубический корень из отрицательного числа. Можно... А вот брать логарифм от неположительного аргумента - нельзя.

@Doker1996 · 20.10.2012, 22:01 **[ТС]**

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

Какие границы задаются для X? Конкретнее: значение, которое передается в функцию Ln, не является ли нулевым или отрицательным? Да, я знаю, что можно извлекать кубический корень из отрицательного числа. Можно... А вот брать логарифм от неположительного аргумента - нельзя.

Данные такие:
а = 2
b = 5
h = 0.1
Все вроде положительное!
Но вот почему то не работает, я пробовал и без логарифма писать, но все равно ничего.

Delphi

1	Power(cos(4*x) + (1/2), 1/3)

Одиночка · 11.11.2012, 00:24

Вот сделал так. И вставил, заодно поиск минимального и максимального значений:

Delphi

procedure TForm1.N2Click(Sender: TObject);
var x, a, b, h, y, t, MinY, MaxY: real;
    k, v: Integer;
begin
  a := StrToFloat(Edit1.Text);
  b := StrToFloat(Edit2.Text);
  h := StrToFloat(Edit3.Text);
  x := a;
  k := 0;
  v := 0;
  MinY := MaxInt;
  MaxY := -MaxInt;
 
  Memo1.Lines.Add('Табулювання функції');
  Memo1.Lines.Add('x             y');
  While x < b+h/2 do
  begin
//    y := exp((1/3)*ln(cos(4*x) + (1/2)));
    t := cos(4*x) + (1/2);
    y := Power(Abs(t),  1/3);
    If t<0 Then y := -y;
    //Найдём минимальное и максимальное значения
    If MinY > y Then MinY := y;
    If MaxY < y Then MaxY := y;
 
    if y>0 then
    Inc(k) Else
    if y<0 then Inc(v);
 
    Chart1.Series[0].Add(y,FloatToStr(x),clGreen) ;
 
    Memo1.Lines.Add(FloatToStr(x)+'          '+FloatToStr(y));
    x:=x+h;
  end;
  Edit4.Text := IntToStr(k);
  Edit5.Text := IntToStr(v);
end;

Функция Power при отрицательном значении тоже не хочет работать.

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	20.10.2012, 20:14	2
	Какие границы задаются для X? Конкретнее: значение, которое передается в функцию Ln, не является ли нулевым или отрицательным? Да, я знаю, что можно извлекать кубический корень из отрицательного числа. Можно... А вот брать логарифм от неположительного аргумента - нельзя. 0

	11.11.2012, 00:24