Klavyeden girilen notu beşlik sisteme çeviren program.

uses crt;
   var
   sayi:integer;
   begin
   write(‘notunuzu girin:’);readln(sayi);
   case sayi of
   0..24:writeln(‘0 ile kaldınız’);
   25..44:writeln(‘1 ile kaldınız’);
   45..54:writeln(‘2 ile geçtiniz’);
   55..69:writeln(‘3 ile geçtiniz’);
   70..84:writeln(‘4 ile geçtiniz’);
   85..100:writeln(‘5 ile geçtiniz’)
   else
   writeln(‘notunuzu 0-100 arasında giriniz’);
   end;

   readln;
   end.


Linkback: https://www.buyuknet.com/klavyeden-girilen-notu-beslik-sisteme-ceviren-program-t8228.0.html