Мастера 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.

Nostalgia (2008-12-28 13:38:00) [1]
нет.пусть они это скажут,а не ты

sniknik (2008-12-28 13:38:00) [2]
понятно все, и как тут хорошо выразился кто то -
Закрыто за бесперспективностью.
от себя - с трепом в потрепавку.

Johnmen (2008-12-28 13:36:00) [3]

> покажи мне такого человека ,который хочет знать, кроме тебя

Вон тот у стены, или вот этот, за столом. Видишь, как они хотят знать?

Nostalgia (2008-12-28 13:29:00) [4]
покажи мне такого человека ,который хочет знать, кроме тебя

Johnmen (2008-12-28 13:27:00) [5]

> Ты блондинко?---это вопрос, ответ на который я вам дам не
> сейчас и темболее не здесь.

Не надо кокетничать. Признавайтесь здесь и сейчас! Народ хочет знать!

Nostalgia (2008-12-28 13:23:00) [6]
> не отвечай за всех

У всех уже сложилось мнение о твоей ламерской упертости. Сказали, посоветовали, как найти ошибку. Нет уже скоро сутки будут как упирается.

время у меня пока ещё есть

Nostalgia (2008-12-28 13:22:00) [7]
>Кроме этого утверждения, мы не видим, что надо.---вот это, как видите, не вопрос.
>ЗЫ
Ты блондинко?---это вопрос, ответ на который я вам дам не сейчас и темболее не здесь.
и вообще, вы еще не сказали ни одной фразы по делу, кроме того, что соглашаетесь с другими(это касается Johnmen). задумайтесь, возможно вы зря здесь находитесь?

sniknik (2008-12-28 13:16:00) [8]
> не отвечай за всех
он за большинство... (есть, есть еще и среди нас "отщепенцы" потворствующие лентяям ;)).

когда человеку "надо" он что то для этого делает, а не только повторяет "мне надо", тем более после того как уже объяснили что, это не поможет. и + сказали что может помочь.

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

Johnmen (2008-12-28 13:08:00) [9]

> не отвечай за всех

Прошу прощения, но это вообще-то был вопрос, а не ответ.
Вопрос очень легко отличить от других типов предложений - у него в конце ставится такой специальный значок "?". Он называется знак вопроса.

Palladin (2008-12-28 13:08:00) [10]

> не отвечай за всех

У всех уже сложилось мнение о твоей ламерской упертости. Сказали, посоветовали, как найти ошибку. Нет уже скоро сутки будут как упирается.

Nostalgia (2008-12-28 13:01:00) [11]
> мне надо.

Кроме этого утверждения, мы не видим, что надо.

ЗЫ
Ты блондинко?

не отвечай за всех

Johnmen (2008-12-28 12:59:00) [12]

> мне надо.

Кроме этого утверждения, мы не видим, что надо.

ЗЫ
Ты блондинко?

Nostalgia (2008-12-28 12:58:00) [13]
мне надо.

Johnmen (2008-12-28 12:56:00) [14]

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

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

Leonid Troyanovsky (2008-12-28 12:56:00) [15]

> Sapersky (28.12.08 00:18) [34]

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

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

--
Regards, LVT.

Nostalgia (2008-12-28 12:52:00) [16]
> от того что я их здвину код не заработает правильно!

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

Palladin (2008-12-28 12:50:00) [17]

> Nostalgia © (28.12.08 12:40) [35]

Код нет. Голова заработает.

Johnmen (2008-12-28 12:46:00) [18]

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

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

Nostalgia (2008-12-28 12:40:00) [19]
не понимаю. причем тут это?! от того что я их здвину код не заработает правильно!

Sapersky (2008-12-28 00:18:00) [20]
Вообще-то студентка первого, если правильно помню, курса вполне может не знать, что такое правильное форматирование. Ну т.е. вообще не знать - не научили её.

Так вот, если коротко - операторы, которые выполняются в цикле или по условию, принято сдвигать вправо на 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

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

Наверх

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