[Sasha_Z565]

Помогите!!!
1.Вычислить количество нечётных значений функции;
2.Найти сумму значений функции.
(задание в архиве)

Админ: читаем правила по оформлению заголовков, а также про дубли тем на форуме!

[Mrak]

а чего не получается-то?

[Sasha_Z565]

как вычислить количество нечётных значений функции???

[Bargest]

Вычислить функцию в заданных точках, и проверить, является ли это значение нечетным. (с) КЭП.
И писать надо без обмана: "Сделайте мне ДЗ, мне лень потратить час и разобраться!", а не "Помогите". Причем писать либо в теме "Работа", либо в "Код на шару".

[xdessx]

Забей пацан они мне тоже не помогали, просил друга, так что не теряй время

[NumLock]

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

мне тоже не помогали

да, а это?

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

Спасибо!!!!!! 5 получил

sorry for offtop

[Mrak]

сначало это
http://www.delphisources.ru/pages/forum_rules.html
потом в спец раздел

и будет тебе счастье!

[xdessx]

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

да, а это?

Я же написал что друг помог, просто чтобы вы не расстраивались написал спасибо

[Страдалецъ]

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

Я же написал что друг помог, просто чтобы вы не расстраивались написал спасибо

Вот ведь досада. А я расстроился теперь кушать не могу.
А по теме вопроса - есть функция odd () которая определяет четное или нечетное число. Вот и прогоняйте через нее результат выполнения вашей функции и накапливайте счетчик в случае истины.

[lmikle]

Сообщение от Страдалецъ

Вот ведь досада. А я расстроился теперь кушать не могу.
А по теме вопроса - есть функция odd () которая определяет четное или нечетное число. Вот и прогоняйте через нее результат выполнения вашей функции и накапливайте счетчик в случае истины.

Ежыг Можно красивее:

Код:

function MyFunc(SomeParams : Integer) : Integer;
begin
...
end;

...

Cnt := 0;
For I := 1 To N Do
  Cnt := Cnt + Abs((MyFunc(I) mod 2));
...

И odd и if и инкремент в одной строчке
Для четного не подойдет, а вот для нечетного - вполне

[NumLock]

для четного xor 1 с результатом mod