Question

В паскале в 3 циклах: for; repeat; white.
Вычислить и напечатать значения функции и соответствующие им значения аргументов x, y. z=2xy-2yx при изменении первого аргумента x[-1;1] с шагом 0.1 и второго аргумента y[2;2] с шагом 0.2.

Answer 1

var x,y:real;begin write('xy':8); y:=-2; while y<2.1 do begin write(y:8:4); y:=y+0.2; end; writeln; x:=-1; while x<1.1 do begin write(x:8:4); y:=-2; while y<2.1 do begin  write((2*x*y-2*x*y):8:4); y:=y+0.2; end; x:=x+0.1; writeln; end;end.

Answer 2

var
x,y:real;
begin
write('xy':8);
y:=-2;
while y<2.1 do
begin
write(y:8:4);
y:=y+0.2;
end;
writeln;
x:=-1;
while x<1.1 do
begin
write(x:8:4);
y:=-2;
while y<2.1 do
begin
write((2*x*y-2*x*y):8:4);
y:=y+0.2;
end;
x:=x+0.1;
writeln;
end;
end.