Question

pascal

napisz programik ktory obliczy srednia wazona wyswietli wynik i slownie jaka ocene uczen dostal

wagi ocen

sprawdzianik 10

odpowiedź, kartkówka, projekt – 5

daje naj prosze o pomoc z gory dzieeeeki;**

Answer 1

program sredniawazona;
uses crt;
var
  i,a,typ    : Byte;
  wagi : array[1..2]of integer;
  licznik, mianownik, wynik : real;
 
begin
  licznik:=0;
  mianownik:=0;
  write('Podaj wage dla sprawdzianu :');
  readln(wagi[1]);
  write('Podaj wage dla odp., kartkowki i projektu: ');
  readln(wagi[2]);
  ClrScr;
  write('Ile ocen chcesz wprowadzic: ');
  readln(i);
  ClrScr;

for i:=1 to i do
begin
  write('Podaj ocene: ');
  readln(a);
  write('Podaj typ oceny (1 - spr., 2 - pozostale): ');
  readln(typ);
 
  licznik:=(a*wagi[typ])+licznik;
  mianownik:=wagi[typ]+mianownik;
end;

wynik:=licznik/mianownik;

ClrScr;

write('Srednia wazona danego ucznia to: ');
writeln(wynik:2:2);

if (wynik>1) and (wynik<1.76) then writeln('Niedostateczny');
if (wynik>1.75) and (wynik<2.76) then writeln('Dopuszczajacy');
if (wynik>2.75) and (wynik<3.76) then writeln('Dostateczny');
if (wynik>3.75) and (wynik<4.76) then writeln('Dobry');
if (wynik>4.75) and (wynik<5.76) then writeln('Bardzo dobry');
if wynik>5.75 then writeln('Celujacy');
readln;
end.