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

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

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

> Помогите пожалуйста, очень срочно!, Снова про массивы
goosberry
сообщение 15.07.2008 16:57
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Женский

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


Дан массив из 10 целых элементов. Найти среднее арифметическое отрицательных элементов.
Вот что у меня получилось
 
program zadacha;
uses crt;
var: x:array [1..10] of integer;
i,S,K:integer;
Sr:real;
begin clrscr;
write ('Введите массив');
for i:=1 to 10 do readln (x[i]);
for i:=1 to 10 do if x[i]<0 then begin K:=K+1; S:=S+x[i];end;
sr:=s/k;
write (Sr);
readkey;
end.


Только ответ какой-то не верный получается. В чём причина?
И ещё не подскажите как записать эту задачу в виде блок-схемы?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 6)
klem4
сообщение 15.07.2008 17:02
Сообщение #2


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

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

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


Обнули сумму и счетчик перед циклом, не все компиляторы обнуляют переменные самостоятельно, ну и перед расчетом sr не забудь проверить не равно ли k нулю, иначе программа будет вылетать при отсутствии отрицательных элементов. Вроде все.

Сообщение отредактировано: klem4 - 15.07.2008 17:02


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


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Женский

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


Цитата(klem4 @ 15.07.2008 18:02) *

Обнули сумму и счетчик перед циклом, не все компиляторы обнуляют переменные самостоятельно, ну и перед расчетом sr не забудь проверить не равно ли k нулю, иначе программа будет вылетать при отсутствии отрицательных элементов. Вроде все.

Да я уже пробовала, что-то не очень помогает...
В большинстве случаев результат программы получается меньше, чем по моим рассчётам без компьютера.

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


Гость






Цитата
В большинстве случаев результат программы получается меньше, чем по моим рассчётам без компьютера.
Приводи данные, с которыми проверяется программа, и свои расчеты, что ты ХОЧЕШЬ видеть на выходе, посмотрим, где неправильно. Иначе это - "переливание из пустого в порожнее"...
 К началу страницы 
+ Ответить 
goosberry
сообщение 15.07.2008 17:14
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Женский

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


О, кажись заработало....
klem4, volvo спасибо за участие.
volvo просто у меня уже голова квадратная... завтра экзамен
А никто не знает как эту задачу в виде Блок-схемы записать???

Сообщение отредактировано: goosberry - 15.07.2008 17:16
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 15.07.2008 17:24
Сообщение #6


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

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

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


Программа построения блок-схем

В следующий раз,пожалуйста, называй тему более информативно.


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


Новичок
*

Группа: Пользователи
Сообщений: 40
Пол: Женский

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


Цитата(klem4 @ 15.07.2008 18:24) *

Программа построения блок-схем

В следующий раз,пожалуйста, называй тему более информативно.

Спасибо большое!
В следующий раз над названием подумаю получше!!! smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 



- Текстовая версия 20.06.2025 7:00
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"