Pascal Örnekleri 02(Case kullanımı)

Yazan: karflake | Tarih 31 Ekim 2008 | Yorum  Yorum Yok
BerbatKötüOrtaGüzelHarika Henüz puan verilmemiş
Loading ... Loading ...

'da Case kullanımıyla ilgili bir örnek.

PLAIN TEXT
DELPHI:
  1. uses crt;
  2. var
  3.   ads:string[20];
  4.   not1:integer;
  5. begin
  6.   clrscr;
  7.   readln(ads);
  8.   readln(not1);
  9.   write(not1,'   ');
  10.   case not1 of
  11.     85..100: write('A');
  12.     70..84: write('B');
  13.     55..69: write('C');
  14.     45..54: write('D');
  15.     0..44: write('E');
  16.   else
  17.     writeln('0 ile 100 arasi not giriniz!');
  18.   end;
  19.   readln;
  20. end.

Çok sevdim, başkalarıyla paylaşayım:
  • Google Bookmarks
  • Facebook
  • MySpace
  • TwitThis
  • del.icio.us
  • Digg
  • Live
  • YahooMyWeb
  • Technorati
  • StumbleUpon
Yazdır Yazdır | 605 Görüntülenme | Kategori: Pascal & Delphi & Delphi.NET | Trackback  Geri İzleme
Etiketler  Etiketler: , , , ,

Benzer Yazılar


Yorum Yap


(gerekli)

(gerekli,yayınlanmaz)




XHTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>