Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Chees
4 / 3 / 0
Регистрация: 05.03.2012
Сообщений: 21
#1

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

29.03.2012, 11:22. Просмотров 415. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Подпрограммы. (Delphi):

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

подпрограммы - Delphi
помогите с задачей...до вторника надо..плиииз В главной программе ввести с клавиатуры 7 элементов вектора действительного типа и...

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

Подпрограммы - Delphi
Всем привет) прошу у вас помощи и совета) в общем пишу курсовой проект....программа состоит из нескольких мелких программ, которые если...

Подпрограммы - Delphi
есть код: program Project2; {$APPTYPE CONSOLE} uses SysUtils; var z,x,c,c1,xs,c2,cs,P:real;

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

4
Андрей Борисови
708 / 396 / 18
Регистрация: 04.10.2009
Сообщений: 1,683
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 / 0
Регистрация: 05.03.2012
Сообщений: 21
01.04.2012, 13:46  [ТС] #3
Как заставить эту штуку работать?
0
Андрей Борисови
708 / 396 / 18
Регистрация: 04.10.2009
Сообщений: 1,683
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 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

Массивы, подпрограммы - Delphi
Здравствуйте! Нужно написать программу, используя подпрограммы. Я задал массивы, написал код для кв. уравнения. Что делать дальше? и почему...

Функции и подпрограммы - Delphi
смотрите вот задание : Дано: в текстовом файле fin.txt находится текст на русском языке. С клавиатуры вводится число К. Надо: написать...

Подпрограммы с параметрами - Delphi
Помогите пожалуйста! Очень нужна помощь! Задачи нужно решить без массивов с помощью подпрограмм с параметрами к завтрашнему дню!Вот...

Подпрограммы и модули - Delphi
Помогите с кодом разобраться.. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...


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

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

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