Почему не происходит обращение к подпрограмме?

@ilys · Регистрация: 07.03.2010

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

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
program _;
var
x1,x2,x3,y1,y2:integer; f1,f2,y,z:real;
function fet1(x,y:integer; z1:real):integer;
begin
z1:=(exp(x)+exp(-x))/(x+y);
end;
function fet2(x:integer; z2:real):real;
begin
z2:=5*x-8*Ln(x);
end;
begin
writeln('введите x1');
readln(x1);
writeln('введите  x2');
readln(x2);
writeln('введите  x3');
readln(x3);
writeln('введите y1');
readln(y1);
writeln('введите  y2');
readln(y2);
Y:=sin(fet1(x1,y1,f1))+sqr(cos(fet2(x2,f2)));
Z:=2*ln((fet1(x2,y2,f1)+fet2(x3,f2))/3);
writeln('z1=',Y:1:5);
writeln('z2=',Z:1:5);
end.

@Arustarh Dark · 02.06.2010, 07:18

Обращение к подпрограммам происходит, но т.к. ты не возвращаешь результата, то происходит оно зря

@ilys · 02.06.2010, 07:25 **[ТС]**

Сообщение от Arustarh Dark

ты не возвращаешь результата

смысл этой фразы не совсем понятен, можете поподробнее объяснить пожалуйста

@Arustarh Dark · 02.06.2010, 07:28

Пример.
у тебя:

Pascal
1
2
3
4
function fet1(x,y:integer; z1:real):integer;
begin
z1:=(exp(x)+exp(-x))/(x+y);
end;

а нужно:

Pascal
1
2
3
4
function fet1(x,y:integer; var z1:real):integer;
begin
z1:=(exp(x)+exp(-x))/(x+y);
end;

@ilys · 02.06.2010, 07:45 **[ТС]**

вы меня извините, но не происходит вычисление в формуле, вот код

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
program _;
var
x1,x2,x3,y1,y2:integer; f1,f2,y,z:real;
function fet1(x,y:integer; var z1:real):real;
begin
z1:=(exp(x)+exp(-x))/(x+y);
end;
function fet2(x:integer; var z2:real):real;
begin
z2:=5*x-8*Ln(x);
end;
begin
writeln('введите x1');
readln(x1);
writeln('введите x2');
readln(x2);
writeln('введите x3');
readln(x3);
writeln('введите y1');
readln(y1);
writeln('введите y2');
readln(y2);
fet1(x1,y1,f1);//подпрограмма выполняется
fet2(x2,f2);   //подпрограмма выполняется
writeln(f1);
writeln(f2);
Y:= sin(fet1(x1,y1,f1))+sqr(cos(fet2(x2,f2)));  //подпрограмма не выполняется
Z:=2*ln((fet1(x2,y2,f1)+fet2(x3,f2))/3);//подпрограмма не выполняется
writeln('z1=',Y:1:5);
writeln('z2=',Z:1:5);
end.

@harmless · 02.06.2010, 08:06

Забыл я паскаль. Но... Где возвращаемый результат?
В Delphi, например, должно быть так:
для использования конструкции типа: Y:=fet1(x1,x,2,f1)

Delphi
1
2
3
4
function fet1(x,y:integer):real;
begin
  Result:=(exp(x)+exp(-x))/(x+y);
end;

или

Delphi
1
2
3
4
function fet1(x,y:integer):real;
begin
  fet1:=(exp(x)+exp(-x))/(x+y);
end;

В Вашем случае, думается, будет работать так:

Pascal
1
2
fet1(x1,y1,f1);
Y:= sin(f1)+...

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

Добавлено через 10 минут
Поправил немного...

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@Arustarh Dark 63 / 64 / 13 Регистрация: 08.06.2008 Сообщений: 243
	02.06.2010, 07:18
	Обращение к подпрограммам происходит, но т.к. ты не возвращаешь результата, то происходит оно зря 0

@ilys 15 / 15 / 13 Регистрация: 07.03.2010 Сообщений: 55
	02.06.2010, 07:25 [ТС]
	Сообщение от Arustarh Dark ты не возвращаешь результата смысл этой фразы не совсем понятен, можете поподробнее объяснить пожалуйста 0

Опции темы