Jedan zadatak iz Paskala (molim, pomoziteee)

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

Ako neko zna kako treba da se uradi ovaj zadatak, neka mi pomogne.

Napisati program koji racuna srednju vrednost unetih brojeva.


Unapred hvala. :-)

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

Znam ja i nije da neću da napišem rešenje nego ti treba prvo da smisliš sama kako da rešiš. Pođi od toga kako se računa srednja vrednost brojeva. Nije težak zadatak, razmisli malo

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

treba dodatno da se definiše

koliko brojeva ?
n brojeva pa u for petlji ?
ili da se unose brojevi dok se ne unese prazan string recimo ?

to je po formuli ?
(a1+a2+...+an)/n

sad malo nek razmisli....

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

pa znam ja kako se racuna srednja vrednost i sve to, al nije mi jasno sta sa tim N da radim, gde da ga stavim.
Nama je profesor rekao nesto kao da treba da ide FOR I:=1 TO N.
Onda pre toga trebam da stavim valjda READLN (N), al onda ne znam sta da stavim posle toga. Ne znam sta mi je I, sta mi je S, a sta N...

I da, N brojeva u FOR petlji.

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

Readln(n) - ucitaces koliko brojeva ce biti u tom nizu
Zatim pustis petlju
for i:=1 to n do begin - kazes da se n puta izvrsi sledece:
- ucitas broj u neku promeljivu recimo priv
- dodas taj broj na neku promenljivu gde cuvas sumu
ovime ces znaci ucitati n brojeva i sabrati ih.
Zatim izvan petlje treba da napises srednju vrednost , znaci sa writeln, ispises sumu/n i to je to.

Na tebi je da implementiras.
I - brojac
N -broj koliko ima brojeva u sumi
S- suma brojeva

to ti je jedan nacin.
Drugi ti je slican, ali radis u dve petlje, u prvoj ucitavas N brojeva, a u drugoj petlji ih sabiras(ali ih onda moras cuvati u nizu, ne mozes da imas jednu promenljivu priv), ali nema potrebe za tim, mozes i ovako.

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

e hvala. Uspela sam da ga uradim.
Uradila sam ga ovako i radi. Dobro radi.

PROGRAM PRVI;
VAR I,S,B,M:INTEGER;
A:REAL
BEGIN
WRITELN ('Koliko ima brojeva?');
READLN (M);
WRITELN ('Unesi',M,'brojeva');
FOR I:=1 TO M DO BEGIN
READLN (B);
S:=S+B;
A:=S/M;
END;
WRITELN ('resenje je',A);
READLN
END.


Hvala svima na pomoci!

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

Ima jedna greska:

S moras da postavis na nulu pre upita. Ako upotrebis neku varijablu bez da je prethodno inicijalizujes, onda ta varijabla moze sadrzati bilo koju vrednost koja se u tom momentu nasla u memoriji.

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

A=S/M; bi trebalo da ide iza petlje, jer je zapravo potrebno da se izračuna samo 1. Radi i ovako al troši više resursa, što za školski primer nije dobro.
Takodje treba proveriti sta ce se desiti ako neko unese 0 za M.