Programalama > PASCAL

Etiketler: dersin, toplam, ortalaması

Ort. 0
Puan ver:
program ortalamalar;
uses crt;
label
     yukari, son;
type
    dersler   =  (matematik, fen, kimya);

type
    ogr_kayit = record
        no    : integer;
        ad    : string[20];
        soyad : string[20];
        sinav : array[1..3,1..3] of 0..100;
        ort   : array[1..3] of real;
    end;
var
   ogrenci    : array[1..10] of ogr_kayit;
   ders       : dersler;
   i , j, k   : integer;
   ch         : char;
begin
     clrscr;
     yukari:
     i := 1;
     with ogrenci[i] do
          begin
               write(i,'.ci ”§rencinin numarasn giriniz...>');
               readln(no);
               while ogrenci[i].no > 0 do
                      begin
                           {$R+}
                           write(i,'.ci Ӥrencinin ismini giriniz...>');
                           readln(ad);
                           write(i,'.ci Ӥrencinin soyismini giriniz...>');
                           readln(soyad);
                           no    := no;
                           ad    := ad;
                           soyad := soyad;
                           i     := i + 1;
                           for ders := matematik to kimya do
                               begin
                                    k := k + 1;
                                    for j := 1 to 3 do
                                        begin
                                             case ord(ders) of
                                                  0 : write('matematik ', j, '.ci svav notu giriniz...>');
                                                  1 : write('fen ', j, '.ci svav notu giriniz...>');
                                                  2 : write('kimya ', j, '.ci svav notu giriniz...>');
                                             end;
                                             readln(sinav[k,j]);
                                             sinav[k,j] := sinav[k,j];
                                             ort[k] := ort[k] + sinav[k,j];
                                        end;
                               end;
                      end;
               {$R-}
               writeln('Bilgisayara kayt edilmiŸtir.');
               writeln('Yeni kayt i‡in E ‡kmak i‡in H,ye basnz...');
               readln(ch);
               if ch in ['E','e'] then
                  begin
                       k := 0;
                       goto yukari;
                  end;
               clrscr;
               writeln('™gr_numaras':10, '˜sim':10, 'Soyisim':10, 'Matematik':10,'Fen':10,'Kimya':10);
               write(no:12,ad:10,soyad:10);
               write(sinav[1,1]:10,sinav[2,1]:10,sinav[3,1]:10);
               writeln;
               writeln(sinav[1,2]:42,sinav[2,2]:10,sinav[3,2]:10);
               writeln(sinav[1,3]:42,sinav[2,3]:10,sinav[3,3]:10);
               writeln('       TOPLAMLAR VE ORTALAMALAR :   --------------------------');
               writeln(ort[1]:42:2,ort[2]:10:2,ort[3]:10:2);
               writeln(ort[1]/3:42:2,ort[2]/3:10:2,ort[3]/3:10:2);
               goto son;
          end;
     son:
     readln;
end.


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.