Programalama > PASCAL

program ogrenci_not;

uses crt;

var
  
is:string;
  
ortalama,n1,n2,n3,top:integer;

begin

 clrscr;

 write('˜sminizi Giriniz   : ');readln(is);

 writeln;

 textcolor(red);

 write('1. Notunuzu Giriniz: ');readln(n1);

 writeln;

 textcolor(green);

 write('2. Notunuzu Giriniz: ');

 readln(n2);

 writeln;

 textcolor(blue);

 write('3. Notunuzu Giriniz: ');

 readln(n3);

 top:=n1+n2+n3;

 ortalama:=top div  3;

 textcolor(white+blink);

 writeln('----------------------------------------------');

 textcolor(yellow);

 writeln(is,'- Not Ortalaman: ',ortalama);

 textcolor(red);

 writeln;

 writeln;

 writeln;

 if 45>ortalama then

 writeln('KALDIN');

 if 45<ortalama then

 writeln('GECTiN');

readln;

end.


ahmet burak yavuzer
burak_yavuzer@hotmail.com