Протабулюйте функцію z=cos(2x-3y),змвнюючи х на проміжку (0;2) з кроком 0.2,а Y на проміжку (0;1) з кроком 0.1.
Протабулюйте функцію z=cos(2x-3y),змвнюючи х на проміжку (0;2) з кроком 0.2,а Y на проміжку (0;1) з кроком 0.1.
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET v3.0 сборка 1111
//В случае, если x принадлежит 0 и 2, а y-0 и 1.
var
x,y,z:real;
i:integer;
begin
x:=0;
y:=0;
for i:=1 to 11 do
begin;
z:=cos(2*x-3*y);
writeln(z,'=cos(',2*x,'-',3*y,'), при x=',x,' и y=',y);
x:=x+0.2;
y:=y+0.1;
end;
end.
// В случае, если x не принадлежит 0 и 2, а y-0 и 1.
var
x,y,z:real;
i:integer;
begin
x:=0.2;
y:=0.1;
for i:=1 to 9 do
begin;
z:=cos(2*x-3*y);
writeln(z,'=cos(',2*x,'-',3*y,'), при x=',x,' и y=',y);
x:=x+0.2;
y:=y+0.1;
end;
end.
Не нашли ответ?
Похожие вопросы