Как на паскале сделать корень

Question

sqr это в квадрат, а как например √49=7, я просто решил калькулятор сделать

program new1;
uses graph ;
var Picka: String ;
var A,B: Real ;
begin
Read (Picka,A,B,) ;
if (Picka)= '+' then A:= A+B ;
if (Picka)= '-' then A:=A-B;
if (Picka)= '÷' then A:= A/B ;
if (Picka)= '×' then A:=A*B;
if (Picka)= '^2' then A:=sqr(a+b*0) ;
Write (A) ;
end.

Answer 1

Возвести в квадрат - sqr, извлечь корень - sqrt.

Answer 2

Ты прав: sqr() — это возведение в квадрат, а чтобы взять квадратный корень, нужно использовать функцию sqrt().

Пример:

pascal
Copy
Edit
A := sqrt(49); // Вернёт 7
В твоей программе можно добавить так:

pascal
Copy
Edit
if (Picka) = '√' then A := sqrt(A);
Также не забудь подключить модуль math, если вдруг Pascal требует:

pascal
Copy
Edit
uses graph, math;
https://www.proreminiapp.com/ о математических функциях в Pascal.