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

Программа, которая упорядочивает величины a, b, c, d так, чтобы a <= b и c <= d, и вычисляет значение функции - Delphi

05.07.2017, 16:27. Просмотров 136. Ответов 5
Метки нет (Все метки)

Заданные действительные величины x, y, z, a, b, c, d. Разработать программу, которая упорядочивает величины a, b, c, d так, чтобы a <= b и c <= d, и вычисляет значение функции.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.07.2017, 16:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Программа, которая упорядочивает величины a, b, c, d так, чтобы a <= b и c <= d, и вычисляет значение функции (Delphi):

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

Как реализовать чтение функции из edit, так, чтобы потом программа считала, используя эту функцию?
Написал программу для интегрирования методом Гаусса, а вот тут запарка....

Программа в делфи которая вычисляет возраст по дате рождения
Помогите написать программу в Delfi которая вычисляет возраст по дате рождения.

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

Разработать программу, которая вычисляет значение суммы с заданной точностью
Задано действительны величины x, a, e (x &lt;&gt; 0, a &lt;&gt; 0, e &gt; 0). Разработать...

Как сделать, чтобы программа реагировала на кнопки когда она вычисляет долго
Здравствуйте ! Вроде бы я совсем не начинающий, но до сих пор не научился...

5
Matan!
Delphi/Java/DB Dev + Math
395 / 264 / 112
Регистрация: 31.05.2013
Сообщений: 2,161
Записей в блоге: 4
Завершенные тесты: 2
05.07.2017, 17:32 #2
А х и у при чём?

Добавлено через 6 минут
Цитата Сообщение от VanM Посмотреть сообщение
вычисляет значение функции
Какой такой функции?
0
VanM
0 / 0 / 0
Регистрация: 03.11.2016
Сообщений: 7
05.07.2017, 19:10  [ТС] #3
вот етой функции
0
D1973
05.07.2017, 19:32
  #4
 Комментарий модератора 
VanM, функции перепечатайте руками на форум!
0
VanM
0 / 0 / 0
Регистрация: 03.11.2016
Сообщений: 7
05.07.2017, 21:21  [ТС] #5
Что тут не так?
Delphi
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var x, y, z: double;
 
a, b, c, d: double;
 
r, v, p, q: double;
 
max, min: integer;
 
begin
 
{Ïî÷Г*òêîâ³ Г¤Г*Г*Ві }
 
x:=StrToFloat(Edit1.Text);
 
y:=StrToFloat(Edit2.Text);
 
z:=StrToFloat(Edit3.Text);
 
a:=StrToFloat(Edit4.Text);
 
b:=StrToFloat(Edit5.Text);
 
c:=StrToFloat(Edit6.Text);
 
d:=StrToFloat(Edit7.Text);
 
{ÓïîðÿäêóâГ*Г*Г*Гї çì³Г*Г*ГЁГµ a, b, c, d }
 
if a < b then begin r:=a; a:=b; b:=r; end;
 
if c < d then begin r:=c; c:=d; d:=r; end;
 
{Îá÷èñëåГ*Г*Гї ГґГіГ*êö³¿ V }
 
if ((c<=x) and (x<=d)) and
 
((c<=y) and (y<=d)) and ((c<=z) and (z<=d))
 
then
 
begin
 
{Îá÷èñëåГ*Г*Гї Г§Г* ïåðøîþ ôîðìóëîþ }
 
v:=x;
 
if ((max(x,y,z)+(min(x,y,z));
 
end
 
else
 
p=true;
 
q=true;
 
then
 
begin
 
{Îá÷èñëåГ*Г*Гї Г§Г* äðóãîþ ôîðìóëîþ }
 
v:=x;
 
if ((max(x,y,z)-(min(x,y,z));
 
end;
 
else
 
p=false;
 
q=false;
 
end
 
else
 
{Îá÷èñëåГ*Г*Гї Г§Г* òðåòüîþ ôîðìóëîþ }
 
v:=x+y+z;
 
{ÂèâåäåГ*Г*Гї ðåçóëüòГ*ГІГі }
 
Edit8.Text:=FloatToStr(v);
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
 
end.
0
northener
пофигист широкого профиля
3252 / 2304 / 628
Регистрация: 15.07.2013
Сообщений: 13,599
06.07.2017, 02:28 #6
Цитата Сообщение от VanM Посмотреть сообщение
Что тут не так?
Не так (в первую очередь) то, что задача, которую должна решать сия программа до сих пор нормально не озвучена.
0
06.07.2017, 02:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.07.2017, 02:28
Привет! Вот еще темы с решениями:

Программа, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика
Здравствуйте! Помогите, пожалуйста, с задачей. Написать программу, которая по...

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

Написать программу, которая вычисляет значение функции
Я написал программу которая вычисляется значения функции по формуле...

Напишите программу, которая вычисляет значение функции f(x)
напишите программу которая вычисляет значение функции f(x)=√х+√1/3 +...


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

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

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