IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

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


Гость






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


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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




--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Пробовала,но не получается! Я по Pascal если мягко сказать "чайник"! Кто может помогите!!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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

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.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Да чего мне разбираться я всё равно ничего не понимаю!!! Я решить то пытаюсь но у меня ничего не получается
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Klem4,вот смотри я пыталась решать,скажите,что у меня не правильно:
Var x,s:integer;
begin
Clrscr;
writeln('Введите число:');
readln(x);
repeat writeln('введите число:');
readln(x);untilx<>0;
s:=s*x;
writeln('Произведение всех чисел=',s);
readln;
end.

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



Сообщение отредактировано: мисс_граффити -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


1. произведение надо считать внутри цикла.
2. убери
writeln('Введите число:');
readln(x);
до цикла - этот кусочек должен быть только в цикле
3. в начале программы сделай s:=1
4. until x=0


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Может быть ты мне,мисс_граффити,поможешь с моей задачей?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Помочь и сделать ЗА ТЕБЯ - разные вещи... Тебе не кажется?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






Мисс_граффити,ты можешь мне полностью задачу написать? А то я уже замучалась
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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


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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Гость






Народ, значит у неё задача с послеусловием, решите ей как с послеусловием может так и надо!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


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

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


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 3.12.2021 1:12
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name