Re: CAN ANY ONE RE-DO THIS TO MAKE IT MORE EASYER?

[ Delphi Forum ] [ Delphi Tutorials -- by DelphiLand ]

Posted by vvv on September 29, 2003 at 21:57:37:

In Reply to: Re: CAN ANY ONE RE-DO THIS TO MAKE IT MORE EASYER? posted by webmaster Guido on March 30, 19103 at 21:47:26:

You could try:
procedure displayGrade(mark : integer);
type ma:set of byte=[0..49];
mb:set of byte=[50..64];
mc:set of byte=[65..79];
md:set of byte=[80..100];
var m1:ma;
m2:mb;
m3:mc;
m4:md;
begin
if mark in m1 then writeln('Fail') else
if mark in m2 then writeln('Pass') else
if mark in m3 then writeln('Credit') else
if mark in m4 then writeln('Honours');
else
writeln('invalid entry');
end; //case
end;

....