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

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

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

 
 Ответить  Открыть новую тему 
> поиск суммы положительных элементов после 2-го отрицательного
сообщение
Сообщение #1


Профи
****

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

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


дана последовательность из n целых чисел. найти сумму положительных элементов, расположенных после второго отрицательного. (с использованием цикла, не использовать массивы)

Сообщение отредактировано: 18192123 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


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

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

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


Как задана последовательность ? Массив ? Список ? Стек ?

Что уже готово ? Что не получается ?

Дурацкая привычка приходить, оставлять сухое задание (причем не полностью) и жадть пока тебе его кто-то решит, ты пойми, тебе здесь никто ничего недолжен, здесь не обитель добрых дел, а форум программистов.


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


Профи
****

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

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


Цитата(klem4 @ 26.10.2006 20:08) *

Как задана последовательность ? Массив ? Список ? Стек ?

Что уже готово ? Что не получается ?

Дурацкая привычка приходить, оставлять сухое задание (причем не полностью) и жадть пока тебе его кто-то решит, ты пойми, тебе здесь никто ничего недолжен, здесь не обитель добрых дел, а форум программистов.

что мне выдали,то я и предлагаю. И причем условие приведено полностью!!!!!!!!!!!!!!!!!!!!!!!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


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

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

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


мы счастливы.
а ты все задачи, что тебе дают, будешь сюда выкладывать, не попытавшись решить?
а комментарии вроде "помогите пожалуйста" не используешь, чтобы экономить наш траффик?

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


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


Профи
****

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

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


Цитата(мисс_граффити @ 26.10.2006 20:37) *

мы счастливы.
а ты все задачи, что тебе дают, будешь сюда выкладывать, не попытавшись решить?
а комментарии вроде "помогите пожалуйста" не используешь, чтобы экономить наш траффик?

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

можете не волноваться, не все!

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Профи
****

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

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


Цитата(klem4 @ 26.10.2006 20:08) *

Как задана последовательность ? Массив ? Список ? Стек ?

Что уже готово ? Что не получается ?

Дурацкая привычка приходить, оставлять сухое задание (причем не полностью) и жадть пока тебе его кто-то решит, ты пойми, тебе здесь никто ничего недолжен, здесь не обитель добрых дел, а форум программистов.


var n,x,y,s:integer;
begin
clrscr;
x:=0; { счетчик отриц. чисел}
y:=0; {счетчик полож. чисел }
s:=0;
begin
clrscr;
writeln ('vvedite n=');
repeat
readln (n);
if (n<0)and(x<=2) then x:=x+1;
if (n>0)and(x=2) then
begin
y:=y+1;
s:=s+n;
end;
until n=0
writeln ('s=',s);
readkey;
end.


теперь проблема решена!

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


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

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

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


Цитата(18192123 @ 27.10.2006 21:47)
s:=s+n;
проблема в том, что считается сумма всех положительных чисел

только положительных?
ты же прибавляешь к s все n...
тебе надо, чтобы это делалось внутри условного оператора. используй begin и end


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

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

 





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