Дано 5 чисел найти квадратные корни из этих чисел - Turbo Pascal
Формулировка задачи:
Дано 5 чисел найти квадратные корни из этих чисел (числа вводить самой, сделать задачу 4 способами,одним через if вторым через while 3им через for to do и 4ым через repeat)
Решение задачи: «Дано 5 чисел найти квадратные корни из этих чисел»
textual
Листинг программы
const n = 5; var a : array[1..n] of integer; i : integer; begin for i := 1 to n do begin write('введите ', i, ' число: '); readln(a[i]) end; for i := 1 to n do write(sqrt(a[i]):6:2); readln end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Объявляются две переменные: n и a. Переменная n инициализируется значением 5, а переменная a представляет собой массив из 5 элементов типа integer.
- Запускается цикл for, который выполняется n (равным 5) раз. На каждой итерации цикла пользователю предлагается ввести число от 1 до 5, и это значение сохраняется в соответствующий элемент массива a.
- После завершения цикла for начинается еще один цикл for, который также выполняется n (равным 5) раз. На каждой итерации этого цикла вычисляется квадратный корень из элемента массива a, соответствующего текущей итерации, и выводится результат на экран.
- По завершении обоих циклов программа завершается и выводится сообщение
readln
.