помогите пожалуйста сделать функцию возведения числа в степень (числа считываются с клавиатуры). на фотографии есть начало (только там в конце что-то не оч). ПОЖАЛУЙСТА!
Приложения:
Ответы
Ответ дал:
0
uses crt;
function Power(x,y:real):real;
begin
if x=0 then Power:=0 else
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.
function Power(x,y:real):real;
begin
if x=0 then Power:=0 else
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.
Ответ дал:
0
та просто на фото функция, вот я и подумал
Ответ дал:
0
не знаю как объяснить этл и есть функция, но мне сказали, что в основной части нужно использовать for
Ответ дал:
0
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.
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.
Ответ дал:
0
типа так или что?
Ответ дал:
0
да, как-то так. но что такое
?
?
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад