Составить программу для вычисления таблицы значения функции - Turbo Pascal

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

Составить программу для вычисления таблицы значения функции y=x/(2*sqrt(x)) где x изменяется от x1 до x2 с шагом dx. x1,x2,dx - ввести с клавиатуры.

Решение задачи: «Составить программу для вычисления таблицы значения функции»

Листинг программы

Program archio;
uses    crt;
var     x, x1, x2, dx, y : real;
        k                : integer;
        ch               : char;
begin
  clrscr;
  repeat
    write('Введите начальное значение X1 (больше нуля) = ');readln(x1);
  until x1>0;
  repeat
    write('Введите конечное значение (больше X1) = ');readln(x2);
  until x2>x1;
  repeat
    write('Введите шаг вычисления значения (больше нуля) = ');readln(dx);
  until dx>0;
  writeln('Вычисление функции y=x/(2*v(x)):');
  window(1,5,80,23);
  x:=x1;k:=0;
  while (x<=x2*1.001) do
    begin
      inc(k);
      y:=x/(2*sqrt(x));
      writeln('x = ',x:10:4,'      y = ',y:10:4);
      x:=x+dx;
      if (k>=18) then
         begin
           write('Продолжить <Enter>, закончить <Esc> ...');
           repeat
             ch:=readkey;
             if ch=#27 then exit;
           until ch=#13;
           writeln;k:=0;clrscr;
         end;
    end;
  window(1,1,80,25);
  readln;
end.

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

Программа начинается с объявления переменных и использования библиотеки crt.
В блоке repeat-until пользователь вводит начальное значение x1, конечное значение x2 и шаг вычисления dx. Программа проверяет, что введенные значения больше нуля.
Затем программа выводит сообщение о начале вычислений и создает окно с координатами 1, 5, 80, 23.
Переменная x устанавливается равной x1, переменная k инициализируется нулем.
Затем начинается цикл while, который выполняется, пока x не станет больше или равно x2*1.001.
Внутри цикла переменная k инкрементируется, значение y вычисляется как x/2*sqrt(x), и выводится сообщение с текущими значениями x и y. Затем значение x увеличивается на dx.
Если значение k становится больше или равно 18, программа выводит сообщение с просьбой продолжить или закончить, и повторяет этот запрос до тех пор, пока пользователь не введет #13 вместо #27.
После завершения цикла while программа выводит сообщение о завершении вычислений и создает новое окно с координатами 1, 1, 80, 25.
В конце программы вызывается функция readln для чтения пользовательского ввода и завершение работы программы.