1

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

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

2

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

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

I belong to the Dead Generation.
Подякували: koala, DOP2

3 Востаннє редагувалося Адріян Ігорович (24.01.2013 16:59:40)

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

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

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

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

5 Востаннє редагувалося shabaranskij (18.06.2015 00:43:29)

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

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

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

7

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

oksana.mysiuk написала:

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

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

x

8

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

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

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

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

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