Jedan zadatak iz Paskala (molim, pomoziteee)

Jedan zadatak iz Paskala (molim, pomoziteee)

offline
  • tanna 
  • Novi MyCity građanin
  • Pridružio: 17 Jul 2009
  • Poruke: 5

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

Napisati program koji racuna srednju vrednost unetih brojeva.


Unapred hvala. :-)



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 15 Maj 2006
  • Poruke: 333
  • Gde živiš: Babušnica

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 Very Happy



offline
  • Pridružio: 30 Dec 2007
  • Poruke: 4759
  • Gde živiš: Niš

treba dodatno da se definiše Very Happy

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.... Wink

offline
  • tanna 
  • Novi MyCity građanin
  • Pridružio: 17 Jul 2009
  • Poruke: 5

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.

offline
  • Software developer
  • Pridružio: 06 Sep 2005
  • Poruke: 3800
  • Gde živiš: Beograd

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.

offline
  • tanna 
  • Novi MyCity građanin
  • Pridružio: 17 Jul 2009
  • Poruke: 5

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

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! Smile

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

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.

offline
  • PHP Developer
  • Pridružio: 02 Okt 2005
  • Poruke: 546

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.

Ko je trenutno na forumu
 

Ukupno su 795 korisnika na forumu :: 40 registrovanih, 4 sakrivenih i 751 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., amaterSRB, aramis s, Arhiv, bato, caesar, dragoljub11987, elenemste, FOX, gzoki, havoc995, HrcAk47, ILGromovnik, indja, Konda, Marko Marković, MegaVLAdaR, mercedesamg, milos.cbr, Miskohd, Mlav, nenad81, Pakito93, Panonsky, r77adder, repac, saputnik plavetnila, Snorks, srecko81, Srki94, ss10, stegonosa, theNedjeljko, tomigun, Toni, Toper, trajkoni018, vathra, Vlad000, YU-UKI