Найти все варианты решения 3x – 2y+5*z=28 уравнения на отрезке х, у, z [-100;100]

@Samie · Регистрация: 22.09.2015

Author24 — интернет-сервис помощи студентам

Решить с помощью "For"

@erl27 · 22.09.2015, 16:56

Pascal

var
  x, y, z: integer;
  
begin
  for x := -100 to 100 do
    for y := -100 to 100 do
      for z := -100 to 100 do
        if 3*x-2*y+5*z=28 then writeln('x=', x, ' y=', y, ' z=', z)
end.

@JuriiMW · 23.09.2015, 10:11

А можно обойтись всего двумя циклами:

Pascal

begin
  var all := 0;
  for var x := -100 to 100 do
    for var z := -100 to 100 do
      begin
        var y := 3*x+5*z-28;
        if not odd(y) and (y > -201) and (y < 201) then
          begin
            WriteLnFormat('x={0} y={1} z={2}', x, y div 2, z);
            all += 1;
          end;
      end;
  WriteLn('Всего решений: ', all);
end.

Здесь просто вместо 8000000 проверок делается 40000 проверок!

А если бы отрезок был [-100000…+100000], то выигрыш по времени был бы очень заметен…

Найти все варианты решения 3x – 2y+5*z=28 уравнения на отрезке х, у, z [-100;100]

Решение

Решение

@Samie 0 / 0 / 0 Регистрация: 22.09.2015 Сообщений: 21
		1
	Найти все варианты решения 3x – 2y+5z=28 уравнения на отрезке х, у, z [-100;100] 22.09.2015, 16:37. Показов* 1380. Ответов 2 Метки нет (Все метки) Решить с помощью "For" 0

	23.09.2015, 10:11

Найти все варианты решения 3*x – 2*y+5*z=28 уравнения на отрезке х, у, z [-100;100]

Решение

Решение

Найти все варианты решения 3x – 2y+5*z=28 уравнения на отрезке х, у, z [-100;100]