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

[kukobch]

Описать процедуру StepeniA357(A), вычисляющую корни третьей, пятой и седьмой степень числа A и возвращающую эти степени соответственно в переменных B, C и D (A — входной, B, C, D — выходные параметры; все параметры являются вещественными). С помощью этой процедуры найти корни третьй, пятой и седьмой степени пяти данных чисел.

[Вадим Мошев]

сами пытались что-либо сделать?

[kukobch]

Это получается мы вводим переменную A и ее нужно вычислить корень числа А в третей,пятой, и седьмой степени ? Я просто немного не понимаю что именно нужно сделать

[Lektorfuja]

А код программы есть?

[kukobch]

кода программы нет нужно составить

[Аватар]

function Root(X,Y: Real): Real;
begin
  if X=0 then Root:=0 else if X>0 then Root:=Exp(Ln(X)*Y) else Root:=-Exp(Ln(-X)*Y);
end;

procedure StepeniA357(A: Real; var B,C,D: Real);
begin
  B:=Root(A,1/3); C:=Root(A,1/5); D:=Root(A,1/7);
end;

[kukobch]

а можно целую программу

[Аватар]

Что просил, то и написал. А для 5 чисел сделай цикл и в нем обращайся к процедуре

[kukobch]

Напиши те пожалуйста целую программу

[Вадим Мошев]

Сообщение от Аватар

function Root(X,Y: Real): Real;
begin
  if X=0 then Root:=0 else if X>0 then Root:=Exp(Ln(X)*Y) else Root:=-Exp(Ln(-X)*Y);
end;

procedure StepeniA357(A: Real; var B,C,D: Real);
begin
  B:=Root(A,1/3); C:=Root(A,1/5); D:=Root(A,1/7);
end;

ИМХО, надо было написать функцию root таким образом, чтобы она вторым аргументом принимала целое число, и извлекала корень такой степени из первого числа. А то, что написано у тебя, можно прочитать, как извлечь из числа A корень степени 1/5, что по сути есть возведение этого числа в 5-ю степень. Впрочем, твоя функция такую операцию и делает.

Сообщение от kukobch

Напиши те пожалуйста целую программу

Скажите, вы на какой специальности учитесь?
Если на программиста или около того, то такая помощь будет вам только во вред. Вы так же не научитесь никогда самостоятельно мыслить, как программист. Кстати, написать программу мало, надо ещё её отладить, то есть найти и устранить все ошибки. Если вы не научитесь выполнять самостоятельно, то вы, скорей всего, не сможете работать по специальности.