IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Mobil Sohbet, Sohbet ve Sohbet Odaları




Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Temmuz 2014, 11:11   #1
Çevrimdışı
Öğrenci Not Programı (Öğrenci Transkript Programı)


-- Sponsor Baglantı --


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.

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.

__________________
şah hatayi'm muhabbete bakarım
ben doluyum ben dolana akarım


Maya
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Cevapla

Etiketler
programı, transkript, öğrenci

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Hursoft Parmak İzi Öğrenci Geçiş Programı (Veli SMS ile Bildirim) hozlem Bilim Dünyasından Son Haberler 0 07 Eylül 2012 12:57
Hursoft Okul Öğrenci Takip Programı hozlem Bilim Dünyasından Son Haberler 0 06 Eylül 2012 11:13
Pascal ile öğrenci not hesaplama programı Cheki C ve C++ 1 03 Temmuz 2012 09:20