Pascal

Zdravím, neviem si rady s jedným programom čo sme dostali v škole. Ak by niekto pomohol budem len rada. ďakujem. NEVIEM SI RADY S PODMIENKOU .... a s tým že ak bude známka nižšia alebo vyššia ako má ... ďalej ťa to nepustí...
ZADANIE:

Triedny učiteľ robí tabuľku na klasifikačnú poradu. Pre každého žiaka zadáva 5 známok. Z nich má vypočítať priemernú známku a povedať, či je žiak PV, PVD, P, alebo N.
PV priemer <=1,5 a nemá známku 5
PVD 1,5>priemer <=2 a nemá známku 5
P priemer >=2 a nemá známku 5
N má známku 5
V triede má 5 žiakov.
Výpisom z programu bude meno žiaka, jeho 5 známok, priemerná známka žiaka a hodnotenie žiaka (PV,PVD...)

PRÁCA---->

program znamka;
uses crt;
var i,a,sucet,blbost: integer;
priem: real;
x:array [1..5] of integer;
begin
clrscr;
for a:= 1 to 5 do
begin
writeln('ziak ',a, '; zadajte 5 zn mok ziaka');
writeln(a,' --> ');
sucet:=0;
for i:=1 to 5 do
begin
write(i,'=');
read (x[i]);
sucet:=sucet+x[i];
priem:= sucet/5; begin
??????????????????????????????????????
?????????????????????????????
end;
writeln ('sucet je: ',sucet);
writeln ('priemern  zn mka je : ',priem:2:2);
writeln;
readln;
end;
end.

Podmienka sa v pascale pise
if vyraz then co sa ma stat (vyraz je true);
alebo
if vyraz then co sa ma stat (vyraz je true)
else co sa ma stat (vyraz je false);

popripade mozes pouzit aj logicke spojky and or not
if ((vyraz1) and (vyraz2)) then...

co sa toho PV ... tyka mozes pouzit string do ktoreho tie prospechy zapises a potom ich das len vypisat

Ďakujem za odpoveď, viem ako sa píšu podmienky , ale mne to jednoducho v programe nejde ...

1. kód na fórum píš do code (máš na to tlačítko jak píšeš príspevok)
2. chýba ti tam jeden end; za sucet:=sucet+x[i];
3. zadeklaruj si jednu premennu typu boolean (trebars mapatku:boolean) do ktorej uložíš či daný žiak má päťku alebo nie... potom za sucet:=0; vložíš
za read(x[i]) pridáš podmienku
a tie podmienky spravíš dáko takto:

tak: zdrojovy kod by mal byt v code.

co ti na tych podmienkach nejde? namiesto tych otaznikov tu hod kompletny zdrojovy kod.
k tvojmu zdrojaku: mas to dost cudne spravene. podla zadania som pochopil, ze mas zadat 5 znamok a on z toho urobi priemer. Mas tam zbytocne vela premennych a neviem na co si isla cez polia, ked to v zadani nieje. Ja by som to urobil takto:



teraz idem riesit to vetvenie:



za tie kody nerucim, pretoze som ich pisal teraz, tak neviem ci tam niesu chyby. A tie stupne (PVD...) si potom prepis, tiez neviem ako to presne je

ferdo:
- máš pravdu to pole je fakt zbytočné
- v tom zadaní má program opakujúci sa 5-krát (pre 5 žiakov), aj mne trvalo asi minútu kým som to pochopil..

k tvojmu kódu:
- prečo prospel dobre od 2 do 3.5 keď v zadaní je že iba viac ako 2 (logicky žiak ktorý má samé štvorky má priemer 4 ale prospieva.. neprospieval by iba keby dostal aj 5ku)
- != funguje v pascale? ja som vždy myslel že != je v c-čku a v pascale je <> (aj keď v pascale aj tak používam klauzu not (a=b)..)
- tým a!=5 hodnotíš či priemer sa nerovná 5, nie to, či daný žiak má 5, čo je dosť rozdiel, pretože pre napr. 1 1 1 1 5 sa a rozhodne nerovná 5 ale daný žiak podľa pravidiel neprospieva

Ďakujem !! .....
urobila som to tak ako mi radil nBXXL ... až na esteticé chyby to bolo tak ako má byť ... a preto tam mám pole, lebo v zadaní je že v triede je 5 žiakov ... a mám to také domotané lebo ja som celá domotaná z pascalu fakt pomohli ste mi ... ďakujem sa ochotu všetkým !!!!!

nBXXL
sorry, nevsimol som si, ze si napisal prispevok este predomnou
k tomu prospechu: ako som pisal, neviem ako to presne chodi a robil som to na rychlo.
!= mas pravdu to je iba pre cecko.
pre to overovanie som fakt napisal peknu blbost