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

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

1. sayfa

Pascal Hakkında Acil

Cevap Yaz

Pronova

12 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.

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

ahmetaltanizmir

12 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

12 yıl (155 mesaj)

Teğmen

Konu Sahibi

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

Bu mesaja 1 cevap geldi.

ISIS

12 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