Programalama > PASCAL


Ort. 0
Puan ver:
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


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 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.