Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
EduardoMQS

Delphi Como se transforma esse código Delphi de console para interface gráfica?

Recommended Posts

program usoeletron;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
var
  idade_anos, tempo_max_uso_eletron: byte;
  permite1_10, permite1_12, permite1_14, permite1_16, permite1_18: string[3];
  permite2_10, permite2_12, permite2_14, permite2_16, permite2_18: boolean;
begin
  try
    write('Qual é a idade do seu filho em anos? ');
    readln(idade_anos);
    writeln;
    if (idade_anos < 2) then
    begin
      tempo_max_uso_eletron := 2;
    end
    else if (idade_anos < 4) then
    begin
      tempo_max_uso_eletron := 4;
    end
    else
    begin
      tempo_max_uso_eletron := idade_anos;
      if (tempo_max_uso_eletron mod 2 = 1) then
      begin
        dec(tempo_max_uso_eletron);
      end;
      tempo_max_uso_eletron := tempo_max_uso_eletron * 2;
      if (tempo_max_uso_eletron > 60) then
      begin
        tempo_max_uso_eletron := 60;
      end;
    end;
    repeat
      write('Você permite que seu filho ouça músicas Funk Normal e use outras ');
      write('mídias não recomendadas para menores de 10 anos? ');
      readln(permite1_10);
      writeln;
    until (permite1_10 = 'sim') or (permite1_10 = 'não');
    if (permite1_10 = 'sim') then
    begin
      permite2_10 := true;
      repeat
        write('Você permite que seu filho ouça músicas Funk Carioca e use ');
        write('outras mídias não recomendadas para menores de 12 anos? ');
        readln(permite1_12);
        writeln;
      until (permite1_12 = 'sim') or (permite1_12 = 'não');
      if (permite1_12 = 'sim') then
      begin
        permite2_12 := true;
        repeat
          write('Você permite que seu filho ouça músicas Heavy Metal e use ');
          write('outras mídias não recomendadas para menores de 14 anos? ');
          readln(permite1_14);
          writeln;
        until (permite1_14 = 'sim') or (permite1_14 = 'não');
        if (permite1_14 = 'sim') then
        begin
          permite2_14 := true;
          repeat
            write('Você permite que seu filho ouça músicas Pouco Explícitas ');
            write('e use outras mídias não recomendadas para menores de 16 ');
            write('anos? ');
            readln(permite1_16);
            writeln;
          until (permite1_16 = 'sim') or (permite1_16 = 'não');
          if (permite1_16 = 'sim') then
          begin
            permite2_16 := true;
            repeat
              write('Você permite que seu filho ouça músicas Muito ');
              write('Explícitas e use outras mídias não recomendadas para ');
              write('menores de 18 anos? ');
              readln(permite1_18);
              writeln;
            until (permite1_18 = 'sim') or (permite1_18 = 'não');
            if (permite1_18 = 'sim') then
            begin
              permite2_18 := true;
            end;
          end;
        end;
      end;
    end;
    write('Então seu filho poderá usar eletrônicos no máximo ');
    write(tempo_max_uso_eletron, ' horas semanais, podendo ouvir músicas ');
    write('infantis');
    if (idade_anos >= 2) then
    begin
      write(', ouvir músicas livres não infantis, ouvir músicas de jogos ');
      write('eletrônicos, assistir filmes e séries livres de personagens ');
      write('fictícios dublados');
    end;
    if (idade_anos >= 4) then
    begin
      write(', jogar jogos eletrônicos livres, assistir filmes e séries ');
      write('livres de personagens reais interpretados, assistir ');
      write('teleprogramas livres de entrevistas e entretenimento, assistir ');
      write('teleprogramas livres de jornalismo');
    end;
    if (permite2_10) then
    begin
      write(', usar mídias não recomendadas para no mínimo 10');
      if (permite2_12) then
      begin
        write(', 12');
        if (permite2_14) then
        begin
          write(', 14');
          if (permite2_16) then
          begin
            write(', 16');
            if (permite2_18) then
            begin
              write(', 18');
            end;
          end;
        end;
      end;
      write(' anos');
    end;
    writeln(' e só!');
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Eu uso a IDE da Embarcadero.

Editado por EduardoMQS
  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Declare todas as variáveis como globais. Abra um formulário e atribua a cada entrada de dados uma caixa de texto.

Atribua a cada caixa de texto um evento na perda de foco, para validar os dados digitados e mostrar uma caixa de diálogo caso haja necessidade de correção.

No final do formulário, crie um botão ok para executar todas as verificações e gerar o relatório final.

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×