Найти квадратные корни из чисел - Turbo Pascal
Формулировка задачи:
дан линейный массив из 5 чисел найти квадратные корни из этих чисел (сделать задачу через for to do числа вводить самой)
Решение задачи: «Найти квадратные корни из чисел»
textual
Листинг программы
const n = 5; var x: array [1..n] of real; i: byte; begin Writeln('Введите элементы ', n, '(штук): '); while i <> n do begin i := i + 1; Readln(x[i]); if x[i] >= 0 then Writeln('Кв. корень = ', Sqrt(x[i]):0:5) else Writeln('Кв. корень из отрицательного числа не существует'); end; Readln end.
Объяснение кода листинга программы
- В начале объявляются две переменные: n и x. Переменная n инициализируется значением 5. Переменная x представляет собой массив из 5 элементов типа real.
- Затем идет блок begin-end, внутри которого происходит чтение элементов массива x с помощью функции Readln. Чтение продолжается до тех пор, пока не будет введено значение n.
- После окончания чтения элементов массива x, выполняется проверка каждого элемента на положительность. Если элемент положительный, то вычисляется квадратный корень с помощью функции Sqrt и выводится на экран. Если элемент отрицательный, выводится сообщение о том, что квадратный корень из отрицательного числа не существует.
- В конце программы вызывается функция Readln для чтения последнего элемента и завершается выполнение программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д