циклы с параметром задача

[Юля23]

Определить максимальное целое число n, удовлетворяющее условию 3n^2 - 730n < 5. С помощью цикла с параметром

[BDA]

n := 0;
while 3 * n * n - 730 * n < 5 do
  inc(n);
dec(n);
writeln(n);

[min@y™]

Сообщение от BDA

n := 0;
while 3 * n * n - 730 * n < 5 do
  inc(n);
dec(n);
writeln(n);

это цикл с предусловием.


предлагаю, всё ж, начать с решения квадратного уравнения, а там видно будет.
хотя, задача тупо на перебор...

[BDA]

min@y™, согласен, что это не тот цикл (не того типа), но ответ он выдаст правильный.

[min@y™]

Сообщение от BDA

min@y™, согласен, что это не тот цикл (не того типа), но ответ он выдаст правильный.

согласен .

[Юля23]

А чем можно заменить функции inc(n);
dec(n);?

[min@y™]

это не функции, а compiler magic. транслируются в одну ассемблерную инструкцию.
зачем их менять?
inc(n) --> n:= n + 1;
dec(n) --> n:= n - 1;

[Arigato]

Совсем без циклов:

var
  a,b,c: integer;
  d,x1: real;
begin
  a := 3; b := -730; c := -5;
  d := sqr(b)-4*a*c;
  x1 := (-b+sqrt(d))/(2*a);
  writeln(trunc(x1));
end.

А как задать верхний предел для for не понятно, от фонаря что ли?

[Аватар]

А как задать верхний предел для for не понятно, от фонаря что ли?

Зачем фонарь, оценить то можно, даже визуально n=730 далеко за пятерочку выбрасывает, вот и верхняя граница, ну и бряк в теле цикла в нужный момент