Версия для печати темы

Автор: Зайка 10.05.2007 21:31

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

Автор: klem4 10.05.2007 21:34

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

Автор: Зайка 10.05.2007 21:42

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

Автор: klem4 10.05.2007 21:52

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

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.

Автор: Зайка 10.05.2007 22:39

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

Автор: Гость 10.05.2007 23:00

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:03

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

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

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

Автор: Гость 10.05.2007 23:04

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

Автор: volvo 10.05.2007 23:06

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

Автор: Зайка 10.05.2007 23:11

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

Автор: klem4 10.05.2007 23:16

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

Автор: Гость 10.05.2007 23:31

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

Автор: мисс_граффити 11.05.2007 0:09

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

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