Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

одномерные массивы [D7, XP]

Страницы: < 1 2 3 >
Nostalgia © (2008-12-27 21:17:00)
Здравствуйте, уважаемые эксперты!
проблема с задачкой на одномерные массивы.она звучит так: вычислить среднее арифметическое значение и количество элементов массива А(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.

Virgo_Style (2008-12-28 00:01:00) [21]
Внутрь цикла попало то, что должно быть снаружи.

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

Игорь Шевченко (2008-12-27 23:05:00) [22]

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

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

{RASkov} (2008-12-27 22:54:00) [23]
> [19] Nostalgia © (27.12.08 21:50)
> если бы это мне было не надо, то сюда я бы не обращалась

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

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

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

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

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

Nostalgia (2008-12-27 22:51:00) [24]
Удалено модератором
Примечание: Offtopic

Nostalgia (2008-12-27 22:48:00) [25]
Удалено модератором
Примечание: Offtopic

Тын-Дын (2008-12-27 22:37:00) [26]
Удалено модератором

Игорь Шевченко (2008-12-27 22:24:00) [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.

iZeqfreed (2008-12-27 22:11:00) [28]
И правда, если нормально отформатировать, то сразу видно в чем проблема :)

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

Johnmen (2008-12-27 22:00:00) [29]
Удалено модератором

Сергей М. (2008-12-27 21:57:00) [30]
Удалено модератором

Johnmen (2008-12-27 21:55:00) [31]
Удалено модератором

Сергей М. (2008-12-27 21:54:00) [32]

> Nostalgia

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

Johnmen (2008-12-27 21:51:00) [33]
Читай внимательно, до просветления [5] и [6].
Потом приходи...

Сергей М. (2008-12-27 21:50:00) [34]
Если было бы надо , ты бы не кочевряжилась, а выполнила бы [5],[6].
Причем безобразно оформленные шматки кода ты бросаешь в форум с завидной регулярностью.

Nostalgia (2008-12-27 21:50:00) [35]
если бы это мне было не надо, то сюда я бы не обращалась

Johnmen (2008-12-27 21:50:00) [36]
Уж да...

Nostalgia (2008-12-27 21:49:00) [37]
да уж...

Johnmen (2008-12-27 21:49:00) [38]

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

Мы это видим.

Nostalgia (2008-12-27 21:48:00) [39]
почему это мне не надо???

Johnmen (2008-12-27 21:48:00) [40]

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

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

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »