//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.
//В случае, если 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.