Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

DNK
I. DNK
Баллы: 5

Подробнее »



Вопрос # 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 дней с момента отправки вопроса)

Приложение:
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, StdCtrls;
  8.  
  9. type
  10. TForm1 = class(TForm)
  11. Button1: TButton;
  12. Edit1: TEdit;
  13. Label1: TLabel;
  14. procedure Button1Click(Sender: TObject);
  15. private
  16. { Private declarations }
  17. public
  18. { Public declarations }
  19. end;
  20.  
  21. var
  22. Form1: TForm1;
  23.  
  24. implementation
  25.  
  26. {$R *.dfm}
  27.  
  28. Uses bibl;
  29. type tip=real;
  30. Const C=5;
  31. var A:real;
  32. B:real;
  33. function f1(k:integer):real;
  34. begin
  35. f1:=(-1)/((2*k)*(2*k+1));
  36. end;
  37. function f2(x:real):real;
  38. begin
  39. f2:=x/(c+x+x*x);
  40. end;
  41. function f3(x:real):real;
  42. begin
  43. f3:=sqrt(1-(x*x)/(a*a))*b*b;;
  44. end;
  45. function f4(x:real):real;
  46. begin
  47. f4:=sqrt(b*b*((4*(x-a/2)*(x-a/2))/(a*a))/9);
  48. end;
  49.  
  50. procedure TForm1.Button1Click(Sender: TObject);
  51. var
  52. s1,s2:real;
  53. begin
  54. x:=5;
  55. a:=1+ryad(f1,x,0.001);
  56. b:=Exloc(f2,-10,10,0.001,1);
  57. s1:=IntF(F3,(-1)*a,a,0.001)*2;
  58. s2:=IntF(F4,0,a,0.001)*2;
  59. edit1.Text:=floattostr(s1-s2);
  60. end;
  61.  
  62. end.


Примечание #1 (1 марта 2008, 19:31):
там не отобрабаются некоторые штучки( в прикреплённом файле там и задание и картинка!
хээээлп)
я просто не знаю, как вводится обработчик ряда(

pinky Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: 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


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 21 августа 2017, 14:50
Выполнено за 0.08 сек.
Рейтинг@Mail.ru