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:  
Jonas Daniel

Trabalho Pascal

Recommended Posts

olá pessoal.Tenho um trabalho de 3 questões em pascal, não estou conseguindo fazer. Quem poder da um ajuda agradeço!!

1)Faça um programa em Pascal que descubra o menor número que dividido por 9 dá resto 8, dividido por 8 dá resto 7, dividido por 7 dá resto 6, dividido por 6 dá resto 5, dividido por 5 dá resto 4, dividido por 4 dá resto 3, dividido por 3 dá resto 2, dividido por 2 dá resto 1.

2)Faça um programa em Pascal para receber números de reais do usuário até receber o número 31.31, sinal que a entrada de dados terminou. Ao final o programa deverá imprimir:

a) A soma dos números

B) A média aritmética dos números

c) O menor número

d) O maior número

e) O menor número elevado ao maior número

f) O maior número elevado ao menor número

3) Faça um programa em Pascal que simule o funcionamento de uma urna eletrônica para uma eleição de três candidatos, de números 1,2 e 3. Escolha você os nomes dos candidatos O programa deverá pedir o número de candidato ao eleitor até receber o candidato 9837, sinal que a eleição terminou. Os votos no candidato 4 deverão ser considerados votos em branco e votos em candidatos de número menor que 1 e maior que 4 deverão ser considerados votos nulos. Ao final o programa deverá imprimir o resultado da eleição como o número, o nome e o percentual de votos válidos que cada candidato obteve.

valeu Obrigado Pela força.

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • 2)

    program semnome;

    var

    aux,x:integer;

    num,soma,media,menor,maior,expo1,expo2:real;

    begin

    aux:=0;

    maior:=0;

    menor:=9999999;

    repeat

    writeln('digite um valor');

    readln(num);

    if (num <> 31.31) then begin

    aux:=aux+1;

    soma:=soma+num;

    if num > maior then begin

    maior:=num;

    end;

    if num < menor then begin

    menor:=num;

    end;

    end;

    until num=31.31;

    media:=soma/aux;

    writeln('media: ',media);

    writeln('soma: ',soma);

    writeln('menor numero: ',menor);

    writeln('maior numero: ',maior);

    expo1:=menor;

    expo2:=maior;

    for x := 1 to maior do

    begin

    menor:=menor*expo2;

    end;

    for x := 1 to menor do begin

    maior:= maior*expo1;

    end;

    writeln('menor numero elevado ao maior: ',menor);

    writeln('maior numero elevado ao menor: ',maior);

    end.

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    2)

    program semnome;

    var

    aux,x:integer;

    num,soma,media,menor,maior,expo1,expo2:real;

    begin

    aux:=0;

    maior:=0;

    menor:=9999999;

    repeat

    writeln('digite um valor');

    readln(num);

    if (num <> 31.31) then begin

    aux:=aux+1;

    soma:=soma+num;

    if num > maior then begin

    maior:=num;

    end;

    if num < menor then begin

    menor:=num;

    end;

    end;

    until num=31.31;

    media:=soma/aux;

    writeln('media: ',media);

    writeln('soma: ',soma);

    writeln('menor numero: ',menor);

    writeln('maior numero: ',maior);

    expo1:=menor;

    expo2:=maior;

    for x := 1 to maior do

    begin

    menor:=menor*expo2;

    end;

    for x := 1 to menor do begin

    maior:= maior*expo1;

    end;

    writeln('menor numero elevado ao maior: ',menor);

    writeln('maior numero elevado ao menor: ',maior);

    end.

    Olá,

    Jonas Daniel, seja bem vindo ao Fórum do Clube do Hardware.

    1) «A fim de manter as mensagens da seção o mais limpo/entendível possível recomendamos os usuários a postarem códigos utilizando as tags

     (#) do Fórum.»
    [/B]
    Maiores informaões: [URL="http://forum.clubedohardware.com.br/tags-code-como/709848"]Tags [code]: Como e para que usar?[/URL]

    Aproveite e dê uma olhadinha nos [URL="http://forum.clubedohardware.com.br/topicos-importantes-secao/709833"]Tópicos importantes da seção[/URL]

    [B]2) Qual a sua dúvida? Seja mais específico[/B]

    Neste caso, quando [B]johnatanandressa[/B] disse «poste o que você ja fez» era para você, mais ou menos, postar o seu código e as dúvidas que você tem em relação ao problema... onde você está tendo dificuldade.

    [B]3) Vamos a analise do seu código[/B]

    [B]3.1) Leitura dos valores[/B]

    Tá quase tudo certinho, só acharia interessante você avisar ao usuário que "31.31" encerra o programa.

    [B]3.2) Você está inicializando os valores das variáveis[/B]

    [quote name='Jonas Daniel'][CODE]aux:=0;
    maior:=0;
    menor:=9999999;

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    3) Faça um programa em Pascal que simule o funcionamento de uma urna eletrônica para uma eleição de três candidatos, de números 1,2 e 3. Escolha você os nomes dos candidatos O programa deverá pedir o número de candidato ao eleitor até receber o candidato 9837, sinal que a eleição terminou. Os votos no candidato 4 deverão ser considerados votos em branco e votos em candidatos de número menor que 1 e maior que 4 deverão ser considerados votos nulos. Ao final o programa deverá imprimir o resultado da eleição como o número, o nome e o percentual de votos válidos que cada candidato obteve.

    vou postar como pode ser feito esse exercicio:


    var
    opcao:char;
    cont_1,cont_2,cont_3;integer;
    nulo:integer;
    total:integer;
    begin
    writeln ('PARA VOTAR EM JOHNATAN DIGITE 1');
    writeln ('PARA VOTAR EM ANDRESSA DIGITE 2');
    writeln ('PARA VOTAR EM RONALDO DIGITE 3');
    writeln ('................................................');

    writeln ('DIGITE SUA OPÇÃO:');
    readln(op);

    if (op='1')then //não sei se existe estas aspas
    cont_1:=cont_1+1;
    else if(op='2')then //não sei se existe estas aspas
    cont_2:=cont_2+1
    else if(op='3')then //não sei se existe estas aspas
    cont_3:=cont_3+1
    else
    nulo:=nulo+1;

    begin
    total:=cont_1+cont_2+cont_3;

    writeln('JOHNATAN TEVE:',cont_1);
    writeln('ANDRESSA TEVE:',cont_2);
    writeln('RONALDO TEVE:',cont_3);
    writeln('VOTOS NULOS:',nulo);
    writeln('TOTAL DE VOTOS COMPUTADOS:',total);

    seria +- isso a resolução do problema..

    1º para você axar o percentual de cada candido,você faz a "REGRA DE TRES" da nossa amiga matematica e usa a variavel 'total';

    2ºvalidar quando o voto for <1 e >4

    3ºO programa deverá pedir o número de candidato ao eleitor até receber o candidato 9837(não entendi)

    qualquer coisa poste ae!!!

    Editado por johnatanandressa
    esqueci de algumas informações e correção

    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

    ×