|
Poslao: 17 Dec 2011 13:49
|
offline
- NIx Car
- Legendarni građanin
- Més que un club
- Glavni vokal @ Harpun
- Pridružio: 27 Feb 2009
- Poruke: 3898
- Gde živiš: Novi Sad,Klisa
|
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:
|
|
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
|
Poslao: 17 Dec 2011 14:42
|
offline
- N1k0l4
- Prijatelj foruma
- Pridružio: 06 Sep 2005
- Poruke: 3800
- Gde živiš: Beograd
|
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
|
|
|
|
|
|
|
Poslao: 17 Dec 2011 16:11
|
offline
- ivance95
- AMF pripravnik
- Pridružio: 04 Jul 2011
- Poruke: 5424
|
Jedno pitanje... Da li korisnik unosi sve ocene iz nekog predmeta, ili samo zakljucne ocene?
|
|
|
|
|
|
|
Poslao: 17 Dec 2011 16:14
|
offline
- NIx Car
- Legendarni građanin
- Més que un club
- Glavni vokal @ Harpun
- Pridružio: 27 Feb 2009
- Poruke: 3898
- Gde živiš: Novi Sad,Klisa
|
samo zakljucne
|
|
|
|
|
|
|
Poslao: 17 Dec 2011 16:49
|
offline
- ivance95
- AMF pripravnik
- Pridružio: 04 Jul 2011
- Poruke: 5424
|
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.
|
|
|
|
|
|
|
|
|
Poslao: 17 Dec 2011 21:17
|
offline
- Pridružio: 16 Feb 2011
- Poruke: 1630
- Gde živiš: Pancevo
|
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
|
|
|
|
|
|
|
Poslao: 18 Dec 2011 11:53
|
offline
- NIx Car
- Legendarni građanin
- Més que un club
- Glavni vokal @ Harpun
- Pridružio: 27 Feb 2009
- Poruke: 3898
- Gde živiš: Novi Sad,Klisa
|
jel ima neki program (makar placeni) preko kog mogu da crtam algoritam?
|
|
|
|
|
|
|
|
|
|
jbt moracu 2 piva da ti kupim kad budes dosao u NS 
