Új hozzászólás Aktív témák

• #1375 btotyi tag goldboy #1371

  Új Válasz 2006-12-13 18:17:27 #1375

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  btotyi

  tag

  válasz goldboy #1371 üzenetére

  Egy egyszerű megoldás.
  
  A magánhagzók felsorolását rád bízom. Azt, hogy üres stringet adtak-e meg azon felül pedig gyümölcsnevet illetve az egyéb hibákat nem ellenőrzi.
  
  
  program Project2;
  
  {$APPTYPE CONSOLE}
  
  uses
  SysUtils;
  
  Const
  MaganHangzok : set of char = ['a','á','e','é'.......];
  
  Var GyNev : String ;
  
  
  begin
     Write('Gyümölcs neve :');
     ReadLn(GyNev);
     if (GyNev[1] in MaganHangzok)
     then
       WriteLn('Magánhangzóval kezdődik')
     else
       WriteLn('Mássalhangzóval kezdődik');
  end.
  
  
  
  [Szerkesztve]

Új hozzászólás Aktív témák