[Swat]

Pascal programlama dilinde yazılmış bu programda bir fakülte, öğrenci bürosu işlemlerini bilgisayar desteğinde yürütmektedir. Her sınav dönemi sonunda M adet öğrenci, N adet ders alan bir sınıfa ilişkin öğrenci notları tablo halinde bilgisayara girilmektedir. Ayrıca, her öğrencinin adı, soyadı, okul numarası verilmektedir.
a) Her öğrencinin kaldığı ders sayısını, adı, soyadı ve okul numarasıyla yazdıran,
b) Bütün derslerden geçen öğrencilerin adını, soyadını, numarasını ve ders notları ortalamasını bulan,
c)Her ders için geçen ve kalan öğrenci sayısını bulan program.

Program Kodu:

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 
 
uses crt;
var
isim :array [1..100] of string[20];
numara :array [1..100] of string[6];
ders :array [1..100,1..100] of real;
ort:array [1..100] of real;
 
i,j,m,n,say :integer;
 
begin
clrscr;
write('Ogrenci sayisini giriniz.. :');
readln(m);
write('Ders sayisini giriniz.. :');
readln(n);
 
 
 
for i:=1 to m do
begin
writeln('Sira No :',i);
write('Adi Soyadi :');
readln(isim[i]);
write('Numarasi.. :');
readln(numara[i]);
writeln('');
end;
 
 
writeln('Notlari giriniz.. : ');
for i:=1 to m do
 for j:=1 to n do
  read(ders[i,j]);
 
readln;
writeln('');
writeln('Notlari 50den az olan ogrenci kalir.. ');
 
for i:=1 to m do (*a*)
begin
say:=0;
 for j:=1 to n do
  if (ders[i,j] < 50) then say:=say+1;
writeln(numara[i],' ', isim[i],' ' ,say, ' dersten kalmistir..');
writeln('');
end;
 
readln;
for i:=1 to m do (*b*)
begin
say:=0;ort[i]:=0;
 
for j:=1 to n do
begin
  if (ders[i,j] > 50) then say:=say+1;
  ort[i]:=ort[i]+ders[i,j];
end;
ort[i]:=ort[i]/n;
if say=n then
writeln(numara[i],' ', isim[i],' ders ortalamasi : ', ort[i]);
end;
 
readln;
for i:=1 to n do
begin
say:=0;
 for j:=1 to m do (*c*)
  if (ders[j,i] > 50) then say:=say+1;
writeln(i,'. dersten gecen ogrenci sayisi: ', say,' kalan ogrenci sayisi: ', (m-say));
end;
 
readln;
end.