помогите пожалуйста сделать функцию возведения числа в степень (числа считываютс...

July 2022 1 4 Report

помогите пожалуйста сделать функцию возведения числа в степень (числа считываются с клавиатуры). на фотографии есть начало (только там в конце что-то не оч). ПОЖАЛУЙСТА!

Answers & Comments

sanino1023 uses crt;

function Power(x,y:real):real;
begin
if x=0 then Power:=0else
if x>0 then Power:=exp(ln(x)*y)else
Power:=-exp(ln(abs(x))*y);
end;

var x,y:real;
begin
clrscr;
write('x=');readln(x);
write('y=');readln(y);
write('x^y=', Power(x,y):0:3);
readln
end.

1 votes Thanks 1

ольгасоколова спасибо ! мы не изучали пока power и abs, но хоть что-то с:

sanino1023 Power, это название функции. ABS - абсолютное значение, т.е. модуль числа.
Может тебе проще сделать?

ольгасоколова даже не знаю просто мне сказали сделать с for, с которым я делать начала

sanino1023 та просто на фото функция, вот я и подумал

ольгасоколова не знаю как объяснить этл и есть функция, но мне сказали, что в основной части нужно использовать for

sanino1023 program Shema;

uses
crt;

var
i, b: integer;
a, c: real;

begin
clrscr;
write('Vvedite a= ');readln(a);
write('Vvedite b= ');readln(b);
for i:=1 to b do
begin
c:=exp(ln(a)*b);
end;
writeln('x^y= ', c:4:3);
readln
end.

sanino1023 типа так или что?

ольгасоколова да, как-то так. но что такое
?

Answers & Comments

рекомендуемые вопросы

Helpful Links

Helpful Social