segunda-feira, outubro 19, 2015

LP - Software que pergunta ao usuário se deve fazer o loop ou não utilizando Repeat - Pascal

Program Pzim ;
var nome,limite,condicao:string;
Begin
  limite:='s';
  Repeat
    begin
      write('Digite um nome: ');    
      read(nome);
      writeln('Bom dia ',nome);
      writeln(' ');    
      writeln('Para outra saudacao digite S para sair digite N :');
      read(condicao);
    end;
  Until(condicao='N');
  writeln('Tchau');
End.

Nenhum comentário:

Postar um comentário