Program rozróżniający płeć na podstawie imienia.

[Darecky]

Witam! Mam do zrobienia programik, który po wpisaniu imienia będzie mówił czy to kobieta czy facet. Mam to zrobić za pomocą if, then, else. Imiona kobiet kończą się na "a", ale jak zrobić, żeby program czytał ostatnią literkę wpisanego tekstu i wtedy sprawdzał, czy warunek został spełniony? Na razie mam coś takiego:

Kod: Zaznacz cały

uses crt;
var
a:string;
begin
clrscr;
repeat
writeln('Podaj swoje imie: ');
read(a);
readln;
if a='???' then writeln('Jestes kobieta!') else writeln('Jestes facetem!');
until a='zamknij';
halt;
end.

Co mam wpisac, zmienić?
Proszę, pomóżcie!

[ Dodano: 2008-05-10, 14:40 ]
Chodzi oczywiście o język Pascal

[zDaleKi]

ale jak zrobić, żeby program czytał ostatnią literkę wpisanego tekstu i wtedy sprawdzał

Odczytujesz jaki długi jest "string" i bierzesz ten ostatni znak
Długość Stringa w Pasclau odczytujesz za pomocą: lenght.

[ Dodano: 2008-05-10, 16:26 ]
Czyli po readln;
n:=length(a);
if (a[n] = 'a') then ...


Oczywiście n powinno być zadeklarowane wcześniej np. jako integer.
Ale nie pisałe mw Pascalu do chyab 10 lat, wiec na 100% Ci nie powiem czy gdzieś się nie machnąłem tego a[n] nie jestem pewien teraz.

[ Dodano: 2008-05-10, 21:36 ]
DarQ, i jak tam działa czy nie bo nic nie piszesz.

[Darecky]

Hej, sorki, że się nie odzywałem, grilla miałem
No więc poradziłem sobie już z tym wcześniej, dokładnie w ten sam sposób, co pisał BliSki Czyli:

Kod: Zaznacz cały

uses crt;
var
a:string;
b:integer;
begin
clrscr;
repeat
writeln('Podaj swoje imi©: ');
read(a);
readln;
b:=length(a);
if (a[b]='a')  then writeln('Jeste˜ kobietĄ!') else writeln('Jeste˜ facetem!');
until a='zamknij';
halt;
end.

Jeszcze, z tego co się wczytałem można zrobić to za pomocą 'copy', ale więcej pisania z tym.

Swoją drogą, macie jakieś pdfy z pascalem? Chodzi mi o operacje na stringach itp., porządkowanie, itd. wiecie o co chodzi.

[ Dodano: 2008-05-10, 22:18 ]
BliSki, dlaczego nie mogę dać Ci "pomógł" ?

[zDaleKi]

Swoją drogą, macie jakieś pdfy z pascalem?

Za moich czasów nie było PDFów a potem miałem Pascala w jednym palcu i nie potrzebowałem

BliSki, dlaczego nie mogę dać Ci "pomógł" ?

W Hyde Parku jest to wyłączone, bo premiujemy pomoc tylko w kącikach tematycznych.

[ Dodano: 2008-05-10, 23:45 ]
Dodam, że mi wystarczyła do Pascala książka ze spisem wszystkich poleceń, która miała raptem troszkę ponad 100 stron. A samych poleceń było tam 50 stron. Ja uważam, że algorytmy ma się w głowie a ja miałem jakoś dar do ich tworzenia