Лекция: Пример выполнения задания 3

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

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

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

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

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

р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.

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

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

Тема 4