|
Вопрос # 1 386/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Помогите, пожалуйста, написать программу на Delphi 7 или исправьте ошибки в моей! Очень прошу!
Задание
Площадь S в эллипсе x^2/A^2+y^2/B^2=1 за вычетом другого эллипса (4*(x-A/2)^2)/A^2+(9*(y^2))/B^2=1 (рис. 1.1), где B - точка локального экстремума функции f(x)=x/C+x+x^2, A - значение суммы ряда 1+C/1!-C/3!+c/5!-K .
Ответ: S = 30,49.
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Приложение: Переключить в обычный режим- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls;
-
- type
- TForm1 = class(TForm)
- Button1: TButton;
- Edit1: TEdit;
- Label1: TLabel;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- Uses bibl;
- type tip=real;
- Const C=5;
- var A:real;
- B:real;
- function f1(k:integer):real;
- begin
- f1:=(-1)/((2*k)*(2*k+1));
- end;
- function f2(x:real):real;
- begin
- f2:=x/(c+x+x*x);
- end;
- function f3(x:real):real;
- begin
- f3:=sqrt(1-(x*x)/(a*a))*b*b;;
- end;
- function f4(x:real):real;
- begin
- f4:=sqrt(b*b*((4*(x-a/2)*(x-a/2))/(a*a))/9);
- end;
-
- procedure TForm1.Button1Click(Sender: TObject);
- var
- s1,s2:real;
- begin
- x:=5;
- a:=1+ryad(f1,x,0.001);
- b:=Exloc(f2,-10,10,0.001,1);
- s1:=IntF(F3,(-1)*a,a,0.001)*2;
- s2:=IntF(F4,0,a,0.001)*2;
- edit1.Text:=floattostr(s1-s2);
- end;
-
- end.
Примечание #1 (1 марта 2008, 19:31): там не отобрабаются некоторые штучки( в прикреплённом файле там и задание и картинка!
хээээлп)
я просто не знаю, как вводится обработчик ряда(
 |
Вопрос задала: pinky (статус: Посетитель)
Вопрос отправлен: 1 марта 2008, 19:24
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Обработчик ряда:
Sum:= 1 + C/1 - C/6 + C/120 - K;
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 3 марта 2008, 08:42
Оценка за ответ: 1
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
