• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

Tatali

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


Создать в ИСР Pascal:
а) Создать пользовательский модуль для вычисления А в степени n, где a – любое вещественное число, n – целое число (может быть как положительным, так и отрицательным), причём обе переменные являются внешними по отношению к основной программе;
б) программу, которая будет использовать модуль (задание А) для вычисления степени некоторого числа, основание и показатель вводятся с клавиатуры.
 
D

Dock1100

вычисления А в степени 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;

Добавлено: кажись так.
 
V

vital

Результат=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

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

Over

По условию задачи, функцию вычисления степени нужно вынести в отдельную dll-ку. Ещё нужно написать исполняемый файл, который будет использовать функцию из dll-ки.
 
D

Dock1100

Наскоко я помню - просто файл *.pas который содержит функции, процедуры...
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!