Вторник, 26 Октября 2021, 14:56

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Помогите решить задачу! (Решение задачи.)
Помогите решить задачу!
maxturboДата: Четверг, 29 Декабря 2011, 08:23 | Сообщение # 1
был не раз
Сейчас нет на сайте
Помогите решить задачу на Turbo Pascal!
TimKruzДата: Пятница, 30 Декабря 2011, 17:10 | Сообщение # 2
старожил
Сейчас нет на сайте
Первое просто:
Code
function y(i:real):real;
begin
    y:=sqrt(a[i]*a[i]*a[i]-2*a[i]*a[i]+5*a[i]-7);
end;

a[номер] - это обращение к элементу под номером "номер" массива a.
А вот как вычислить корень произвольной степени без power (который только в Delphi) - не знаю... wacko




Сообщение отредактировал TimKruz - Пятница, 30 Декабря 2011, 17:11
masb8ly-GCДата: Пятница, 30 Декабря 2011, 18:10 | Сообщение # 3
постоянный участник
Сейчас нет на сайте
Ну power это в делфи, а в паскале данную функцию можно легко написать самостоятельно.
Вот функция power на паскале в моем представлении, вычисление корня произвольной степени думаю понять не сложно)
Code
function pow(a, b: real): real;
begin
    result := exp(ln(abs(a)) * b);
    if (a < 0) and (round(b) mod 2 <> 0) then result := result * (-1);
    if (a < 0) and (b - trunc(b) <> 0) then result := 0;
end;

Данная функция работает как с отрицатильными и положительными числами, так и с отрицательными и положительными степенями.
Если это не требуется, то будет достаточно:
Code
result := exp(ln(abs(a)) * b);

Добавлено (30.12.2011, 18:10)
---------------------------------------------
И в первом помоему скобочки нужны:

Code
function y(i:real):real;  
  begin  
     y:=sqrt(a[i]*a[i]*a[i]-2*(a[i]*a[i])+5*a[i]-7);  
  end;


Backend Developer ESIS
Client Side Developer Room8Studio
Technical Leader Lucid Reality Labs
Chief Technology Officer The Intruders
Chief Technology Officer RoyalePlay Games


Сообщение отредактировал masb8ly-GC - Пятница, 30 Декабря 2011, 18:03
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Помогите решить задачу! (Решение задачи.)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2021 Рейтинг