1 Тема від Іван

  • Іван
  • Користувач
  • Поза форумом
  • Дата реєстрації: 24.01.2013
  • Повідомлень: 1
    • Репутація: 0

Тема: корінь степінь в pascal ABC

Напишіть хто знає як записати в паскалі число під коренем чи в степені

2 Відповідь від User 298

  • User 298
  • Гість

Re: корінь степінь в pascal ABC

Є один парубок фантомний, Гоголем іноді кличуть його...

3 Відповідь від Пам'ять не може бути READ Востаннє редагувалося Пам'ять не може бути READ (24.01.2013 15:59:40)

  • Дата реєстрації: 08.06.2012
  • Повідомлень: 2 031
    • Репутація: 743

Re: корінь степінь в pascal ABC

Іван написав:

Напишіть хто знає як записати в паскалі число під коренем чи в степені

sqrt - фнкція для добування коренів з числа.
sqr - піднесення числа до квадрату.

var
number,select : integer;
begin
 writeln('Введіть дію. (1 - sqrt, 2 - sqr)');
 readln(select);
  if(select = 1)
   then
    writeln('sqrt(',number,') = ',sqrt(number))
  else  
   writeln('sqr(',number,') = ',sqr(number));
end.
Подякували: Voron, HetmanNet2

4 Відповідь від oksana.mysiuk

  • Звідки: с. Ягнятин
  • Дата реєстрації: 23.08.2014
  • Повідомлень: 1
    • Репутація: 4

Re: корінь степінь в pascal ABC

Можна так:
exp(ln(x)*n) - підносить x до степеня n;
exp(ln(x)/n) - добуває корінь n-ого степеня з x.

Подякували: HetmanNet, Replace, DOP, Chemist-i4

5 Відповідь від shabaranskij Востаннє редагувалося shabaranskij (17.06.2015 23:43:29)

  • Звідки: Львів
  • Дата реєстрації: 22.03.2015
  • Повідомлень: 191
    • Репутація: 52

Re: корінь степінь в pascal ABC

Або 

uses math; // До всього списку додати модуль Math
begin
edit1.text:=floattostr(power(a,b)); // а - число  b - степінь
end;
end.

Наприклад 

uses ... math;
begin
edit1.text:=floattostr(power(9,1/2)); // а - число  b - степінь
end.

В результаті візьметься квадратний корінь з числа 9.

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, math;

begin
  try
writeln(power(9,1/2):4:2);
readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Перевіряв на Turbo pascal і Pascal ABC модуль  math i power там не працюють.

6 Відповідь від vitia444

  • vitia444
  • vitia444
  • Користувач
  • Поза форумом
  • Звідки: Київ-Рівне
  • Дата реєстрації: 16.04.2013
  • Повідомлень: 125
    • Репутація: 36

Re: корінь степінь в pascal ABC

А ще можна степеневу функцію в ряд розложити і порахувати результат до якої тобі точності треба))

7 Відповідь від Chemist-i

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 800
    • Репутація: 2394

Re: корінь степінь в pascal ABC

oksana.mysiuk написав:

Можна так:
exp(ln(x)*n) - підносить x до степеня n;
exp(ln(x)/n) - добуває корінь n-ого степеня з x.

shabaranskij, функція power(), саме так і робить в середині.

Chemist-i вебсайт

8 Відповідь від shabaranskij

  • Звідки: Львів
  • Дата реєстрації: 22.03.2015
  • Повідомлень: 191
    • Репутація: 52

Re: корінь степінь в pascal ABC

Chemist-i написав:
oksana.mysiuk написав:

Можна так:
exp(ln(x)*n) - підносить x до степеня n;
exp(ln(x)/n) - добуває корінь n-ого степеня з x.

shabaranskij, функція power(), саме так і робить в середині.

Я знаю, просто з допомогою 'power'  якось простіше  *OK*