Procedura aritmeticka sredina

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Treba da resim ovaj zadatak.
Napisati proceduru koja izracunava aritmeticku sredinu n celih brojeva.

Da li neko zna kako bi izgledala ova procedura?

Unapred hvala.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ne znam pascal, ali evo ti pseudo kod.

Saberes sve brojeve kroz koje prolazis kroz petlju.
U petlji stavis da ti se inkrementuje jedna promenljiva.
Posle petlje, podelis to sto si sabrao sa tom inkremenitranom vrednoscu i to je to...

Ako si trazio teoretsko , za prakticno, cekaj nekog pascal oriented programera.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Za prakticno ne cekaj previse . Dobio si pseudo kod, a ti sad po njemu radi! Ako negde zapnes napisi ovde do gde si stigao i posuj kod pa ce neko da ga doradi/preradi, ali samo nemoj molim te ocekivati da ce neko resavati domaci za tebe .

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako mislis u proceduru da uneses niz nepoznate velicine?
Ako ga budes uneo kao dinamicki array, onda ti je velicina matrice ujedno i broj kojim treba da podelis. Zbir elemenata matrice odradi iteriranjem (petlja), kao sto ti je snoop objasnio.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

bobby mozda i ne mora da bude niz... U zadatku nigde ne pise da se unos mora uraditi pre procedure, tako da program moze da lici na ovako nesto:
program aritm_sred; begin procedure neka_proc(...); writeln(rezultat); end;

Tako da ukoliko unos radi isto iz procedure to ide u petlji od 1 do n i odmah se svi brojevi sabiraju i podele sa n i to je to. Jedino tako mi pada na pamet da se odradi bez dinamickih nizova, tj. dinamickog zauzimanja memorije posto se unaored ne zna broj n .

Jedino ako se zna da je n max 200 onda nije problem ni sa nizom .

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako se u zadatku kaze n celih brojeva, znaci da se taj broj n elemenata dobija i duzina niza je poznata. Tako da je najlakse uraditi sa array-om.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako je u pitanju TP, niz moze ovako da se prosledi funkciji:
{$R-} type   TIntArray = array [0..0] of Integer;   PIntArray = ^TIntArray; var   Niz: PIntArray; function AritmetickaSredina(pNiz: PIntArray; iCount: Integer): Real; var   I: Integer; begin   for I := 0 to iCount - 1 do     // clanu pristupas sa pNiz^[I] end; begin   // uzmes broj n (broj clanova niza);   GetMem(Niz, N * SizeOf(Integer));   // popunis niz (Niz^[I])   // prosledis niz funkciji AritmetickaSredina(Niz, N)   FreeMem(Niz, N * SizeOf(Integer)); end.

Vrlo lako se napravi i objekat koji bi automatski kreirao niz brinuo se o njemu kao sto u Delphiu radi TList.