|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.04.2017, 20:29 | #1 |
Регистрация: 13.04.2017
Сообщений: 6
|
Не вычисляет!!! Что не так? Помогите
[IMG][/IMG]
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Lbl1: TLabel; Lbl2: TLabel; Lbl3: TLabel; Lbl4: TLabel; Edt1: TEdit; Edt2: TEdit; Edt3: TEdit; Lbl5: TLabel; Lbl6: TLabel; Lbl7: TLabel; Btn1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var m,n,x,y,z:real; begin x:=StrToFloat(edt1.Text); y:=StrToFloat(edt2.Text); z:=StrToFloat(edt3.Text); if y>=x then begin m:=((2*(exp(3*ln(x))*(exp(sin(y)))+ ((sqr(z))/5)))/((3*(sqr(z))+(ln(y))))); Lbl6.Caption:='m='+FloatToStrF(m,ff Fixed,7,3); end else begin n:=(((y*(sqr(arctan(x))))*(sqr(sin( x))))/(z*(exp(1/3*ln(1+(exp(x)))))+2*z)); Lbl7.Caption:='n='+FloatToStrF(n,ff Fixed,7,3); end; end; end. Последний раз редактировалось TheAlexMan; 25.04.2017 в 20:56. |
25.04.2017, 20:42 | #2 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,538
|
Вроде все нормально. Только ffFixed - надо без пробела.
|
25.04.2017, 20:52 | #3 |
Регистрация: 13.04.2017
Сообщений: 6
|
|
25.04.2017, 21:08 | #4 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,538
|
У меня вычЕсляет:
|
25.04.2017, 21:24 | #5 |
Регистрация: 13.04.2017
Сообщений: 6
|
Что же у меня не так???
|
25.04.2017, 21:32 | #6 |
Старожил
Регистрация: 02.03.2008
Сообщений: 2,538
|
Не знаю. Сравнивайте -
|
25.04.2017, 21:42 | #7 |
Регистрация: 13.04.2017
Сообщений: 6
|
Спасибо большое)))))
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите понять что не так | Anne123 | C# (си шарп) | 1 | 03.05.2016 19:31 |
Помогите, что не так в программе? | jinos | Помощь студентам | 2 | 18.05.2015 23:22 |
Что не так? Pascal помогите(доделать) | Justfeel | Помощь студентам | 1 | 20.12.2013 15:06 |
помогите Что я делаю не так? | FaRRa | Общие вопросы Delphi | 5 | 22.09.2013 16:48 |
Помогите определить что с компом не так?? | molodoyy | Компьютерное железо | 15 | 02.01.2009 22:06 |