Yeni bir forum kurmak | ©phpBB | Bedava yardımlaşma forumu | Suistimalı göstermek | Yetkinblog.com
ForumAlem

ForumAlem
 
AnasayfaAnasayfa  SSSSSS  AramaArama  Üye ListesiÜye Listesi  Kullanıcı GruplarıKullanıcı Grupları  Kayıt OlKayıt Ol  Giriş yapGiriş yap  

Paylaş | 
 

 HARF NOTUNU BULMA

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ToPrAk
Admin
Admin
avatar

Mesaj Sayısı : 457
Kayıt tarihi : 05/08/08
Yaş : 28
Nerden : KONYA

MesajKonu: HARF NOTUNU BULMA   Cuma Ağus. 08, 2008 6:01 pm

program harfnotu;
uses wincrt;
var
ognot:integer;
harfnot:char;
label tamam;
begin
write('Ogrencinin aldigi notu giriniz:');readln(ognot);
Case ognot of
0..44:harfnot:='E';
45..54:harfnot:='D';
55..69:harfnot:='C';
70..84:harfnot:='B';
85..100:harfnot:='A';
Else
writeln('Hatali giris yaptiniz!');
end; goto tamam;
writeln(ognot,' notunu alan ogrenci ',harfnot,' harfini alir'); tamam:
end.
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
 
HARF NOTUNU BULMA
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» Harf harf rüya tabiri

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
ForumAlem :: Programlama Dilleri :: PascaL-
Buraya geçin: