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

Pascal Como se faz para esse programa em Pascal ter interface gráfica de usuários?

Recommended Posts

Postado (editado)
program usoeletron;
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
	write('Qual é a idade do seu filho em anos? ');
	readln(idade_anos);
	if (idade_anos < 2) then
	begin
		tempo_max_uso_eletron := 2;
	end
	else
	begin
		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
				tempo_max_uso_eletron := tempo_max_uso_eletron - 1;
			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;
	end;
	writeln;
	repeat
		write('Você permite que seu filho use mídias não recomendadas para menores de 10 anos [sim / não]? ');
		readln(permite1_10);
	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 use mídias não recomendadas para menores de 12 anos [sim / não]? ');
			readln(permite1_12);
		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 use mídias não recomendadas para menores de 14 anos [sim / não]? ');
				readln(permite1_14);
			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 use mídias não recomendadas para menores de 16 anos [sim / não]? ');
					readln(permite1_16);
				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 use mídias não recomendadas para menores de 18 anos [sim / não]? ');
						readln(permite1_18);
					until (permite1_18 = 'sim') or (permite1_18 = 'não');
					if(permite1_18 = 'sim') then
					begin
						permite2_18 := true;
					end;
				end;
			end;
		end;
	end;
	writeln;
	write('Então seu filho pode usar eletrônicos no máximo ', tempo_max_uso_eletron, ' horas semanais, podendo ouvir músicas infantis');
	if (tempo_max_uso_eletron >= 4) then
	begin
		write(', ouvir músicas livres não infantis infantis, ouvir músicas de jogos eletrônicos, assistir filmes e séries livres de personagens fictícios dublados');
	end;
	if (tempo_max_uso_eletron >= 8) then
	begin
		write(', assistir programas de televisão livres de entrevistas e entretenimento, assistir programas livres de telejornalismo, jogar jogos eletrônicos livres, assistir filmes, séries e telenovelas livres de personagens reais interpretados');
	end;
	if (permite2_10) then
		begin
		write(', usar mídias para 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;
end.
Citação

O Clube do Hardware não sugere a marcação de sintaxe Pascal.

Citação

O Pascalzim é uma IDE para o Windows 7, 8 ou 10.

 

Editado por EduardoMQS
  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

@EduardoMQS     para fazer uma interface gráfica usando a linguagem pascal você pode usar o DELPHI 7 ,  veja no youtube algumas aulas de como usar o delphi  e você conseguirá .  veja esse link :

 

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

×