В паскале в 3 циклах: for; repeat; white.

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

Question

Информатика

Христинка

2 марта, 03:03

В паскале в 3 циклах: for; repeat; white.

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

+2

Ответы (1)

Знаете ответ на вопрос?

Рома · Answer 1

var x, y:real; begin write ('x/y':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.