Лічильник
Сьогодні Разом
Відвідувань 334 5266034
Авторізацій 49 421854
Користувачів 40 2716
Статья

8. Простий приклад


Наприклад розглянемо алгоритм обчислення кореня квадратного із заданого речового числа.

З математики нам відомо, що квадратний корінь неможливо обчислити, якщо підкорене вираз негативне. Отже, перш ніж обчислювати значення кореня квадратного із заданого числа, слід перевірити його значення: якщо значення вихідного числа менше нуля, то повідомити, що обчислити неможливо, інакше - обчислити і вивести результат.
var x, y: Real;

begin
 readln(x);
 if x < 0
  then writeln('Обчислити неможливо')
  else begin
        y := sqrt(x);
        writeln(y:0:3)
       end
end.