sábado, 27 de setembro de 2014

Verifica se é Feminino ou Masculino. Função If Else End, UPCase.




//Verifica se é Feminino ou Masculuni. Função If Else End,

program exemploIF;
uses crt;

var sexo : char;


begin
  write('Digitar o sexo: ');
  readln(sexo);
  sexo := upcase(sexo);

  if(sexo = 'F') then
          begin
          writeln('Feminino');
          writeln('Menininha');
          end
  else
          begin
          writeln('Masculino');
          writeln('Macho');
          end;
   readkey;
end.

Nenhum comentário:

Postar um comentário

Pascal - Lazarus