одномерные массивы

← →
Nostalgia © (2008-12-27 21:17) [0]

Здравствуйте, уважаемые эксперты!
проблема с задачкой на одномерные массивы.она звучит так: вычислить среднее арифметическое значение и количество элементов массива А(n) (1<=n<=80), которое больше за заданное число F. //что нужно исправить в коде чтоб она правильно работала? потому что сейчас она выводит несколько средних арифметических значений и соответственно несколько значений количества элементов.
program lab14_z1_odn_massivu;
{$APPTYPE CONSOLE}
uses
SysUtils;
const n=5;
var A:array[1..n] of integer;
i:byte;
sra:real;
F:real;
kol:integer;
sum:real;
begin
writeln ("input F");
readln (F);
writeln ("input masiv A");
for i:=1 to n do
read (A[i]);
sum:=0;
kol:=0;
for i:=1 to n do
begin
if A[i]>F then
begin
sum:=sum+A[i];
kol:=kol+1;
sra:=sum/kol;
writeln ("sra=",sra," kol=",kol);
end;
end;
readln; readln
{ TODO -oUser -cConsole Main : Insert code here }
end.

← →
Сергей М. © (2008-12-27 21:28) [1]

Этот код кто писал ?

← →
Nostalgia © (2008-12-27 21:30) [2]

я. кто ж ещё

← →
Johnmen © (2008-12-27 21:32) [3]

> { TODO -oUser -cConsole Main : Insert code here }

вот здесь ошибка. надо переписать...

← →
Nostalgia © (2008-12-27 21:34) [4]

это же описание.....

← →
Сергей М. © (2008-12-27 21:36) [5]

> я

Тогда быль любезно - приведи его в порядок, прежде чем представлять на суд.
Читать это безобразие нет ни малейшего желания.
Совесть надо иметь элементарную ..

← →
Johnmen © (2008-12-27 21:36) [6]

Будь любезен, прояви уважение, оформи код в читабельном виде...

← →
Nostalgia © (2008-12-27 21:38) [7]

не понимаю. что здесь не читабельного?

← →
Сергей М. © (2008-12-27 21:41) [8]

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

← →
Johnmen © (2008-12-27 21:41) [9]

Так и запишем - выбросила в пропасть (с)

← →
Сергей М. © (2008-12-27 21:42) [10]

> Johnmen

Оно, наконец, определилось - отныне это она)
До этого был он)

← →
Сергей М. © (2008-12-27 21:46) [11]

> она выводит несколько

Сколько итераций цикла, в тело которого ты влупила writeln, столько будет и "несколько".

← →
Nostalgia © (2008-12-27 21:47) [12]

гг....это больше похоже не на форум программистов, а на форум , где только и ждут кого-то нового, чтобы его оскорбить

← →
Johnmen © (2008-12-27 21:47) [13]

> Сергей М. © (27.12.08 21:46) [11]

Да ладно, не напрягайся.... Ей же не надо ...:)

← →
Nostalgia © (2008-12-27 21:48) [14]

почему это мне не надо???

← →
Johnmen © (2008-12-27 21:48) [15]

> на форум , где только и ждут кого-то нового, чтобы его оскорбить

В точку! Молодчина!

← →
Johnmen © (2008-12-27 21:49) [16]

> почему это мне не надо???

Мы это видим.

← →
Nostalgia © (2008-12-27 21:49) [17]

да уж...

← →
Johnmen © (2008-12-27 21:50) [18]

Уж да...

← →
Nostalgia © (2008-12-27 21:50) [19]

если бы это мне было не надо, то сюда я бы не обращалась

← →
Сергей М. © (2008-12-27 21:50) [20]

Если было бы надо , ты бы не кочевряжилась, а выполнила бы [5],[6].
Причем безобразно оформленные шматки кода ты бросаешь в форум с завидной регулярностью.

← →
Johnmen © (2008-12-27 21:51) [21]

Читай внимательно, до просветления [5] и [6].
Потом приходи...

← →
Сергей М. © (2008-12-27 21:54) [22]

> Nostalgia

Собссно ответ ты уже получила.
Чего еще надобно ?

← →
Johnmen © (2008-12-27 21:55) [23]

Удалено модератором

← →
Сергей М. © (2008-12-27 21:57) [24]

Удалено модератором

← →
Johnmen © (2008-12-27 22:00) [25]

Удалено модератором

← →
iZeqfreed (2008-12-27 22:11) [26]

И правда, если нормально отформатировать, то сразу видно в чем проблема :)

* См. строчку с WriteLn.

← →
Игорь Шевченко © (2008-12-27 22:24) [27]

По-моему, так гораздо симпатичней:

program lab14_z1_odn_massivu; {$APPTYPE CONSOLE} uses SysUtils; const n=5; var A:array[1..n] of integer; i: byte; sra:real; F:real; kol: integer ; sum :real ; begin writeln ("input F"); readln ( F); writeln ("input masiv A") ; for i:=1 to n do read (A[i] ); sum:=0 ; kol :=0; for i:=1 to n do begin if A[ i]>F then begin sum :=sum+A[ i]; kol:= kol+1; sra:=sum/kol; writeln( "sra=",sra," kol=",kol); end; end; readln; readln { TODO -oUser -cConsole Main :Insert code here } end.

← →
Тын-Дын © (2008-12-27 22:37) [28]

Удалено модератором

Удалено модератором
Примечание: Offtopic

> [19] Nostalgia © (27.12.08 21:50)
> если бы это мне было не надо, то сюда я бы не обращалась

> не понимаю. что здесь не читабельного?

Большая проблема сделать код нормально отформатированным?
У тебя ошибка так и будет всю жизнь.... Из-за каши в голове и в коде...
Так и будешь по форумам ходить выпрашивать решения?
Ок, не хочешь у себя форматировать, не форматируй, никто против не будет, но сюда будь добра выкладывать понятный код, может и вопрос-то сам собой отпадет.... ибо из-за такой каши ошибки и сыпятся....

> [12] Nostalgia © (27.12.08 21:47)

Если ты сама из себя клоуна строишь, то почему бы и не посмеятся?
Тебя наверное не раз уже просили что-то сделать, что бы тебе же и помочь, но ты воспринимаешь это по другому.... как хочешь.)

С Наступающим Новым Годом! :) Желаю быть в новом году более понятливой и жизнь покажется проще)

> если бы это мне было не надо, то сюда я бы не обращалась

Вы путаете помощь в решении интересной проблемы и помощь отстающим студентам в выполнении их прямых обязанностей. В первом случае помощь обычно оказывается, во втором, боюсь, что вам стоит обратиться в сферу платных услуг. Эта сфера не здесь

Внутрь цикла попало то, что должно быть снаружи.

Кроме правил форматирования исходников, о чем тут уже неоднократно, рекомендую ознакомиться с возможностями отладчика.

← →
Sapersky (2008-12-28 00:18) [34]

Вообще-то студентка первого, если правильно помню, курса вполне может не знать, что такое правильное форматирование. Ну т.е. вообще не знать - не научили её.

Так вот, если коротко - операторы, которые выполняются в цикле или по условию, принято сдвигать вправо на 2-4 пробела, чтобы было чётко видно, где заканчивается зацикленный/условный блок.

Смотрим сюда:

for i:=1 to n do begin if A[i]>F then begin sum:=sum+A[i]; kol:=kol+1; sra:=sum/kol; writeln ("sra=",sra," kol=",kol); end; end;

Ну как, всё ещё непонятно, почему печатается несколько значений (и к тому же считаются они неправильно)?

Стандарт оформления кода полностью:
http://repository.delphikingdom.com/asp/viewitem.asp?catalogid=802

не понимаю. причем тут это?! от того что я их здвину код не заработает правильно!

> от того что я их здвину код не заработает правильно!

Заработает. Попробуй.

> от того что я их здвину код не заработает правильно!

Заработает. Попробуй.
не заработает

> Sapersky (28.12.08 00:18) [34]

> Стандарт оформления кода полностью:

- Вот все у вас как на параде, салфетку - туда, галстук - сюда, да "извините", да "пожалуйста-мерси", а так, чтобы по-настоящему,
- это нет. Мучаете сами себя, как при царском режиме.

--
Regards, LVT.

> не заработает

А оно нам надо?

одномерные массивы Найти похожие ветки