PASCAL- Not Ortalamasi Bulma




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 50>ortalama then

 

 writeln('KALDIN');

 

 if 50<ortalama then

 

 writeln('GECTiN');

 

readln;

 

end.

Google Plus ile Paylaş