Задача в Паскаль

  • Автор темы Tatali
  • Дата начала
T

Tatali

Гость
#1
На этот раз совсем не знаю как решать. С математикой туго. помогите Пожалуйста решить задачу. Даже набросок нет.


Создать в ИСР Pascal:
а) Создать пользовательский модуль для вычисления А в степени n, где a – любое вещественное число, n – целое число (может быть как положительным, так и отрицательным), причём обе переменные являются внешними по отношению к основной программе;
б) программу, которая будет использовать модуль (задание А) для вычисления степени некоторого числа, основание и показатель вводятся с клавиатуры.
 
09.11.2009
665
1
23
Киев
#2
вычисления А в степени n, где a – любое вещественное число, n – целое число (может быть как положительным, так и отрицательным),
Код:
function stepen(chislo:real;step:integer):real;
var c:real;
i:integer;
begin
c:=1;
if step<>0 then
for i:=1 to abs(step) do
c:=c*chislo;
if step<0 then c:=1/c;
if step=0 then c:=1;
stepen:=c;
end;
Добавлено: кажись так.
 

vital

Больной Компом Детектед
29.01.2006
2 432
40
codeby.net
#3
Результат=Exp(степень*Ln(число)).
Для отрицательной степени
a^(-B) = 1/ ( a^B) - и формула выше.
Делов-то..
Вобщем..
Код:
Function Pow(A,B:Real):Real;
{ Функция возведения в степень (A^B) }
Var T:Real;
Begin
T := Abs(A);
If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
Else Pow := Exp(B*Ln(T));
End;
 
T

Tatali

Гость
#4
Скажите пожалуйста а что такое пользовательский модуль и с чем его едят? Если вас не затруднит? Я не понимаю. Создать модуль, а потом еще и программу для этого модуля.
 

Over

Well-Known Member
04.07.2007
116
0
33
РБ. Минская обл.
#6
По условию задачи, функцию вычисления степени нужно вынести в отдельную dll-ку. Ещё нужно написать исполняемый файл, который будет использовать функцию из dll-ки.