Soru = Bir öğrencinin herhangi bir dersten aldığı notun harf karşılığını gösteren programı prosedürde yapınız.

Şekli :

Kodlar :

Procedure TForm1.Button1Click(Sender: TObject); 
var 
dnotu:byte;

Procedure dnot(drsnot:byte); 
begin 
Case drsnot of
0..24: showmessage('F');
25..44: showmessage('E');
45..54: showmessage('D');
55..69: showmessage('C');
70..84: showmessage('B');
85..100: showmessage('A');
else showmessage('Yanlış giriş');
end; 
end;

begin 
dnotu:=strtoint(inputbox('Not','Notunuzu giriniz',''));
dnot(dnotu);
end;

Çalışma Şekli: 

Klavyeden rakam karşılığı notumuzu giriyoruz. Program notumuzu bize harf karşılığını veriyor...