Pomoc s Pascalom

Lucka99

Ahojte, dostala som v škole úlohu z Pascala, ktorá znie:
Vytvorte program, ktorý vyhodnotí zápočtovú písomku študentov v štud. skupine. Je daný počet študentov v skupine, výsledná známka (1-4) každého zo žiakov(bez udania mena). Určite počty žiakov klasifikovaných jednotlivými známkami a priemer celej skupiny.

Zadanie vypracujte nasledovne:

1. Vykonajte analýzu všetkých potrebných vstupných a výstupných premenných. Stanovte ich dátový typ.

2. Zostavte štruktogram.

3. Zostrojte program v Pascale.

Vedeli by ste mi s tým niekto pomôcť, prosím? V IT som antitalent.

Ďakujem veľmi pekne

neutronmind

No, takto nejak by mohol vyzerat ten program v Pascale, ostatne hadam zvladnes sama.

Kód: Vybrať všetko

program lucka;
var
znamky: array[1..4] of integer;
I, N, znamka, sucet: integer;
priemer: real;
begin

for I:=1 to 4 do
znamky[I]:=0;

write('Zadajte pocet ziakov: ');
readln(N);
for I:=1 to N do
begin
     readln(znamka);
     sucet:=sucet+znamka;
     znamky[znamka]:=znamky[znamka]+1;
end;
priemer:=sucet/N;
writeln('Priemer znamok je ', priemer:3:2);
for I:=1 to 4 do
writeln(I, ' dostali ', znamky[I], ' ziaci.');
readln;
end.

Lucka99

Ďakujem veľmi pekne, si strašne zlatýý. Ale mohla by som ťa poprosiť ak ťa to neotravuje aj o pomoc s tým ostatným.

Viem som hrozná, ale naozaj toto nie je pre moju hlavu

neutronmind

Nie je zac.

1. V poli znamky su ulozene pocty jednotlivych znamok, premenna I je riadiaca premenna cyklov, N je vstupna premenna, ktora obsahuje pocet vsetkych ziakov, znamka je taktiez vstupna premenna, ktorej hodnota je postupne kazda nacitana znamka, sucet oznacuje sucet vsetkych znamok. Tieto premenne su typu integer.
Premenna priemer je typu real a jej hodnota je priemer vsetkych znamok.

(btw. fakt neviem, ci to moze takto byt, alebo ako by to malo vyzerat

)

2. (strukturogram budes musiet nakreslit alebo pouzit na jeho tvorbu nejaky soft.

)

3. a tu je ten zdrojak, len pre uplnost

Kód: Vybrať všetko

program lucka; 
var 
znamky: array[1..4] of integer; 
I, N, znamka, sucet: integer; 
priemer: real; 
begin 

for I:=1 to 4 do 
znamky[I]:=0; 

write('Zadajte pocet ziakov: '); 
readln(N); 
for I:=1 to N do 
begin 
     readln(znamka); 
     sucet:=sucet+znamka; 
     znamky[znamka]:=znamky[znamka]+1; 
end; 
priemer:=sucet/N; 
writeln('Priemer znamok je ', priemer:3:2); 
for I:=1 to 4 do 
writeln(I, ' dostali ', znamky[I], ' ziaci.'); 
readln; 
end.

Lucka99

Díky, mno snáď by to mohlo byť ono.

A ako presne taký štruktúrogram vyzerá? A resp. do neho mám nakresliť čo, mam tam prepísať to čo si mi tu poslal?

neutronmind

Skus si precitat toto, http://student.ef.zu.szm.sk/prace/1_3.pdf , mas tam aj o vyvojovych diagramoch aj o strukturogramoch...

Lucka99

tak odovzdala som to čo som vytvorila a učiteľ mi to hneď vrátil že to je zlé

Teraz mám spraviť štruktogram, vývojový diagram a algoritmus, daného zadania, do zajtrajška

Vedela by mi s tým nejaká dobrá duša pomôcť, prosím.

johny_sk

len drobna technicka poznamka k zdrojovemu kodu (inak pekne spravene)

uz ked nulujes to pole, tak si na zaciatku vynuluj aj premennu sucet (bud predpokladaj, ze su v danom prekladaci nulove, alebo radsej nuluj obe)

premenna znamka by z uspornych dovodov mohla byt typu 1..4 (ale to uz je len taka poznamka, co by vrtal nas profak), pripadne by tam patrilo nejake osetrovanie podmienkami, aby sa nemohlo stat, ze niekto zada znamku mimo tohto intervalu ( -5 napriklad).

neutronmind

johny_sk - to su uz fakt banality

Ale b podstate mas pravdu.

Verim, ze tie upravy si dokazes spravit aj sama, je to otazka par sekund... A co konkretne na tom bolo zle? Ako si to predstavoval ucitel?