Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
bate
0 / 0 / 1
Регистрация: 19.09.2010
Сообщений: 19
#1

не сходится с ответом - Delphi

20.09.2010, 07:19. Просмотров 523. Ответов 6
Метки нет (Все метки)


Помогите !!!!! Завтра нужно сдать отчёт......
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
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('Результат='+FloatToStrF(s,fffixed,8,6));
end;
end.
при x = 3,74e-2 ; y = –0,825; z = 0,16E2 . Так должно получится. Ответ s = 1,05534.
У меня ответ не сходится, подскажите, где ошибка в формулах?


Помогите написать программу

С= система 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

При выполнение задания предусмотреть выбор вида функции Предусмотреть вывод информации о выбранной ветви вычисления.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.09.2010, 07:19
Я подобрал для вас темы с готовыми решениями и ответами на вопрос не сходится с ответом (Delphi):

Получаемый результат не сходится с правильным ответом
var i,j,x,p:integer; begin p:=1; x:=1; for i:=1 to 2 do for j:=i to 3 do...

Рандомный вывод ответом
Доброго времени суток. Делаю программу тест, вопросы и ответы берутся из &quot;txt&quot;...

Сравнить правильный ответ с ответом пользователя
Моя задача, составить - тест. Изначально вопросы и ответы хранятся в .ini...

Не сходится с ответом
&lt;!DOCTYPE html&gt; &lt;html&gt; &lt;head&gt; &lt;title&gt;codebra&lt;/title&gt; ...

Результат не сходится с ответом
Это снова я) Народ, такая ситуация. Решаю задачи по задачнику , и мой результат...

Неопределенный интеграл, не сходится с ответом
Привет всем. Есть интеграл, решил, но не сходится с ответом, даваемым онлайн...

6
Black Fregat
2396 / 1211 / 327
Регистрация: 31.05.2009
Сообщений: 4,805
20.09.2010, 08:08 #2
Ваши формулы дают ответ 1.05533781501617E+0000
0
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,312
20.09.2010, 08:14 #3
bate, У вас нет ошибок в формулах, очевидно вы неверно вводите данные. Я просто скопировал ваш код, вот результат
0
Миниатюры
не сходится с ответом  
Puporev
Модератор
54136 / 41769 / 28880
Регистрация: 18.05.2008
Сообщений: 98,312
20.09.2010, 08:18 #4
Цитата Сообщение от bate Посмотреть сообщение
При выполнение задания предусмотреть выбор вида функции
А из каких функций выбирать, где они?
0
bate
0 / 0 / 1
Регистрация: 19.09.2010
Сообщений: 19
20.09.2010, 20:08  [ТС] #5
не понять, я тысячу раз ввожу данные и ответ 0,4...ппц
0
Black Fregat
2396 / 1211 / 327
Регистрация: 31.05.2009
Сообщений: 4,805
20.09.2010, 20:26 #6
1) Сделайте нам скрин - как вводите данные
2) Проверьте их правильность через FloatToStr
3) Посмотрите по ходу вычисления промежуточные результаты
0
bate
0 / 0 / 1
Регистрация: 19.09.2010
Сообщений: 19
20.09.2010, 21:09  [ТС] #7
Все сошлось

Помогите написать программу

С=
система
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

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

Я начинаю её писать, но хочу сверится потом
0
20.09.2010, 21:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.09.2010, 21:09
Привет! Вот еще темы с решениями:

Цикл FOR. Расчет не сходится с ответом
Почему-то не сходится с ответом. У меня получается 4! Что за подвох? Sub...

Не сходится с ответом, где ошибка?
Два точечных заряда находятся в парафине на расстоянии 20 см друг от друга. На...

Вычислить длину дуги. Не сходится с ответом.
вычислить длину дуги данной линии. Помогите найти ошибку.

Решение уравнения: результат не сходится с ответом
Подскажите в чем ошибка. 7вариант Ответ должен быть -172,025. У меня ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru