Контрольная работа: Использование программирования в математике

Внешний цикл – while, внутренний – repeat.

Текст программы:

Program pr_3;

var

i,j:integer;

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

begin

writeln('Vvedite nachalnoe znachenie x');

read(xn);

writeln('Vvedite konechnoe znachenie x');

read(xk);

writeln('Vvedite shag izmeneniya znacheniya x');

read(hx);

writeln('Vvedite nachalnoe znachenie y');

read(yn);

writeln('Vvedite konechnoe znachenie y');

read(yk);

writeln('Vvedite shag izmeneniya znacheniya y');

read(hy);

writeln('x y z');

x:=xn;

while x<=xk

do

begin

y:=yn;

repeat

z:=(2*sqr(x)*x+cos(y)/sin(y))/sqrt(1+ln(sqr(y))/ln(10));

writeln(x:5:2,' ',y:5:2,' ',z:5:2);