Версия для печати темы

Автор: DeMoN 911 6.5.2007, 17:26

Подскажите, как правильно написать программу:
Условие: Найдите кол-во целых чисел, лежащих в интервале -100<=n<=100, при которых дробь
(n^2-5n+6)/(2n-1) является целым числом.

Автор: Ботаник 7.5.2007, 7:06

Выкладывайте свою программу, а мы постараемся поправить ошибки. Вы ведь уже что-то написали? Да?

Автор: DeMoN 911 9.5.2007, 17:41

У меня получилась такая тема:

program cel;
const n=100;
var
n1,i:integer;
y:real;
y1:integer;
begin
randomize;
n1:=-100+random(201);
y:=(n1*n1-5*n1+60)/(2*n1-1); y1:=0;
for i:=-100 to n do
if y mod 2 = 0 then y1:=y1+1;
readln
end.

Че-то у меня комп не выдает правильность строки if y mod 2 = 0 then y1:=y1+1. Буду рад узнать почему.

Автор: A_nn 9.5.2007, 18:05

Что-то я не поняла ничего... Зачем randomize? И почему у Вас в цикле ничего не вычисляется?
Я, вообще-то, давно программированием не занималась. Может, там что-то изменилось за последнее время...

Автор: Ботаник 9.5.2007, 20:06

Потому и не поняли, что понимать нечего. Просто набор операторов.

Автор: Ботаник 10.5.2007, 4:31

Вот алгоритм. На Паскаль самостоятельно перепишите. Требуемых чисел моя программа нашла 8.

Sub main()
Dim k As Integer, j As Integer, n As Integer
Dim y As Single

k = 0
For n = -100 To 100
y = (n * n - 5 * n + 6) / (2 * n - 1)
j = y
If (j = y) Then k = k + 1
Next n
Debug.Print "k="; k
End Sub

Автор: DeMoN 911 10.5.2007, 15:29

Программа должна выглядеть так:

program cel;
var
k,n:integer;
j:integer;
y:real;
begin
for n:=-100 to 100 do
k:=0;
y:=(n*n-5*n+6)/(2*n-1);
j:=y;
if (j:=y) then k:=k+1;
readln(n);
writeln('Количество целых чисел=',k);
readln
end.

Я прав ?!?

Автор: A_nn 10.5.2007, 17:10

По-моему, тут двоеточие не надо (это же не присваивание). И тело цикла должно же быть как-то ограничено (где начало, где конец).

Автор: Ботаник 10.5.2007, 18:14

Не прав. Я удалил Паскаль со своего компьютера и не могу проверить, но думаю эта программа, если и будет работать, то всегда будет выдавать ноль. Если подождёшь пару дней, я попробую найти у себя Паскаль и скину тебе работающую программу.

Автор: Ботаник 11.5.2007, 4:37

Program main;
Var
k, n : Integer;
y : real;
Begin
k := 0;
For n := -100 To 100 do
Begin
y := (n * n - 5 * n + 6) / (2 * n - 1);
If (Int(y) = y) Then k := k + 1;
End;
WriteLn('k=',k);
End.

Автор: DeMoN 911 11.5.2007, 17:49

Всем огромное спасибо за помощь!

Автор: AlexDemche 12.5.2007, 19:25

Предлагаю более эффективный алгоритм сложности O(1):