![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
@lFi |
![]() ![]()
Сообщение
#1
|
|||
Гость ![]() |
Дано 11 переменных, нужно найти какие из них приблизительно равны арифметическому среднему переменных.
Вопрос в том как найти какие из них приблизительно равны арифметическому среднему. В самой программе я остановился вот где: program num;
uses crt;
const
n=11;
var
a:array[1..n] of integer;
i,k,s:integer;
m:real;
begin
clrscr;
writeln('Press key');
writeln;
clrscr;
for i:=1 to n do
begin
writeln('Enter ',i,' number ');
readln(a[i]);
end;
for i:=1 to n do
begin
s:=s+a[i]; k:=k+1;
end;
m:=s/k;
writeln;
writeln('arithmetic mean is ',m);
readkey;
end.
а дальше как не знаю ![]() ![]()
Сообщение отредактировано: Lapp - 21.06.2007 3:21 |
|||
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Введи какое-нибудь отклонение (epsilon), в пределах которого можно считать, что одно вещественное значение равно другому, и для каждого элемента массива делай проверку: если модуль разности элемента массива и среднего арифметического меньше заданного отклонения, то этот элемент приблизительно равен среднему...
|
compiler |
![]()
Сообщение
#3
|
Человек ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: ![]() ![]() ![]() |
и еще
for i:=1 to n do
begin
writeln('Enter ',i,' number ');
readln(a[i]);
end;
for i:=1 to n do
begin
s:=s+a[i]; k:=k+1;
end;
m:=s/k;
прекрасно заменяется на for i:=1 to n do begin
writeln('Enter ',i,' number ');
readln(a[i]);
s:=s+a[i];
end;
m:=s/i;
-------------------- Спасибо!
Удачи! |
мисс_граффити |
![]()
Сообщение
#4
|
![]() просто человек ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
m:=s/i;
так лучше не делать -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
compiler |
![]()
Сообщение
#5
|
Человек ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: ![]() ![]() ![]() |
так лучше не делать вместо i используем n (на всякий случай...), что нибудь еще?-------------------- Спасибо!
Удачи! |
![]() ![]() |
![]() |
Текстовая версия | 28.07.2025 19:13 |