DeMoN 911
Сообщение
#2930 6.5.2007, 17:26
Подскажите, как правильно написать программу:
Условие: Найдите кол-во целых чисел, лежащих в интервале -100<=n<=100, при которых дробь
(n^2-5n+6)/(2n-1) является целым числом.
Ботаник
Сообщение
#2942 7.5.2007, 7:06
Выкладывайте свою программу, а мы постараемся поправить ошибки. Вы ведь уже что-то написали? Да?
DeMoN 911
Сообщение
#3075 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
Сообщение
#3083 9.5.2007, 18:05
Что-то я не поняла ничего... Зачем randomize? И почему у Вас в цикле ничего не вычисляется?
Я, вообще-то, давно программированием не занималась. Может, там что-то изменилось за последнее время...
Ботаник
Сообщение
#3089 9.5.2007, 20:06
Потому и не поняли, что понимать нечего. Просто набор операторов.
Ботаник
Сообщение
#3096 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
Сообщение
#3118 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
Сообщение
#3123 10.5.2007, 17:10
Цитата
if (j:=y)
По-моему, тут двоеточие не надо (это же не присваивание). И тело цикла должно же быть как-то ограничено (где начало, где конец).
Ботаник
Сообщение
#3129 10.5.2007, 18:14
Не прав. Я удалил Паскаль со своего компьютера и не могу проверить, но думаю эта программа, если и будет работать, то всегда будет выдавать ноль. Если подождёшь пару дней, я попробую найти у себя Паскаль и скину тебе работающую программу.
Ботаник
Сообщение
#3145 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
Сообщение
#3178 11.5.2007, 17:49
Всем огромное спасибо за помощь!
AlexDemche
Сообщение
#3229 12.5.2007, 19:25
Предлагаю более эффективный алгоритм сложности O(1):
Код
Program main;
Begin
WriteLn('k=8');
End.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста,
нажмите сюда.