Showing posts with label year level using case statement in turbo pascal. Show all posts
Showing posts with label year level using case statement in turbo pascal. Show all posts

Tuesday, August 30, 2016

Year Level Using Case Statement in Turbo Pascal

A simple program that I wrote that will ask the user to give its year level they belong using case statement in Turbo Pascal. The code is very simple and easy to understand.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
 
My mobile number here in the Philippines is 09173084360.
  




Sample Program Output


Program Listing

Program High_School;
Uses WinCrt;

Var
Year : Integer;

Begin
 Clrscr;
 Writeln;
 Write('Give Year Level : ');
 readln(Year);

 Case Year Of

    1: Writeln(' You are belong to Freshmen');
    2: Writeln(' You are belong to Sophomore');
    3: Writeln(' You are belong to Junior');
    4: Writeln('  You are belong to Senior');
  Else
     Writeln(' Out of School ');
 End;
 Readln;

End.