Пример выполнения задания 3. Вычислить значение функции двух переменных

Вычислить значение функции двух переменных

с использованием двойного оператора цикла: внешний оператор цикла с предусловием while, а внутренний – оператор цикла с постусловием.

Значение переменных x и y изменяются соответственно от x _нач до x _кон с шагом h, и от y _нач до y _кон с шагом h, и вводятся с клавиатуры. Все переменные относятся к вещественному типу.

Вывести на экран таблицу значений х, y, z.

Примечание. В программе фиксируется значение одной из пе­ременных (например, х _нач) во внешнем цикле, затем во внутреннем цик­ле берется первое значение у _начи для пары х_нач, у _начвычисляется зна­чение z по заданной формуле, выводятся на экран значения х, у, z, далее у увеличивается на шаг h_y. Внутренний цикл будет работать, пока у не станет больше у _кон, затем выход во внешний цикл, увеличение х на шаг h_x и т. Д. Двойной цикл закончится, когда х станет больше х _кон.

рrogram Iab3;

uses crt;

var x, xn, xk, hx, y, yn, yk, hy, z:real;

begin clrscr;

writeln(¢Bвeдитe xn, xk, hx, yn, yk, hy ¢);

readln(xn, xk, hx, yn, yk, hy);

x:= xn;

while x < xk + hx/ 2do

begin у: =уп;

repeat

z:=sqrt(x * x * x + l)*exp(x)/(y * y + 2);

writeln (¢ х =¢, x:6:2,¢ y =¢, y:6:2,¢ z =¢, z:6:2);

y:= y + hy

until у > yk

x:= x + hx;

writeln;

end;

readkey;

end.

Исходные данные:

x нач=1,	x кон=3,	hx =1,
y нач=2,	y кон=6,	hy =2.

Полученный результат:

x =1,	y =2	z =0.64
x =1	y =4	z =0.21
x =1	y =6	z =0.10
x =2	y =2	z =3.69
x =2	y =4	z =1.23
x =2	y =6	z =0.58
x =3	y =2	z =17.71
x =3	y =4	z =5.90
x =3	y =6	z =2.81

Тема 4