Помош со задача во паскал

[stk]

Здраво!

Ако може да ми помогнете околу задачава

Да се напише програма коа за три ученика кој содржат податоци за име, презиме, клас, бр во дневник и просечен успех, корисникот ќе ги пополни ведностите и на екран ќе го испише просечниот успех на класот.

ЗАдачава до пола ја знам да ја решам. Незнам кој е кодот за пресметување на просечниот успех на класот.

Оваа задача е од тип запис (RECORD).



Поздрав, СТК

 

[Aleks]

Просечниот успех на класот = Збирот на просечните успеси на учениците / бројот на ученици во класот

Постирај го кодот да видеме до каде си стасал ... тенка работа дека ќе ти ја решиме.

 

[stk]

program zad;

VAR ucenik1:record
ime:string;
prezime:string;
klas:integer;
br.vo.dnevnik:integer;
pr.uspeh:real;

end;

ucenik2:record
ime:string;
prezime:string;
klas:integer;
br.vo.dnevnik:integer;
pr.uspeh:real;
end;

ucenik3:record
ime:string;
prezime:string;
klas:integer;
br.vo.dnevnik:integer;
pr.uspeh:real;
end;

begin

with ucenik1 do

begin

write('vnesi ime);
readln(ime);
write('prezime');
readln(prezime);
write('klas');
readln(klas);
write('br vo dnevnik');
readln(br.vo.dnevnik);
write('prosecen uspeh');
readln(pr.uspeh);
end;

with ucenik2 do

begin
write('vnesi ime);
readln(ime);
write('prezime');
readln(prezime);
write('klas');
readln(klas);
write('br vo dnevnik');
readln(br.vo.dnevnik);
write('prosecen uspeh');
readln(pr.uspeh);
end;

with ucenik3 do

begin
write('vnesi ime);
readln(ime);
write('prezime');
readln(prezime);
write('klas');
readln(klas);
write('br vo dnevnik');
readln(br.vo.dnevnik);
write('prosecen uspeh');
readln(pr.uspeh);
end;

begin
...
...
...
... , тука мислам дека треба да се стави кодот за про. успех на класот...

 

[Luka]

program zadatak2;

type
  tucenik=record
    ime,prezime:string;
    klas,dnevnik:integer;
    uspeh:real;
  end;

var
  ucenik:array [1..30] of tucenik;
  u:real;
  n,i:integer;

begin
  write('broj: '); readln(n); writeln;
  u:=0;
  for i:=1 to n do
  with ucenik[i] do begin
    writeln('ucenik ',i);
    write('ime:     '); readln(ime);
    write('prezime: '); readln(prezime);
    write('klas:    '); readln(klas);
    write('dnevnik: '); readln(dnevnik);
    write('uspeh:   '); readln(uspeh);
    writeln;
    u:=u+uspeh;
  end;
  u:=u/n;
  writeln(u:5:2);
end.