Question

Napisz program, który będzie wyświetlał informacje, czy wciśnięta litera jest samogłoską czy też nie, oraz komunikat, że wciśnięty znak nie jest literą.

Zadanie domowe na poniedziałek, chodzi o programowanie w programie Free Pascal. Daję naj, tylko proszę, pomóżcie mi.

Answer 1

Const Vowels = ['e', 'y', 'u', 'i', 'o', 'a'];
Consonants = ['a'..'z']-Vowels;

Type TCharType = (ctVowel, ctConsonant, ctOther);
Const CharNames: Array[TCharType] of String = ('vowel', 'consonant', 'other');

Function getCharType(Ch: Char): TCharType;
Begin
  if (Ch in ['A'..'Z']) Then
   Ch := chr(ord(Ch)+32);

  if (Ch in Vowels) Then
   Exit(ctVowel);
  if (Ch in Consonants) Then
   Exit(ctConsonant);

  Exit(ctOther);
End;

Var Ch: Char;
Begin
  Readln(Ch);
  Writeln(CharNames[getCharType(Ch)]);
End.

 

Tutaj wersja łopatologiczna:

http://ideone.com/fetrAX