Zgadywanie płci

Teoria

Dostałem ostatnio ciekawe zadanie od swojego sora od informatyki. Chodziło o napisanie prostego programu, który pyta o imie i na jego podstawie zgaduje płeć. Pomyślałem sobie - baza danych wszystkich imion? Nie. To zbyt pracochłonne.

Przypomniałem  sobie, że dawno temu (około 1990) widziałem coś takiego w starym piśmie "Komputer". Program sprawdzał, jaka litera znajduje się na końcu imienia. Jeśli jest to a to imię jest żeńskie (wszystkie żeńskie imiona kończą się na a), w przeciwnym wypadku jest to imię męskie.

Znalazłem jednak jeden wyjątek - "Kuba" - to imię męskie które kończy się na a (właściwie to tylko zdrobnienie od Jakub). Jeśli ktoś wpadnie na jakieś inne wyjątki to proszę o maila.

Poniżej znajduje się program w Turbo Pascalu.

(->) onacza , że kod powinien znaleźć się w jednej linijce

Turbo Pacal

program ZgadnijPlec;
uses crt;
var
 imie : string[20];

begin
clrscr;
write(' Podaj imie: ');
readln(imie);
if imie='Kuba' then writeln('Witaj chlopczyku!')
else if imie[length(imie)]='a' then 
(->)writeln('Witaj dziewczynko!')
else writeln('Witaj chlopczyku!');
repeat until keypressed;
end.

Mr Bin
delfisajt@poczta.onet.pl
www.polbox.com/t/tplsoft