3 процедуры 1 функция

[alexey9999]

Дано вещественное число A и целое число N (>0). Найти A в степе-ни A^N = A•A•...•A(числа A перемножаются N раз).

program abc;
uses crt;
var
i,n:integer;
stepen,a:real;
begin
writeln('введите (N>0) N');
readln(n);
writeln('введите A');
readln(a);
stepen:=1;
for i:=1 to n do
begin
stepen:=stepen*a;
end;
writeln('A в степени N:=',stepen);
end.

Написать 4 подпрограммы:

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

[Streletz]

Процедуру, которая не возвращает значения

Процедуры никогда не возвращают значения. У них есть входные (для получения данных) и выходные (для выдачи результата) параметры.
Возвращают значение только функции.

[Vanta11a]

По п.1: возможно, просто вызов функции без параметров
По п.2: тупо классическая функция
По п.3: я так понимаю, что необходимо передавать в процедуру ссылку на результирующий элемент, чтобы процедуру его и меняла.

Но толком то по этим вопросам ничего не сделано. Автор, будут попытки?

[Poma][a]

Процедуры никогда не возвращают значения. У них есть входные (для получения данных) и выходные (для выдачи результата) параметры.
Возвращают значение только функции.

А в честь чего?

procedure p(var n : Integer);
begin n := Random(10) end;

Разве эта процедура не вернет значение?

Написать 4 подпрограммы:

Это приказ?

[Serge_Bliznykov]

Процедуру, которая не возвращает значения

подозреваю, что под этим авторы задания имели в виду использование ГЛОБАЛЬНЫХ переменных!
(т.е. процедура делает что надо и результат сохраняет в глобальной переменной).
Так иногда делают (хоть это и форменное безобразие! (

Сообщение от Poma][a

А в честь чего?

procedure p(var n : Integer);
begin n := Random(10) end;

Разве эта процедура не вернет значение?

нет, не вернёт.
Она ИЗМЕНИТ переданный ей параметр, но ничего не вернёт.
Чтобы убедится в этом напишите

WriteLn('процедура вернула значение ', p(x));

и посмотрите, что по этому поводу думает компилятор Паскаля...

[Poma][a]

и посмотрите, что по этому поводу думает компилятор Паскаля...

Ответ очевиден..

подозреваю, что под этим авторы задания имели в виду использование ГЛОБАЛЬНЫХ переменных!

Тогда процедурка тоже ничего не вернет, она лишь изменит глобальную переменную..

Она ИЗМЕНИТ переданный ей параметр, но ничего не вернёт.

Да? Хорошо..

procedure q(n : Integer);
begin n := Random(10) end;

А что делает эта процедурка?
Она изменяет параметр, но НЕ передает его обратно..

[Serge_Bliznykov]

Сообщение от Poma][a

Тогда процедурка тоже ничего не вернет, она лишь изменит глобальную переменную..

дык, как я понимаю, это же и требуется по условию п.1.

Процедуру, которая не возвращает значения

Сообщение от Poma][a

Да? Хорошо..

procedure q(n : Integer);
begin n := Random(10) end;

А что делает эта процедурка?
Она изменяет параметр, но НЕ передает его обратно..

точно так.
Возможно, что требуется именно такой код:

procedure stepA(A : real; N : Integer);
var stepen:real;
begin 
  < Тут вычисления переменной stepen .... >

  // Вывод результата вычислений
  writeln('A в степени N:=',stepen);
end;

Cогласитесь, что данная процедура делает то, что нужно (вычисляет A в степени N) и ничего не возвращает!

[Poma][a]

Cогласитесь, что данная процедура делает то, что нужно (вычисляет A в степени N) и ничего не возвращает!

Совершенно верно!

procedure stepA(A : real; N : Integer; var stepen : Real);
begin 
  < Тут вычисления переменной stepen .... >

  // Вывод результата вычислений
  writeln('A в степени N:=',stepen);
end;

А теперь согласитесь, что данная процедура возвращает ответ!

[Аватар]

Poma][a, терминологический спор. Формально не возвращает в терминах обращения к ней и как должно возвращать. Фактически - возвращает путем изменения значений параметров

[Serge_Bliznykov]

Сообщение от Poma][a

Совершенно верно!

procedure stepA(A : real; N : Integer; var stepen : Real);
begin 
  < Тут вычисления переменной stepen .... >

  // Вывод результата вычислений
  writeln('A в степени N:=',stepen);
end;

А теперь согласитесь, что данная процедура возвращает ответ!

Точно. Но уточню - возвращает через изменение переданного ей параметра.
И теперь посмотрите на исходный пост, что требуется.

Мой пример - это реализация пункта 2 задания.

Ваш пример - это реализация пункта 3 задания.


Аватар, Вы абсолютно правы.

я свои ответы строю строго исходя из того, чем процедура отличается от функции (в Паскаль, конечно).
Вот, например, как в help TurboPascal описано что такое функция и что такое процедура:

 function (reserved word)
 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
A function is a program part that computes and
returns a value.

 procedure (reserved word)
 ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
A procedure is a program part that performs a
specific action, often based on a set of
parameters.

p.s. чем дальше, тем больше мне наш спор напоминает спор вида "нет, стрижено", "нет, брито"... Мы прекрасно понимаем, что каждый из нас пытается донести до другого, поэтому, я смысла в данном обсуждении не вижу, уж извините меня...