Смотрю вы тут задачи с циклами решаите помогите мне тоже!, Цикл с предусловием Опции

[Зайка]

помогите please решить небольшую задачку.Нужно написать программу, находящую произведение всех чисел,вводимых с клавиатуры.Программа заканчивает своё выполнение и выводит результат при вводе 0

[klem4]

А сама не пробовала сделать ? Задача очень простая ... + воспользуйся поиском (по словам "цикл", "задача на цикл", "сумма чисел" и т.д.), подобное решалось много раз ...

[Зайка]

Пробовала,но не получается! Я по Pascal если мягко сказать "чайник"! Кто может помогите!!

[klem4]

Вот разбирайся. Это с предусловием

uses crt;

var
  p, n: Integer;
begin
  clrscr;

  write('n = '); readln(n);

  P := 1;

  while (n <> 0) do begin
    P := P * n;
    write('n = '); readln(n);
  end;

  writeln('P = ', P); 

  readln;
end.

[Зайка]

Да чего мне разбираться я всё равно ничего не понимаю!!! Я решить то пытаюсь но у меня ничего не получается

[Гость]

Klem4,вот смотри я пыталась решать,скажите,что у меня не правильно:

Var x,s:integer;
begin
Clrscr;
writeln('Введите число:');
readln(x);
repeat writeln('введите число:');
readln(x);untilx<>0;
s:=s*x;
writeln('Произведение всех чисел=',s);
readln;
end.

М

тегами не забывай пользоваться... мисс_граффити

Сообщение отредактировано: мисс_граффити - 10.05.2007 23:01

[мисс_граффити]

1. произведение надо считать внутри цикла.
2. убери

writeln('Введите число:');
readln(x);

до цикла - этот кусочек должен быть только в цикле
3. в начале программы сделай s:=1
4. until x=0

[Гость]

Может быть ты мне,мисс_граффити,поможешь с моей задачей?

[volvo]

Помочь и сделать ЗА ТЕБЯ - разные вещи... Тебе не кажется?

[Зайка]

Мисс_граффити,ты можешь мне полностью задачу написать? А то я уже замучалась

[klem4]

1. произведение надо считать внутри цикла.

Юль, у нее ведь сказано, с предусловием По этому repeat .. until не катит ...

[Гость]

Народ, значит у неё задача с послеусловием, решите ей как с послеусловием может так и надо!

[мисс_граффити]

Гость, раздвоение личности?
о себе - и в третьем лице... оригинально ))

klem4, ты же ей с предусловием написал уже.
мне показалось, что она еще и с постусловием захотела сделать...