Tekil Mesaj gösterimi
Alt 11 Temmuz 2014, 11:11   #1
Çevrimdışı
Swat
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Öğrenci Not Programı (Öğrenci Transkript Programı)




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.


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet