Pascal - Konsolowe

Imię żeńskie

Imię żeńskie
Pascal - Konsolowe

Program: sprawdzający czy podane imię przez użytkownika jest żeńskie czy męskie.

Program sprawdza to na podstawie prostego warunku – jeśli imię kończy się literą “A” – jest żeńskie.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program imie;
uses crt;
var i:string;
begin
     clrscr;
     write('Podaj imię ');
     readln(i);
     if upcase (i[length(i)])='A' then
        writeln('To jest imię żenskie')
     else
        writeln('To jest imię męskie');
     readln;
end.