Вычислить обратную величину произведения тех членов последовательности, для которых выполнено: 0<ai<1

@SkyR1p_ · Регистрация: 01.06.2015

Author24 — интернет-сервис помощи студентам

Доброго времени суток.
Такой вот у меня вопрос, в Pascal`e уже давно не чего не писал и все забыл, но тут задачка у меня:
Вычислить обратную величину произведения тех членов последовательности, для которых выполнено: 0<ai< 1.
буду очень благодарен.

@JokeR.BY · 10.06.2015, 10:52

Pascal

var
    i, n: Byte;
    ar: Array Of Extended;
    p: Extended = 1;
    isJustOne: Boolean = False;
begin
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0);
    SetLength(ar, n); Randomize;
    for i := 0 to n - 1 do
    begin
        ar[i] := Random() * 3;
        Write(' ', ar[i]:0:2);
        if ((0 < ar[i]) And (ar[i] < 1))
        then
        begin
            isJustOne := True;
            p := p * ar[i];
        end;
    end;
    WriteLn;
    if (isJustOne)
    then
        WriteLn('1/p=', (1 / p):0:2)
    else
        WriteLn('1/p=inf');
end.

@SkyR1p_ 0 / 0 / 0 Регистрация: 01.06.2015 Сообщений: 1
		1
	Вычислить обратную величину произведения тех членов последовательности, для которых выполнено: 0<ai<1 08.06.2015, 12:55. Показов 2707. Ответов 1 Метки нет (Все метки) Доброго времени суток. Такой вот у меня вопрос, в Pascal`e уже давно не чего не писал и все забыл, но тут задачка у меня: Вычислить обратную величину произведения тех членов последовательности, для которых выполнено: 0<ai< 1. буду очень благодарен. 0

	10.06.2015, 10:52

Опции темы

Вычислить обратную величину произведения тех членов последовательности, для которых выполнено: 0<ai<1

Решение