|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.09.2010, 20:29 | #1 |
Регистрация: 19.09.2010
Сообщений: 5
|
Форумлы
Помогите !!!!! Завтра нужно сдать отчёт...... unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit3: TEdit; Memo1: TMemo; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Memo1.Clear; Memo1.Lines.Add('Лаб. раб. N2. Ст. гр. 012501 Гарасюк В.С.'); end; procedure TForm1.Button1Click(Sender: TObject); VAR x,y,z,a,b,c,d,s:extended; begin x:=StrToFloat(Edit1.Text); y:=StrToFloat(Edit2.Text); z:=StrToFloat(Edit3.Text); Memo1.Lines.add('x='+Edit1.Text); Memo1.Lines.add('y='+Edit2.Text); Memo1.Lines.add('z='+Edit3.Text); a:=1+sqr(sin(x+y)); b:=abs(x-(2*y)/(1+sqr(x)*sqr(y))); c:=exp(abs(y)*Ln(x)); d:=sqr(cos(arctan(1/z))); s:=(a/b)*c+d; Memo1.Lines.add('Результат='+FloatT oStrF(s,fffixed,8,6)); end; end. при x = 3,74e-2 ; y = –0,825; z = 0,16E2 . Так должно получится. Ответ s = 1,05534. У меня ответ не сходится, подскажите, где ошибка в формулах? Последний раз редактировалось vitala; 19.09.2010 в 20:37. |
19.09.2010, 20:36 | #2 |
Регистрация: 19.09.2010
Сообщений: 5
|
Помогите написать программу
С= система f(x) +sin(y), x-y=0 f(x^2)-y^2+ln(x), x-y>0 (y-f(x))^2 +tg(y), x-y<0 При выполнение задания предусмотреть выбор вида функции Предусмотреть вывод информации о выбранной ветви вычисления. |
19.09.2010, 21:56 | #3 |
Регистрация: 19.09.2010
Сообщений: 5
|
спасайте пожалуйста
|