Составить программу с использованием циклических конструкций While… do… и Repeat… Until… - Turbo Pascal (29107)

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

Составить программу с использованием циклических конструкций While… do… и Repeat… Until… . Составить программу вычисления переменной X от х1 до х2 и Y от y1 до y2 используя вложенную циклическую структуру, где X – переменная внешнего цикла, Y – переменная внешнего цикла. Организовать вывод таблицы значений. заранее безмерное спасибо!!!!!!!!

Решение задачи: «Составить программу с использованием циклических конструкций While… do… и Repeat… Until…»

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

const x1=0;
      x2=5;
      y1=7;
      y2=10;
function f(x,y:real):real;
begin
f:=5*x*x/2-sqrt(3*x)+y*y;
end;
var x,y,dx,dy:real;
begin
dx:=(x2-x1)/10;
dy:=(y2-y1)/10;
x:=x1;
while x<x2+dx/2 do
 begin
  y:=y1;
  while y<y2+dy/2 do
   begin
    writeln('x=',x:5:2,' y=',y:5:2,' f=',f(x,y):5:2);
    y:=y+dy;
   end;
  x:=x+dx;
 end;
end.

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

Объявляются переменные x1, x2, y1, y2, dx и dy типа real.
Определяется функция f(x,y) типа real, которая вычисляет значение выражения 5xx/2 - sqrt(3x) + yy.
Создается переменная x типа real и присваивается значение x1.
Создается переменная y типа real и присваивается значение y1.
Создается переменная dx типа real и присваивается значение (x2-x1)/10.
Создается переменная dy типа real и присваивается значение (y2-y1)/10.
Переменная x устанавливается равной x1.
Запускается цикл while x<x2+dx/2 do.
Внутри цикла переменная y устанавливается равной y1.
Запускается цикл while y<y2+dy/2 do.
Внутри цикла выводится строка 'x=', с указанием текущего значения x и y, а также значение функции f(x,y).
Переменная y увеличивается на значение dy.
Переменная x увеличивается на значение dx.
Цикл while x<x2+dx/2 do завершается.
Переменная x устанавливается равной x1+dx.
Цикл while y<y2+dy/2 do завершается.
Переменная y устанавливается равной y1+dy.
Программа завершается.