Resultados 1 a 9 de 9

Tópico: Exercicios Simples de Pascal Explicados

  1. #1
    Membro Avatar de mayckon
    Data de Ingresso
    Aug 2006
    Posts
    389
    Post Thanks / Like

    Exercicios Simples de Pascal Explicados

    Olá pessoal, esses exercicios sao alguns que to iniciando na facul, sao bem simples mesmos, vai ajudar muito pouco, mais ja é alguma coisa, muito bom para iniciantes

    Exercicio 1 - Um cinema que possui capacidade de 100 lugares está sempre com ocupação total.
    Certo dia cada espectador respondeu a um questionário, no qual constava :
    A) sua idade;
    b) sua opnião em relaçao ao filme,segundo:
    ótimo = *****
    Bom = ****
    regular = ***
    Ruim= **
    Péssimo = *
    Elabore um algoritmo que,lendo estes dados,calcule e imprima: a quantidade de respostas : ''ótimo'',a média de idade das pessoas que responderam ruim e a média de idade das pessoas que responderam péssimo.

    Algoritmo :
    Código:
    Program Pzim ;
    var
    idade,i : integer;    { declaraçao de variaveis }
    resposta : string;                     { declaraçao de variaveis }
    otimo,ruim,pessimo,medruin,medpessimo : integer;      { declaraçao de variaveis }
    x,y : real;                              { declaraçao de variaveis }
     Begin
     for i := 1 to 10 do { i recebe o valor 1 ate 10 faça}
     begin
     writeln(' Qual a sua idade abestado ? ');
     readln(idade);                       { armazenou o valor na variavel }
     writeln('Qual a sua opniao sobre essa porra de filme');
     readln(resposta);      { armazenou o valor no variavel }
     if resposta = 'otimo' then  { se a variavel resposta for igual a  otimo entao}
     otimo := otimo+1;           { otimo recebe otimo+1, lembrando que otimo vale 0}
     if resposta = 'ruim' then  {se resposta for igual a ruim entao}
     begin                       {usei o begin(inicio) porque tinha mais de 1 linha de comandos}
     ruim := ruim+1;             { ruim recebe ruim+1, lembrando que ruim vale 0}
     medruin := medruin+idade;  {medruin recebe  medruin+idade lembrando que medruin vale 0}
     end;                        {fim do begin}
     if resposta = 'pessimo' then  { se resposta for igual a pessimo entao}
     begin                    {usei o begin(inicio) porque tinha mais de 1 linha de comandos}
     pessimo := pessimo+1;
     medpessimo := medpessimo+idade;
     end;                { fim do beguin}
      end;              {fim do loop - comando for}
      x := medruin/ruim; { x recebe medruin(soma das idades) dividido por ruim(numero de pessoas que opinaram ruim}
      y:= medpessimo/pessimo; { mesmo processo que o de cima }
      writeln('a quantidade de pessoas que responderam otimo foram ' , otimo); //escreve na tela
      writeln(' a media de idade das pessoas que responderam ruim foram ', x:3:2);    // escreve na tela
      writeln(' a media de idade das pessoas que responderam pessimo foram ', y:3:2);// escreve na tela
      
     End.
    Exercicio 2 - A loja Hastes Ltda. Produz dois tipos de haste(cobre e alumínio). Cada haste de cobre é vendida por 2 reais e cada haste de alumínio por 4 reais. Caso o cliente leve menos de 20 hastes(total dos dois tipos) a loja dá um desconto de 10% no valor total a ser pago, caso leve um valor superior a 20 hastes o desconto é de 15% no valor total a ser pago.
    Faça um algoritmo que leia o nome do cliente e a quantidade de cada tipo de haste que ele comprou e informe o total a pagar.


    Algoritmo :
    Código:
    Program Pzim ;
    var
    cliente: string;
    hastc,hastea : integer;
    soma,lol : real;
    begin
    writeln(' informe o nome do cliente');
    readln(cliente);         { armazenou o valor na variavel }
    writeln(' Informe a quantidade de Haste(cobre)');
    readln(hastc);       { armazenou o valor na variavel }
    writeln(' Informe a quantidade de haste(aluminio)');
    readln(hastea);         { armazenou o valor na variavel }
    soma := hastc+hastea;
    if soma <= 20 then { se soma for menor ou igual a 20 entao}
    begin   {usei begin porque tem mais de 1 linha de comando}
    hastc := hastc*2;
    hastea := hastea*4;
    soma := hastc+hastea;
    lol := soma-soma*0.1; { lol = soma - 10%}
    writeln(' O TOTAL DO VALOR A PAGAR EH ',lol:2:2);
    end {antes do else nao usa ponto e virgula}
    else
     if soma > 20 then
     begin
     hastc := hastc*2;
    hastea := hastea*4;
    soma := hastc+hastea;
    lol := soma-soma*0.15;  { lol = soma - 15%}
    writeln(' O TOTAL DO VALOR A PAGAR EH ',lol:2:2);
    end;
    end.
    Opniões e Críticas serão bem-vindas, valeu
    Skype:mayckonxp
    iChat:mayckon@mac.com

  2. #2
    Membro
    Data de Ingresso
    Feb 2008
    Localização
    Aonde houver Delphi (//-)
    Posts
    363
    Post Thanks / Like

    Re: Exercicios Simples de Pascal Explicados

    hehe.. legal manow..
    me diz uma coisa, para que usa-se isso x:3:2?

    Abraço!
    Ultimas atualizações Emissary RAT xD
    , e 3º.
    Delphi cs 1.6 Wallhack - Esp ---> coming son!
    http://i12.photobucket.com/albums/a206/ ... /1hack.jpg

  3. #3
    Membro Avatar de mayckon
    Data de Ingresso
    Aug 2006
    Posts
    389
    Post Thanks / Like

    Re: Exercicios Simples de Pascal Explicados

    fala -brx- isso representa as casas decimais depois da virgula, é pra não ficar aquele tanto de 000000 na hora de mostrar o resultado..
    Skype:mayckonxp
    iChat:mayckon@mac.com

  4. #4
    Membro Avatar de mayckon
    Data de Ingresso
    Aug 2006
    Posts
    389
    Post Thanks / Like

    Re: Exercicios Simples de Pascal Explicados

    ah no exercicio 1 ficou faltando um 0 na função for ...
    na verdade eu coloquei 10 pq tava testando o algoritmo...
    Skype:mayckonxp
    iChat:mayckon@mac.com

  5. #5
    Membro
    Data de Ingresso
    May 2009
    Localização
    127.0.0.1
    Posts
    186
    Post Thanks / Like

    Re: Exercicios Simples de Pascal Explicados

    Ta bacana, bom raciocínio (:
    abraço!
    [center:2lzvp8wa]http://images.uncyc.org/commons/c/cc/Crazyhorse.gif

    “Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável“
    (Albert Einstein)[/center:2lzvp8wa]

  6. #6
    Gray Hat Avatar de DELL_
    Data de Ingresso
    Sep 2006
    Posts
    2.162
    Post Thanks / Like

    Re: Exercicios Simples de Pascal Explicados

    Cara vc poderia usar um tab depois de alguns comandos, alguns professores e livros chama de efeito sanfona.

    Tipo

    Begin
    ------for i:=1 to n do
    --------begin
    -------------comando;
    --------end;
    end.

    Fica mais fácil de entender.

    Navegue mais rápido com o Firefox + Adblock: Click Aqui
    http://img301.imageshack.us/img301/2980/assmom.jpg

    Faça sua doação para o Fórum


    I'm not a perfect person

  7. #7
    Wannabe
    Data de Ingresso
    Dec 2008
    Posts
    453
    Post Thanks / Like

    Re: Exercicios Simples de Pascal Explicados

    Citação Postado originalmente por DELL_
    Cara vc poderia usar um tab depois de alguns comandos, alguns professores e livros chama de efeito sanfona.

    Tipo

    Begin
    ------for i:=1 to n do
    --------begin
    -------------comando;
    --------end;
    end.

    Fica mais fácil de entender.

    O nome disso é identação

  8. #8
    Membro
    Data de Ingresso
    Feb 2008
    Localização
    Aonde houver Delphi (//-)
    Posts
    363
    Post Thanks / Like

    Re: Exercicios Simples de Pascal Explicados

    kkkk!
    não estraga , deixa o cara ser feliz com a sanfona dele manow... ahuahuuhauha
    Ultimas atualizações Emissary RAT xD
    , e 3º.
    Delphi cs 1.6 Wallhack - Esp ---> coming son!
    http://i12.photobucket.com/albums/a206/ ... /1hack.jpg

  9. #9
    Membro
    Data de Ingresso
    Nov 2008
    Posts
    238
    Post Thanks / Like

    Re: Exercicios Simples de Pascal Explicados

    [quote=ace_ventura]
    Citação Postado originalmente por "DELL_":10p6vg8q
    Cara vc poderia usar um tab depois de alguns comandos, alguns professores e livros chama de efeito sanfona.

    Tipo

    Begin
    ------for i:=1 to n do
    --------begin
    -------------comando;
    --------end;
    end.

    Fica mais fácil de entender.

    O nome disso é identação [/quote:10p6vg8q]

    :lol: :lol: Concordo ace;
    [center:3h09r9a6]API Fanatical*
    SUPERNATURAL FAN
    http://sbt.com.br/sobrenatural/images/logo.jpg[/center:3h09r9a6]

Tópicos Similares

  1. Pseudo Pascal - Pascal em Português
    Por Dinamico no fórum Dúvidas
    Respostas: 14
    Último Post: 06 Mar 2010, 11:47
  2. [PASCAL] Ajuda em códigos simples
    Por Bronson no fórum Dúvidas
    Respostas: 4
    Último Post: 21 Aug 2009, 15:42
  3. Exercicios Pascal[Vetores] Resolvidos
    Por mayckon no fórum Delphi
    Respostas: 0
    Último Post: 19 May 2009, 11:12
  4. Ajuda Exercicios de Lógica
    Por mayckon no fórum Dúvidas
    Respostas: 1
    Último Post: 05 Jul 2008, 15:36

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •