Gleb1Kosyrev

Verified answer

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