Написать подпрограмму-функцию степени аx, где a, х – любые числа. Воспользовавшись формулой: аx = ex ln a

@mysqlll · Регистрация: 16.05.2012

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

С использованием процедур
С использованием функций
-
Написать подпрограмму-функцию степени аx, где a, х – любые числа. Воспользовавшись формулой: аx = ex ln a

@mr.xolms · 03.07.2012, 21:13

Pascal

 function  stp (a, x : real) : real;
 var y : real;  
 begin
    y := exp (x * ln ( a)) ;
    stp:= y;
 end;

@mysqlll · 03.07.2012, 21:43 **[ТС]**

Это с использованием процедур или функции?
Мне 2 разных программы нужны...

@Reveng · 03.07.2012, 21:52

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

Это с использованием процедур или функции?
Мне 2 разных программы нужны...

Это реализация функции...

Функция:

Pascal

uses crt;
var
   a, x: real;
 
function ax(a, x: real):real;
begin
  ax := exp(x*ln(a));
end;
 
BEGIN
ClrScr;
Write('a = ');
Readln(a);
Write('x = ');
Readln(x);
Writeln('Result = ', ax(a, x):6:2);
Readln;
END.

Процедура:

Pascal

uses crt;
var
   a, x, y: real;
 
procedure ax(a, x: real; var y: real);
begin
  y := exp(x*ln(a));
end;
 
BEGIN
ClrScr;
Write('a = ');
Readln(a);
Write('x = ');
Readln(x);
ax(a, x, y);
Writeln('Result = ',  y:6:2);
Readln;
END.

@mysqlll 0 / 0 / 0 Регистрация: 16.05.2012 Сообщений: 39
		1
	Написать подпрограмму-функцию степени аx, где a, х – любые числа. Воспользовавшись формулой: аx = ex ln a 03.07.2012, 21:07. Показов 3114. Ответов 3 Метки нет (Все метки) С использованием процедур С использованием функций - Написать подпрограмму-функцию степени аx, где a, х – любые числа. Воспользовавшись формулой: аx = ex ln a 0

@mysqlll 0 / 0 / 0 Регистрация: 16.05.2012 Сообщений: 39
	03.07.2012, 21:43 [ТС]	3
	Это с использованием процедур или функции? Мне 2 разных программы нужны... 0

	03.07.2012, 21:52