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