Pascal Hakkında Acil

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Pascal Hakkında Acil

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

3
Cevap 694
Tıklama 0
Öne Çıkarma

1. sayfa

Pascal Hakkında Acil

Cevap Yaz

Pronova

13 yıl (155 mesaj)

Teğmen

Konu Sahibi

Arkadaşlar pascalı tam bilmediğim için yapamadım. Kardeşimin dönem ödevi acaba elinizden geldiği kadarı ile yardım edebilirmisiniz? Soruya gelicek olursak;

Bir öğrencinin 2 vize ve 1 final notu girildiğinde notlarını harf cinsinden hesaplayan programı yazınız.

Not sistemi şu şekilde;

AA 4.00 90-100
BA 3.50 80-89
BB 3.00 70-79
CB 2.50 65-69
CC 2.00 60-64
DC 1.50 55-59
DD 1.00 50-54
FD 0.50 40-49
FF 0.00 0-39
F1, F2, F3 0.00 0

Şimdiden çok sağ olun.

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

< Bu mesaj bu kişi tarafından değiştirildi Pronova -- 25 Kasım 2013; 21:34:05 >

ahmetaltanizmir

13 yıl (99 mesaj)

Çavuş

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

Bu mesaja 1 cevap geldi.

Pronova

13 yıl (155 mesaj)

Teğmen

Konu Sahibi

sağ olun ama kod denendiğinde yanlış uyarısı veriyormuş

Bu mesaja 1 cevap geldi.

ISIS

13 yıl (778 mesaj)

Yüzbaşı

  
  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);

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Pascal Hakkında Acil