Проблема в том, что специальной функции для кубического корня в Паскале нет. Поэтому приходится выкручиваться через логарифмы. А логарифмы нравятся не всем. Точнее, почти всем не нравятся. Мы просто воспользуемся формулой:
[sqrt[3]=expleft(fraclnxright)]
, а также тем, что корень кубический функция не четная и можно минус выносить из под знака корня для того, чтобы не пришлось вычислять логарифм отрицательного числа. Ниже приведен код программы.
program TryRoot3; function Root3(X: Real): Real; begin if X = 0.0 then Root3 := 0.0 else if X > 0.0 then Root3 := Exp(Ln(X) / 3) else Root3 := -Exp(Ln(-X) / 3) end; begin WriteLn(Root3(27.0):0:0, ‘ ‘, Root3(-8.0):0:0, ‘ ‘, Root3(0.0):0:0); < 3 -2 0 >end.
Источник: upbyte.net
Составить программу вычисления значения квадратного корня из числа — Turbo Pascal
2. Скласти програму обчислення значення квадратного кореня з числа а>0 з точністю , користуючись ітераційним співвідношенням , де xn — попереднє, xn+1 — наступне наближення кореня. Значенням початкового наближення вважати а/2.
Программа для решения корней квадратного уравнения с использованием дискриминанта на языке Паскаль
2. Составить программу вычисления значения квадратного корня из числа а> 0 с точностью , пользуясь итерационным соотношением, где xn — предварительное, xn +1 — следующее приближение корня. Значением начального приближения считать а / 2.
Код к задаче: «Составить программу вычисления значения квадратного корня из числа»
Листинг программы
uses crt; var a,x,xn,e:real; begin clrscr; repeat write(‘Введите положительное число a=’); readln(a); until a>0; repeat write(‘Введите точность вычислений e>0 e=’); readln(e); until e>0; if e>=a/2 then write(‘Корень с точностью ‘,e:0:3,’=’,a/2:0:3) else begin xn:=a/2; x:=(xn+a/xn)/2; while abs(x-xn)>e do begin xn:=x; x:=(xn+a/xn)/2; end; write(‘Корень с точностью ‘,e:0:3,’=’,x:0:3) end; readln end.
Источник: studassistent.ru
Как обозначить корень в паскале?
Обозначается, как «sqrt» , без кавычек. В программе пишется как sqrt(a), где a — любая другая переменная или число. Пример: var a, c:real; begin writeln (‘Введите число’); readln (a); c:=sqrt(a); writeln (‘Корень равен ‘,c); end.
Как обозначить степень в Паскале?
- Какую именно? Квадрат х пишут как sqr(x) или х*х, куб — x*sqr(x), четвертую — sqr(sqr(x)). А в общем случае для х в степени у пишут exp(y*ln(x))
- В современных версиях Раскаля есть функция Pow(x,y) или Power(x,y)
- *Паскаля
Как записать в Паскале а в квадрате?
Для нахождения квадрата числа в паскале предусмотрена функция sqr(x) , где x — число. Пример : Результат : переменной «а» присваивается значение 25.
Как написать sin в Паскале?
Sin: Возвращает синус параметра.
Как обозначается модуль на языке Паскаль?
Обозначается, как «abs» без кавычек, в программе пишется, как abs(a), где a — любое число или другая переменная.
Что нужно записать в начале программы после заголовка для подключения процедур?
После заголовка следует тело, (возможно) содержащее секции описания локальных констант, типов, переменных, процедур, функций и (обязательно) содержащее блок операторов, после которого ставится символ «точка с запятой» ; . Тело процедуры, как и программы, в свою очередь может содержать описания процедур и функций.
Что такое E в Паскале?
Функция Exp в Паскале (и многих других языках программирования) вычисляет экспоненту. Синтаксис: function Exp(X : ValReal) : ValReal; . Функция Exp X вычисляет и возвращает экспоненту числа X.
Как написать е в степени?
Возведение числа е в степень означает возведение в степень числа Эйлера e x = exp (x). Число е в 1-й степени, как и любое число в этой степени, будет равно самому себе, т. е.
Как сделать число пи в Паскале?
WriteLn(‘Число Pi = ‘, Pi);
Как в Паскале написать синус в квадрате?
sin 2 (x)=sin(x)*sin(x)
Смотрите также калькулятор вычисления синуса угла.
Какие последовательности символов могут служить в языке Паскаль?
- может начинаться с символа подчеркивания “_” или буквы, строчной или заглавной, от A до Z;
- может состоять из букв, подчеркиваний или цифр;
- может содержать спецсимволы например !, %, ] или $;
- не может содержать знак пробела;
Как объявить функцию в Паскале?
Чтобы задать функцию в программе Паскаль, нужно указать ключевое слово function имя и тип функции. write(medium(2,8)); end.
Что такое LN в Паскале?
Ln — Возвращает натуральный логарифм аргумента.
Источник: dmcagency.ru