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

Подпрограммы.

29.03.2012, 11:22. Просмотров 429. Ответов 4
Метки нет (Все метки)

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
procedure TForm1.Button1Click(Sender: TObject);
var
  Form1:TForm1;
  u:Extended;
  x,y,z:Real;
  function max(x,y,z:Real):Integer;
begin
  if(x>y)and(x>z)then
  floattostr(x);
  if(y>x)and(y>z) then
  floattostr(y);
  if(z>x)and(z>y)then
  floattostr(z);
  end;
  function min(x,y,z:Real):Integer;
  begin
  if(x<y)and(x<z)then
  floattostr(x);
  if(y<x)and(y<z) then
  floattostr(y);
  if(z<x)and(z<y)then
  floattostr(z);
  end;
  procedure TForm1.Button1Click(Sender:TObject);
  begin
  x:=strtofloat(Edit1.Text);
  y:=strtofloat(Edit2.Text);
  z:=strtofloat(Edit3.Text);
  u:=(Sqr(max(x,y,z))-2*x*min(x,y,z))/(sin(2)-max(x,y,z)/max(x,y,z));
  Edit4.Text:=floattostr(u);
  end;
end;
end.
Что я делаю не так,подскажите пожалуйста.
0
Миниатюры
Подпрограммы.  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.03.2012, 11:22
Ответы с готовыми решениями:

Подпрограммы
есть код: program Project2; {$APPTYPE CONSOLE} uses SysUtils; ...

подпрограммы
помогите с задачей...до вторника надо..плиииз В главной программе ввести с...

Подпрограммы
Дана квадратная матрица. Удалить из матрицы все нулевые строки, а оставшиеся...

Подпрограммы
Парни! (и девушки) Очень нужна помощь! для допуска к зачету надо за 3 дня...

Подпрограммы
Всем привет) прошу у вас помощи и совета) в общем пишу курсовой...

4
Андрей Борисови
708 / 396 / 33
Регистрация: 04.10.2009
Сообщений: 1,687
29.03.2012, 11:29 #2
Ошибка размещения описания функций.
Вот так должно быть ОПИСАНО.
Косяк в том, что функции ничего вам не дают

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
function max(x,y,z:Real):Integer;
begin
  if(x>y)and(x>z)then
  floattostr(x);
  if(y>x)and(y>z) then
  floattostr(y);
  if(z>x)and(z>y)then
  floattostr(z);
  end;
 
function min(x,y,z:Real):Integer;
  begin
  if(x<y)and(x<z)then
  floattostr(x);
  if(y<x)and(y<z) then
  floattostr(y);
  if(z<x)and(z<y)then
  floattostr(z);
  end;
 
procedure TForm1.Button1Click(Sender:TObject);
var
  u:Extended;
  x,y,z:Real;
  begin
  x:=strtofloat(Edit1.Text);
  y:=strtofloat(Edit2.Text);
  z:=strtofloat(Edit3.Text);
  u:=(Sqr(max(x,y,z))-2*x*min(x,y,z))/(sin(2)-max(x,y,z)/max(x,y,z));
  Edit4.Text:=floattostr(u);
  end;
1
Chees
4 / 3 / 1
Регистрация: 05.03.2012
Сообщений: 21
01.04.2012, 13:46  [ТС] #3
Как заставить эту штуку работать?
0
Андрей Борисови
708 / 396 / 33
Регистрация: 04.10.2009
Сообщений: 1,687
02.04.2012, 00:14 #4
1. Почему функция принимает Real, а выдает Integer?
Цитата Сообщение от Chees Посмотреть сообщение
function min(x,y,z:Real):Integer;
Может быть стоит так?
Delphi
1
function min(x,y,z:Real):Real;
2. Функция должна выдавать значение. Иначе она безсмысленна.
Delphi
1
2
3
4
5
6
function min(x,y,z:Real):Real;
  begin
  if(x<y)and(x<z)then min:=x;
  if(y<x)and(y<z) then min:=y;
  if(z<x)and(z<y)then min:=z;
  end;
3. Кусок выражения "2*x*min(x,y,z)" не верен. не 2*х, а 2 в степени "Х"
для этого надо применить формулу "X^Y = exp(ln(X) * Y)"
т.е. 2 в степени "Х" = exp(ln(2) * х)

тогда
Delphi
1
u:=(Sqr(max(x,y,z))-exp(ln(2) * х)*min(x,y,z))/(sin(2)-max(x,y,z)/max(x,y,z));
1
Chees
4 / 3 / 1
Регистрация: 05.03.2012
Сообщений: 21
02.04.2012, 10:29  [ТС] #5
Delphi
1
u:=(Sqr(max(x,y,z))-exp(ln(2) * х)*min(x,y,z))/(sin(2)-max(x,y,z)/max(x,y,z));
на этом действие плюется ошибками.

Добавлено через 9 часов 12 минут
Все работает,спасибо.
0
02.04.2012, 10:29
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.04.2012, 10:29

подпрограммы
Собственно давно тут не появлялся, соскучился :) Ну если серьёзно, с последнего...

подпрограммы в Делфи
Даны два одномерных массива произвольной длины. Вычислить для каждого массива...

задача на подпрограммы
На плоскости заданы своими координатами n точек. Определить между какими парами...


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

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

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