Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi Pronova -- 25 Kasım 2013; 21:34:05 > |
Hızlı 
Bildirim
Pascal Hakkında Acil
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
http://pascalprogramlar.blogspot.com/2009/10/pascalda-gecti-kald-not-hesaplama.html
kod burda var kendine göre cok rahat değiştirmesi lazım kardeşinin -
sağ olun ama kod denendiğinde yanlış uyarısı veriyormuş -
function Not_Harf_Bul(Puan : integer):string;
var I : integer;
Harf : array[1..9] of string =('AA','BA','BB','CB','CC','DC','DD','FD','FF');
Sayi : array[1..9] of integer =(90,80,70,65,60,55,50,40,0);
begin
result := '?';
for I:=1 to HIGH(Sayi) do
begin
if Puan >= Sayi[I] then
begin
result := Harf[I];
exit;
end;
end;
end; // işlev sonu
örnek çağırma :
St := Not_Harf_Bul(45);
St := Not_Harf_Bul(degisken);
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
