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

@Chees · Регистрация: 05.03.2012

Студворк — интернет-сервис помощи студентам

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.

Что я делаю не так,подскажите пожалуйста.

@Андрей Борисови · 29.03.2012, 11:29

Ошибка размещения описания функций.
Вот так должно быть ОПИСАНО.
Косяк в том, что функции ничего вам не дают

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;

@Chees · 01.04.2012, 13:46 **[ТС]**

Как заставить эту штуку работать?

@Андрей Борисови · 02.04.2012, 00:14

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));

@Chees · 02.04.2012, 10:29 **[ТС]**

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 минут
Все работает,спасибо.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Chees 4 / 3 / 1 Регистрация: 05.03.2012 Сообщений: 21
	01.04.2012, 13:46 [ТС]
	Как заставить эту штуку работать? 0