Произведение чисел до первого введенного нуля Опции

[Вячеслав Л.]

Бесит уже , помогите найти ошибку. Вроде все правильно, не понимаю, почему не работает. Задание: произведение чисел до первого введенного нуля.

var
S:REAL;
I,N,A:INTEGER;
BEGIN
S:=1;
I:=1;
a:=1;
while a=0 do
begin
READLN(A);
S:=A*s;
I:=I+1;
end;
WRITELN('proizvedenie ravno ',S);
END.

[andriano]

Ты сначала присваиваешь переменной "a" единицу, а затем сразу начинаешь цикл, который будет выполняться лишь при условии, что a=0. Т.о. цикл не выполнится ни одного раза.
Советую либо заменить условие на a<>0, либо заменить конструкцию циклом типа repeat.

PS. Еще могу посоветовать оформлять код "лесенкой", а то очень трудно читать.

Сообщение отредактировано: andriano - 11.10.2009 14:14

[RathaR]

Бесит уже , помогите найти ошибку. Вроде все правильно, не понимаю, почему не работает. Задание: произведение чисел до первого введенного нуля.

var
S:REAL;
I,N,A:INTEGER;
BEGIN
S:=1;
I:=1;
a:=1;
while a=0 do
begin
READLN(A);
S:=A*s;
I:=I+1;
end;
WRITELN('proizvedenie ravno ',S);
END.

И если у тебя цыкл идёт по параметру a, то зачем тебе І? И к чему присваивать ей еденицу, и увеличивать при каждом прохождении цыкла...

Сообщение отредактировано: RathaR - 11.10.2009 15:05

[Lapp]

если у тебя цыкл идёт по параметру a, то зачем тебе І?

Я думаю, что это типа подсчет количества введенных чисел, сделан для типа в расчете на будущее применение. В нем нет никакого вреда, главное - то, о чем сказал andriano выше (неверное применение условия в цикле while).

[Вячеслав Л.]

Ага, спасибо, я исправил получилось вот так:

var
a,s:integer;
BEGIN
s:=1;
repeat
READLN(A);
if a=0 then writeln('proizvedenie pavno ',S) else S:=A*s;
until a=0;
END.

Я думаю, что это типа подсчет количества введенных чисел, сделан для типа в расчете на будущее применение.

Lapp, ты слишком высокого обо мне мнения , i просто тут оказалось случайно, так как начало было скопировано из другой программы

PS. Еще могу посоветовать оформлять код "лесенкой", а то очень трудно читать.

За совет спасибо, буду стараться писать лесенкой.

[Lapp]

i просто тут оказалось случайно, так как начало было скопировано из другой программы

Копипастить - моветон)). Нет большего вреда, чем от него при обучении. Пиши сам ручками, даже если и переписываешь. Научишься на порядок быстрее.

[Вячеслав Л.]

Копипастить - моветон)). Нет большего вреда, чем от него при обучении. Пиши сам ручками, даже если и переписываешь. Научишься на порядок быстрее.

Ладно, буду знать.

Сообщение отредактировано: Вячеслав Людской - 13.10.2009 19:29