+ Responder Tópico
  1. #1
    Membro Avatar de BlackTalon
    Info Conteúdo e Citações Jogos Mensageiros
    Registro
    Jul 2003
    Mensagens
    279
    Verdinhas
    0

    Exercício em PASCAL

    Fala galera, meu professor passou uma lista com 5 exercícios meios sinistros (pra quem é leigo como eu) e não to sabendo nem por onde começar. O exercício n°1 já me assustou auheuaheu e o meu professor explica MUUUUUITO mal, a galera toda da minha sala fala isso, além de geral tirar nota baixa na prova desse fdp... enfim, será que alguém pode fazer esse n°1 pra mim? pois só consigo entender vendo um programa feito, daí vo tentar fazer os outros.


    1. Faça um algoritmo que leia as seguintes informações de um aluno: matrícula, valor da mensalidade, quantidade de meses em atraso e percentual de aumento devido ao atraso. Este algoritmo deverá calcular e imprimir a matrícula do aluno, o valor da
    mensalidade, o valor a ser pago sem o percentual de aumento e o valor a ser pago com o percentual de aumento. Deverá gerar a matrícula e o valor a ser pago do aluno que possui a menor dívida.


    OBS: Até agora ele mostrou como usar o basico FUNCTION, VAR etc e tal e nas ultimas aulas REPETIÇÕES, CASE e REGISTRO. Ensinou mal e porcamente, apenas mostrou em 2 linhas pra que serve mas não mostrou num programa completo, quando usar, como usar e em que lugar do programa usar, resumindo... TA FODA!!!

    Se alguém puder ajudar

  2. # Publicidade
    Publicidade

  3. #2
    Membro Avatar de BlackTalon
    Autor do tópico
    Info Conteúdo e Citações Jogos Mensageiros
    Registro
    Jul 2003
    Mensagens
    279
    Verdinhas
    0

    42 Visualizações x 0 Resposta ?

    Niguém?

    . . . To fudido auheuaheuae se a hardmob não pode me ajudar, quem poderá

  4. #3
    Membro Avatar de homesickness
    Info Conteúdo e Citações Jogos Mensageiros
    Registro
    Jan 2003
    Mensagens
    2.718
    Verdinhas
    15

    bicho isso ai não é nada complicado, problema é o seguinte, pascal é usado pra aprendizado, se você não consegue fazer um programa nele então desiste cara, vai fazer moda, publicidade, direito, ou coisa do tipo.

    o mercado já tá cheio de péssimos profissionais que aprenderam as coisas na base do ctrl-c/ctrl-v, você não quer ser um deles quer?

    formula basica pra qualquer developer com duvidas: google + erro e tentativa

    procure sobre os comandos do pascal, estude a estrutura como funciona, e pense na logica do exercicio, sem preguiça e sem desespero. a coisa é toda padronizada, não tem mistério.

    []'s e boa sorte

  5. #4
    Membro
    Info Conteúdo e Citações Jogos Mensageiros
    Registro
    Nov 2007
    Mensagens
    198
    Verdinhas
    0

    Só por curiosidade que universidade voce faz?

  6. #5
    Membro Avatar de BlackTalon
    Autor do tópico
    Info Conteúdo e Citações Jogos Mensageiros
    Registro
    Jul 2003
    Mensagens
    279
    Verdinhas
    0

    Citação Citando homesickness Ver mensagem
    bicho isso ai não é nada complicado, problema é o seguinte, pascal é usado pra aprendizado, se você não consegue fazer um programa nele então desiste cara, vai fazer moda, publicidade, direito, ou coisa do tipo.

    o mercado já tá cheio de péssimos profissionais que aprenderam as coisas na base do ctrl-c/ctrl-v, você não quer ser um deles quer?

    formula basica pra qualquer developer com duvidas: google + erro e tentativa

    procure sobre os comandos do pascal, estude a estrutura como funciona, e pense na logica do exercicio, sem preguiça e sem desespero. a coisa é toda padronizada, não tem mistério.

    []'s e boa sorte
    Não tiro sua a razão, porém o professor sabe muito, mas não sabe passar a informação. FATO!

    Arquitetura de Computadores - Nota 9,0
    Lógica Matemática - Nota 8,5
    Gestão Empresarial - Nota 8.2
    Contrução de Algoritmo - Nota 4.0

    Faço Redes, o porque de algoritmo? enfim, como já disse, só entendo se estudar um programa já feito. Não vejo problema nisso pois é um EXERCÍCIO, todo professor faz um de exemplo e depois vc faz os 49 seguinte ¬¬



    FelipePOA faço na UNIVERCIDADE - RJ

  7. #6
    Folding@hM Staff Avatar de mag00
    Info Conteúdo e Citações Jogos Mensageiros
    Registro
    Mar 2002
    Mensagens
    1.034
    Verdinhas
    0

    Bom, respondendo a um tópico antigo que me interessou.

    Estou aprendendo pascal também na facul agora.

    Se o professor viu que a sala não desenvolveu legal o algorítmo e passou um exercício "facinho" () desses logo na lata, então chama ele de canto e manda ele tomar no c*.

    O meu professor é do mesmo estilo. Passou muito mal a matéria. Você que o cara manja, mas a didática dele é escrota. Pesquisei pra cacete para fazer uma "calculadora" na última avaliação.

    É difícil garimpar material de pascal na net porque ele é bem discriminado pelos programadores. Nego só quer falar de C, ASSEMBLY, DELPHI e algumas linguagens para WEB.

    Pensei em fazer o programa para você, mas dei uma lida no exercício e acho que não tenho condição ainda de fazer isso de uma maneira fácil. Como o tempo está curto do lado de cá, vou deixar o tal programa da calculadora que eu fiz pra você dar uma olhada e ver se pega o espírito da coisa.

    Espero ter ajudado, e quem sabe mais pra frente ajudo mais. Gostei do pascal porque achei fácil programar nele, só preciso descolar mais material didático.

    Tem uns erros nos caracteres "especiais" (os de acentuação) que eu ainda não consegui resolver.

    No desenvolvimento dele no PC da facul aparece certinho, mas aqui em casa fica zoado.

    Código:
    program calc_av3_pascal;
    
        uses crt;
    
        var tecla : char;
            n1, n2 : real;
    
        begin
    
          while ord ( tecla ) <> 27 do
    
          begin
            clrscr;
    
            writeln ( '>A< - Adicionar               >Q< - Quadrado' );
            writeln ( '>S< - Subtrair                >R< - Raiz Quadrada' );
            writeln ( '>D< - Dividir                 >F< - Fatorial' );
            writeln ( '>M< - Multiplicar           >ESC< - Fim' );
            writeln ( '' );
            write ( 'Escolha uma op‡ao indicada no destaque: ' );
            tecla := readkey;
            write ( tecla );
    
            case upcase ( tecla ) of
              'A': begin
                    writeln ( '' );
                    writeln ( '' );
                    writeln ( 'Opera‡ao: Adi‡ao!' );
                    writeln ( '' );
                    write ( 'Digite o primeiro n£mero: ' );
                    readln ( n1 );
                    write ( 'Digite o segundo n£mero: ' );
                    readln ( n2 );
                    writeln ( '' );
                    writeln ( 'Resultado:' );
                    writeln ( '' );
                    write ( n1:0:2, ' + ', n2:0:2, ' = ', n1 + n2:0:2 );
                    readln;
                  end;
              'S': begin
                    writeln ( '' );
                    writeln ( '' );
                    writeln ( 'Opera‡ao: Subtra‡ao!' );
                    writeln ( '' );
                    write ( 'Digite o primeiro n£mero: ' );
                    readln ( n1 );
                    write ( 'Digite o segundo n£mero: ' );
                    readln ( n2 );
                    writeln ( '' );
                    writeln ( 'Resultado:' );
                    writeln ( '' );
                    write ( n1:0:2, ' - ', n2:0:2, ' = ', n1 - n2:0:2 );
                    readln ();
                   end;
              'D': begin
                    writeln ( '' );
                    writeln ( '' );
                    writeln ( 'Opera‡ao: Divisao!' );
                    writeln ( '' );
                    write ( 'Digite o primeiro n£mero: ' );
                    readln ( n1 );
                    write ( 'Digite o segundo n£mero: ' );
                    readln ( n2 );
                    writeln ( '' );
                    writeln ( 'Resultado:' );
                    writeln ( '' );
                    write ( n1:0:2, ' / ', n2:0:2, ' = ', n1 / n2:0:2 );
                    readln ();
                   end;
              'M': begin
                    writeln ( '' );
                    writeln ( '' );
                    writeln ( 'Opera‡ao: Multiplica‡ao' );
                    writeln ( '' );
                    write ( 'Digite o primeiro n£mero: ' );
                    readln ( n1 );
                    write ( 'Digite o segundo n£mero: ' );
                    readln ( n2 );
                    writeln ( '' );
                    writeln ( 'Resultado:' );
                    writeln ( '' );
                    write ( n1:0:2, ' * ', n2:0:2, ' = ', n1 * n2:0:2 );
                    readln ();
                   end;
              'Q': begin
                    writeln ( '' );
                    writeln ( '' );
                    writeln ( 'Opera‡ao: Elevar ao quadrado!' );
                    writeln ( '' );
                    write ( 'Digite o n£mero: ' );
                    readln ( n1 );
                    writeln ( '' );
                    writeln ( 'Resultado:' );
                    writeln ( '' );
                    write ( n1:0:2, ' ao quadrado ‚ igual a ', sqr(n1):0:2 );
                    readln ();
                   end;
              'R': begin
                    writeln ( '' );
                    writeln ( '' );
                    writeln ( 'Opera‡ao: Raiz quadrada!' );
                    writeln ( '' );
                    write ( 'Digite o n£mero: ' );
                    readln ( n1 );
                    writeln ( '' );
                    writeln ( 'Resultado:' );
                    writeln ( '' );
                    write ( 'A raiz quadrada de ', n1:0:2, ' ‚ ', sqrt(n1):0:2 );
                    readln ();
                   end;
              'F': begin
                    writeln ( '' );
                    writeln ( '' );
                    writeln ( 'Opera‡ao: Fatora‡ao!' );
                    writeln ( '' );
                    write ( 'Digite o n£mero a ser fatorado: ' );
                    readln ( n1 );
                    writeln ( '' );
                    n2 := n1 - 1;
                    writeln ( 'Fatorando o n£mero : ', n1:0:2 );
                    writeln ( '' );
                    while  ( n2 > 1 ) do
                      begin
                        writeln ( n1:0:2, ' * ', n2:0:2, ' = ', n1 * n2:0:2 );
                        n1 := n1 * n2;
                        n2 := n2 -1;
                      end;
                    writeln ( '' );
                    write ( 'Resultado: ', n1:0:2 );
                    readln ();
                   end;
            end;
          end;
    
          writeln ( '' );
          writeln ( '' );
           write ( 'Fim de programa, pressione qualquer tecla para sair' );
          readkey;
    
        end.
    []'s

+ Responder Tópico Ir para o Fórum

Assuntos do tópico

Compartilhar

Permissões