Дано 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.

Объяснение кода листинга программы

В данном коде происходит следующее:

  1. Объявляются две переменные: n и a. Переменная n инициализируется значением 5, а переменная a представляет собой массив из 5 элементов типа integer.
  2. Запускается цикл for, который выполняется n (равным 5) раз. На каждой итерации цикла пользователю предлагается ввести число от 1 до 5, и это значение сохраняется в соответствующий элемент массива a.
  3. После завершения цикла for начинается еще один цикл for, который также выполняется n (равным 5) раз. На каждой итерации этого цикла вычисляется квадратный корень из элемента массива a, соответствующего текущей итерации, и выводится результат на экран.
  4. По завершении обоих циклов программа завершается и выводится сообщение readln.

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы