Составить таблицу корней квадратных для чисел от 10 до 50 с шагом 5. - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Составить таблицу корней квадратных для чисел от 10 до 50 с шагом 5.Буду очень благодарен.

Решение задачи: «Составить таблицу корней квадратных для чисел от 10 до 50 с шагом 5.»

textual
Листинг программы
program korni;
uses crt;
var
   i: integer;
   k: real;
begin
     clrscr;
     writeln('---------------');
     writeln('| a  | sqrt(a)|');
     writeln('---------------');
     i:=10;
     while i<=50 do
     begin
        k:=sqrt(i);
        writeln('|',i:4,'|',k:8:4,'|');
        writeln('---------------');
        i:=i+5;
     end;
     readkey;
end.

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

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

  1. Создается переменная i типа integer, которая будет использоваться для хранения чисел от 10 до 50 с шагом 5.
  2. Создается переменная k типа real, которая будет использоваться для хранения корней квадратных чисел.
  3. Выводится заголовок таблицы корней квадратных чисел.
  4. Задается начальное значение переменной i равным 10.
  5. Запускается цикл while, который будет выполняться до тех пор, пока значение переменной i не станет больше или равно 50.
  6. Внутри цикла вычисляется корень квадратный числа i и сохраняется в переменной k.
  7. Выводится строка с числом i и его корнем квадратным k.
  8. Выводится заголовок таблицы.
  9. Значение переменной i увеличивается на 5.
  10. После завершения цикла выводится символ readkey, который позволяет пользователю нажать любую клавишу для выхода из программы.

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

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