Ir ao conteúdo
  • Cadastre-se
EduardoMQS

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

Recommended Posts

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.

 

  • 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

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





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

×