const
n = 10;
var
a: array[1..n] of Real; // последовательность чисел
NumZero, i: Integer;
...
NumZero := 0;
i := 1;
while i < n do begin
if a * a[i+1] <= 0 then // проверка разности знаков
Inc(NumZero);
if Round(a * 1000) = 0 then // проверка на нуль
Inc(i, 2)
else
Inc(i);
end;
WriteLn(NumZero);
...
Задача
Некоторая функциональная зависимость задана последовательностью чисел. Нужно определить количество переходов через нуль. Т.е. если два соседних числа имеют разные знаки или одно из них нуль. Подскажите пожалуйста как реализовать эту задачу.
Цитата:
Originally posted by kudrjash
Некоторая функциональная зависимость задана последовательностью чисел. Нужно определить количество переходов через нуль. Т.е. если два соседних числа имеют разные знаки или одно из них нуль. Подскажите пожалуйста как реализовать эту задачу.
Некоторая функциональная зависимость задана последовательностью чисел. Нужно определить количество переходов через нуль. Т.е. если два соседних числа имеют разные знаки или одно из них нуль. Подскажите пожалуйста как реализовать эту задачу.
Кусок кода
Код: