Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Posts: 1Member
I am a freshman in high school and new to pascal. for school we have to make a program that reads what character on the phone pad a user enters and writes what that character would be as a number, like B would be 1, so on...........can someone plz help im no good with case statements

• Posts: 1,621Member
: I am a freshman in high school and new to pascal. for school we have to make a program that reads what character on the phone pad a user enters and writes what that character would be as a number, like B would be 1, so on...........can someone plz help im no good with case statements

Here's a somewhat similar example that you should be able to adapt:

[code]
case UpCase(Ch) of
// Matches any characters between 0 and 9
'0'..'9': WriteLn('Numeral');

// Matches only the characters supplied
'A', 'E', 'I', 'O', 'U': WriteLn('Vowel');

// Matches anything that isn't matched above
else
WriteLn('Consonant');
end;
[/code]

BTW, unless you live in another country where your phones are different, the 1 button doesn't have any letters associated with it. So the B actually corresponds to the 2 button. Might want to double check that before you write any code
• Posts: 757Member
: I am a freshman in high school and new to pascal. for school we have to make a program that reads what character on the phone pad a user enters and writes what that character would be as a number, like B would be 1, so on...........can someone plz help im no good with case statements
:

[code]
VAR
Letter : Char;
Number : ShortInt;
Begin
Letter := UpCase(Readkey); { Turn the letter to upper case }
Case Letter Of
'A'..'C' : Number := 1;
(* Add the middle ones in here *)
'M'..'O' : Number := 5;
'P',
'R'..'S' : Number := 6; { Remember, no letter "Q" }
(* and add the rest in here *)
ELSE Number := -1; { If they enter "Q" or "Z", return -1 }
END;
WriteLn('The Letter "',Letter,'" corresponds to the number "',