ПОМОГИТЕ РЕШИТЬ ПОЖАЛУЙСТА! Pascal!
Ответы
Задача 1:
var
x,y,a,b,c,an,ak,da: real;
begin
writeln('введите значения переменных:');
write('a_(начальное)= ');
read(an);
write('a_(конечное)= ');
read(ak);
write('a_(шаг)= ');
read(da);
write('b= ');
read(b);
write('c= ');
read(c);
writeln;
writeln(' a x y');
writeln('-------------------------------');
a:=an;
while a<=ak do
begin
if a=b then x:=a*b
else x:=a*a+b*b;
if x<10-b*b then y:=c*x else
if x>10-b*b then y:=a*x+b else y:=abs(a*x-c);
writeln(a:9:3, x:11:3, y:11:3);
a:=a+da;
end;
end.
Задача 2:
var
x,z,a,xn,xk,dx: real;
begin
writeln('введите значения переменных:');
write('x_(начальное)= ');
read(xn);
write('x_(конечное)= ');
read(xk);
write('x_(шаг)= ');
read(dx);
write('a= ');
read(a);
writeln;
writeln(' x z');
writeln('-------------------');
x:=xn;
while x<=xk do
begin
z:=(a-4)*sqrt(x)/(sin(x)+cos(x)+3);
writeln(x:8:3, z:11:3);
x:=x+dx;
end;
end.
Задача 3:
var
x,y,a,b,an,ak,da: real;
begin
writeln('введите значения переменных:');
write('a_(начальное)= ');
read(an);
write('a_(конечное)= ');
read(ak);
write('a_(шаг)= ');
read(da);
write('b= ');
read(b);
writeln;
writeln(' a x y');
writeln('-----------------------------');
a:=an;
while a<=ak do
begin
if a*b>2 then x:=a*a+1
else x:=b*b-1;
if x<1 then y:=a*sqrt(b) else
if x>3 then y:=sqrt(b)*x*x else y:=sqrt(b)*a*sqrt(x);
writeln(a:8:3, x:10:3, y:11:3);
a:=a+da;
end;
end.
Внизу скрины окна сообщений этих программ:
