Zadatak

• 2Ovo se svidja korisnicima: ivance95, Srki94
  
  Registruj se da bi pohvalio/la poruku!

Odlucio sam da napravim program u pascalu koji na osnovu unetih N brojeva racuna prosek ucenika na kraju godine. Ideju imam,napravio sam blok dijagram algoritam na papiru,ali mi u pascalu sam kod ne ide nikako.
ako bi neko znao da pomogne bio bih mu zahvalan isao sam samo do 4 predmeta, posto mislim da bi i sa vise (13 14 15) bila ista situacija. Evo BDA:

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

Treba ti prosek za svaki predmet?
Ono sto na papiru ne odgovara je sto uvek dodajes na "S" vrednost "a"
a onda na kraju delis sa N. Ako ti treba samo jedan prosek koji obuhvata prosek iz svih predmeta svih ucenika onda delis sa N*4
A ako ti treba za svaki predmet, onda moras imati posebno sumu za svaki predmet
Npr.
Smatematika
Soet
i slicno

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

Jedno pitanje... Da li korisnik unosi sve ocene iz nekog predmeta, ili samo zakljucne ocene?

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

samo zakljucne

• 2Ovo se svidja korisnicima: NIx Car, Srki94
  
  Registruj se da bi pohvalio/la poruku!

Napisano: 17 Dec 2011 16:36

program Project2; {$APPTYPE CONSOLE} uses   SysUtils;   var odgovor:char;       predmet:string;       ocena,zbir,n:integer;       prosek:real; begin n:=0; zbir:=0; REPEAT Writeln('Unosite ocenu iz?'); readln(predmet); writeln('Unesite zakljucnu ocenu iz ',predmet); readln(ocena); zbir:=zbir+ocena; n:=n+1; writeln('Zelite da unesete ocenu iz jos nekog predmeta?(D/N)'); readln(odgovor); UNTIL (odgovor='n') or (odgovor='N'); prosek:=zbir/n; writeln(prosek:0:2); readln end.
Uradio sam pomocu repeat, a mozes i na kraju da ubacis CASE naredbu koja ce ispisati uspeh(nedovolja, dovoljan...) u zavisnosti od proseka.

Dopuna: 17 Dec 2011 16:49

program Project2; {$APPTYPE CONSOLE} uses   SysUtils;   var odgovor,odg1:char;       predmet:string;       ocena,zbir,n,i:integer;       prosek:real; begin n:=0; zbir:=0; REPEAT Writeln('Unosite ocenu iz?'); readln(predmet); writeln('Unesite zakljucnu ocenu iz ',predmet); readln(ocena); zbir:=zbir+ocena; n:=n+1; writeln('Zelite da unesete ocenu iz jos nekog predmeta?(D/N)'); readln(odgovor); UNTIL (odgovor='n') or (odgovor='N'); prosek:=zbir/n; writeln(prosek:0:2);  i := ROUND(10*prosek);   CASE i OF   0..14:Writeln('nedovoljan');   15..24:Writeln('dovoljan');   25..34:Writeln('dobar');   35..44:Writeln('vrlo dobar');   45..50:Writeln('odlican'); end; readln end.

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

sutra cu probati. Sad idem u BG. Hvala ti ivance jbt moracu 2 piva da ti kupim kad budes dosao u NS

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

E iskreno da me ubijes ali ja nemam pojma sta si ti tamo ispisao na onom papiru... Svracje noge majke mi . A bas sam zainteresovan za zadatak, daj neko citljivije izdanje

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

jel ima neki program (makar placeni) preko kog mogu da crtam algoritam?

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

Naravno da ima.

Besplatan: [Link mogu videti samo ulogovani korisnici]

• 1Ovo se svidja korisniku: NIx Car
  
  Registruj se da bi pohvalio/la poruku!

NIx Car ::jel ima neki program (makar placeni) preko kog mogu da crtam algoritam?
A koji to program danas placamo(cast izuzecima)?