PASCAL

pascal case

Programming Case Types:

	1. camelCase
    2. PascalCase
    3. snake_case
    4. kebab-case
    5. UPPERCASE (or SCREAMCASE)
    
    you can also mix...
    
    	e.g. SCREAM_SNAKE_CASE
    	e.g. Pascal-Kebab-Case

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

case of pascal

Program checkCase;
Var grade: char;
Begin
    grade := 'A';
    Case grade Of
        'A' : Writeln('Excellent!');
        'B', 'C': Writeln('Well done');
        'D' : Writeln('You passed');
        'F' : Writeln('Better try again');
    End;
    Writeln('Your grade is  ', grade );
end.

pascal case example

program casexemple;
uses crt;
var ch:integer;
begin
    write('Your choice:');
    read(ch);
    case ch of
     1:write('Your choice is',ch);
     2:write('Your choice is',ch);
     3:write('Your choice is',ch);
     4:write('Your choice is',ch);
    end;
   
end.