Respostas da AD1 de Matemática Básica

[Alexandre Ferreira Pessôa]

Segue as respostas da AD1 de Matemática básica:

1.a) -5/4
1.b) 5
1.c) -37/10

2) 33/16

3.a)  x diferente de 1 (vou verificar se a resposta está correta)
3.b) -5/3
3.c) x = 3

4) (-4,1]

5.a) 1/6
5.b) -29/12
5.c) 10/3
5.d) 8/3
5.e) 25/12
5.f) 1/24
5.g) a; f
5.h) d

6) 12

Caso alguém do grupo não tenha conseguido encontrar uma ou outra respostas, ou até mesmo tenha algum tipo de dúvida, postem que terei o maior prazer de explicar e até mesmo revisar a questão em si. Em breve estarei postando as respostas de Álgebra Linear 1.

Att.

Alexandre

[Edgard Bento]

Alexandre,

Obrigado pela força... Se puder me explicar a 3, letra A, ficarei agradecido. As outras eu consegui fazer. Achei essa AD mais fácil do que a AD do período anterior.

Att,

Edgard.

--
 
 
 

[Matheus Amaro]

Edgard,

Você fez MAB no 1º semestre?

Se fez como conseguiu se inscrever novamente para o 2º semestre?

Porque eu tentei e não consegui.

att,

Matheus Amaro

Técnico em Mecatrônica

Rezende Rammel 2008

t. 21 8225 1912

--
 
 
 

[Edgard Bento]

Eu tirei FAC para conseguir me inscrever em MB.

--
 
 
 

[Matheus Amaro]

Putz, eu também queria fazer, mas agora já estou inscrito em FAC :(

Matheus Amaro

Técnico em Mecatrônica

Rezende Rammel 2008

t. 21 8225 1912

--
 
 
 

[Lee Shaoram]

Vocês vão diretamente no pólo entregar o enviam pela internet? Se for pela net, para que e-mail mandam?

Att,

Renan P.S

Graduando em Tecnologia em Sistemas da Computação - UFF

---

Date: Thu, 9 Aug 2012 12:58:31 -0300
Subject: Re: [computação_cederj] Respostas da AD1 de Matemática Básica
From: edgar...@gmail.com
To: comp_...@googlegroups.com

--
 
 
 

[Edgard Bento]

Renan,

Eles aceitam as ADs somente via SEDEX ou pessoalmente no pólo.

Att,

Edgard

--
 
 
 

[Matheus Amaro]

Pessoal,

É que eu sempre enviei impresso, vocês sabem se eu posso enviar as AD's a mão mesmo?
Especialmente a de Álgebra Linear, que vai dar um trabalhão de digitalizar.

att

Matheus Amaro

Técnico em Mecatrônica

Rezende Rammel 2008

t. 21 8225 1912

--
 
 
 

[Edgard Bento]

Eu enviei as ADs a punho.

--
 
 
 

[Matheus Amaro]

Vou fazer o mesmo. Valeu.

Matheus Amaro

Técnico em Mecatrônica

Rezende Rammel 2008

t. 21 8225 1912

--
 
 
 

[Lee Shaoram]

Em Fundamentos de Programação estamos aprendendo Pascal. Mas tive um problema no programa para testar. Inicialmente estava usando o pascalzin, mas algumas coisas que o professor diz funcionam diferente; por exemplo o uso do termo output e input no read e write.

Tentei outro programa chamado DevPas 192, mas ele dá vários erros também.

De qual forma vocês estão testando pascal?

Att,

Renan P.S

Graduando em Tecnologia em Sistemas da Computação - UFF

---

From: mathe...@gmail.com
Date: Sat, 18 Aug 2012 21:07:07 -0300
Subject: Re: [computação_cederj] Envio AD1
To: comp_...@googlegroups.com

--
 
 
 

[Matheus Amaro]

Não usa o Pascal Zim, desisti de tentar fazer o programa funcionar nele, aí fui pro Dev-Pascal 1.9.2 e rodou perfeitamente.

Explica? Também não sei, só te falo que ele funciona e o PZ não.

att

Matheus Amaro

Técnico em Mecatrônica

Rezende Rammel 2008

t. 21 8225 1912

--
 
 
 

[Lee Shaoram]

No dev pascal eu não consigo testar. Eu aperto F9 ai ele pisca a tela do DOS mas some. Não me deixa ver nada.

Como você faz pra testar?

Att,

Renan P.S

Graduando em Tecnologia em Sistemas da Computação - UFF

---

From: mathe...@gmail.com
Date: Sun, 19 Aug 2012 20:59:31 -0300
Subject: Re: [computação_cederj] Programa para Pascal
To: comp_...@googlegroups.com

--
 
 
 

[Matheus Amaro]

Aperta no botão de "Correto" em verde (Compile project) e depois aperta ">>Execute<<".

att

Matheus Amaro

Técnico em Mecatrônica

Rezende Rammel 2008

t. 21 8225 1912

--
 
 
 

[Lee Shaoram]

E se eu te disser que já diz isso?

Tentei coisa bem simples

program teste;

begin

       write('olá')

end

mas não acontece nada. Antes piscava a tela do DOS. Agora nem isso. Tô ficando desanimado já...

Att,

Renan P.S

Graduando em Tecnologia em Sistemas da Computação - UFF

---

From: mathe...@gmail.com
Date: Sun, 19 Aug 2012 21:06:01 -0300

--
 
 
 

[Matheus Amaro]

Aí é problema no seu PC, tem que arrumar isso.

Ou então programar em outro computador...

Matheus Amaro

Técnico em Mecatrônica

Rezende Rammel 2008

t. 21 8225 1912

--
 
 
 

[Lee Shaoram]

Qual é o seu windows? O que tem instalado a mais? NetFrameWork? Eu tenho o 3.5 no xp.

Att,

Renan P.S

Graduando em Tecnologia em Sistemas da Computação - UFF

---

From: mathe...@gmail.com
Date: Sun, 19 Aug 2012 21:18:49 -0300

--
 
 
 

[Lee Shaoram]

Consegui.

Seguinte, gente, o link do programa é esse abaixo.

http://www.baixaki.com.br/download/bloodshed-dev-pascal-free-pascal-compiler.htm 

Continuando: depois de instalar, feche o programa e vá na pasta onde você instalou ele e mude o nome da pasta Icons para Icon.

Depois disso abra o programa e crie um projeto novo .dp e depois um .pass. Após isso feche o programa e vá na pasta onde você salvou o .pass e dê dois cliques.

Pronto, programa funcionando.

4 horas de dor de cabeça pra descobrir isso, ninguém merece...

Espero que ninguém mais passe por isso.

Boa sorte a todos.

Att,

Renan P.S

Graduando em Tecnologia em Sistemas da Computação - UFF

---

From: san...@hotmail.com
To: comp_...@googlegroups.com
Subject: RE: [computação_cederj] Programa para Pascal
Date: Mon, 20 Aug 2012 00:25:48 +0000

--
 
 
 

[Renato Martelotta Filho]

Olá pessoal,

passei aqui so para comentar sobre fundamentos de programação.

 

1° -> o ideal é trabalhar com o free pascal - recomendado pelo professor do curso;

         Há diferenças entre os compiladores.E o código acaba não saindo como eles querem.

 

2° -> façam os códigos como o professor pede;

        ex.: sempre usem program tal (imput{teclado},outpu{vídeo});

                                      writeln ou write(output,.......)

                                      readln(input,....... obs.: claro que em determinadas situações o output ou input não entram

               saibam usar procedimentos e funções, e usem;

               códigos feitos sem a utilização dos procedimentos e/ou funções valem menos pontos:

        hipoteticamente falando se uma questão vale 3 ptos, mesmo que  façam o código certo sem utilizar procedimentos e/ou funções

        não ganham os 3 ptos, e se ganharem 2 nem reclamem ..... nas aps principalmente.....

        obs.:os tutores são mais camaradas e aliviam mais;

 

3° -> tentem tirar 10 nas Ads , pois, o bicho pega nas aps;

 

 

 

 

4° -> como o professor diz na vídeo aula treinem exaustivamente ;

 

Lembrando de mais detalhes passo para vcs, e qualquer ajuda que puder oferecer é so falar.

Se quiserem também passar as questões das ads para eu responder é so mandar.

 

Aqui mando um ex. de como não se deve fazer:

questão clássica de vetor :

 

program ad1_qt02(input{teclado}, output{vídeo});

   uses crt;

   var
      i : integer;
      maior,menor,soma,vlrs_menor,vlrs_maior,vlrs_intermediarios : integer;
      media,dp,vari,ind,index: real;
      Vetor : array[1..100] of integer;

   Begin
      menor := 100;
      maior := 0;
      soma  := 0;
      media := 0;
      vari  := 0;
      vlrs_menor  := 0;
      vlrs_maior  := 0;
      vlrs_intermediarios  := 0;
      for i := 1 to 100 do
      begin
         writeln(output,'digite o elemento :',i);
         readln(input,vetor[i]);
         if Vetor[i] < menor then
            menor := Vetor[i]
         else
            if vetor[i] > maior then
               maior := vetor[i]; 
      end;
      for i := 1 to 100 do
        begin
          soma := soma + vetor[i];
          media := soma / 100;
        end;
      for i := 1 to 100 do 
        begin
           vari := vari + ( vetor[i] - media)*( vetor[i] - media);
           dp := sqrt(vari / 100);
        end;
      for i := 1 to 100 do
         begin
            ind   := media - dp;
            if vetor[i] < ind then
               vlrs_menor := vlrs_menor + 1;
         end;
      for i := 1 to 100 do
         begin
            index   := media + dp;
            if vetor[i] > index then
               vlrs_maior := vlrs_maior + 1;
         end;
      for i := 1 to 100 do
         begin
            ind   := media - dp;
            index   := media + dp;
            if ((vetor[i] > ind) and (vetor[i] < index)) then
                vlrs_intermediarios := vlrs_intermediarios +1;
         end;

      writeln(output,'O maior valor é:' ,maior);
      writeln(output,'O menor valor é:' ,menor);
      writeln(output,'a média é igual a:' ,media:4:4);
      writeln(output,'o desvio padrão é igual a:' ,dp:4:4);
      {esses valores informei por questões próprias}
      writeln(output,'ind é igual a:',ind:4:4);
      writeln(output,'index é igual a:',index:4:4);
      {fim dos valores não requisitados}
      writeln(output,'o número de valores menores que media - dp é igual a:' ,vlrs_menor);
      writeln(output,'o número de valores maiores que media + dp é igual a:' ,vlrs_maior);
      writeln(output,'o número de valores intermediários é igual a:' ,vlrs_intermediarios);

     readln;
   end.

 

Agora a mesma questão so que de maneira certa e com enunciado (rsrsrsrs):

 

{
Faça um programa Pascal que leia 100 numeros inteiros do teclado,
armazenando-os em um vetor, e informe:
 
(a) o menor valor lido,
(b) o maior valor lido,
(c) a media (md) dos valores lidos,
(d) o desvio padrao (dp) da media,
(e) o numero de valores menores do que o valor md-dp,
(f) o numero de valores no intervalo fechado [md-dp,md+dp], e
(f) o numero de valores maiores do que o valor md+dp.
}

program AD1Q2(input{teclado}, output{video});

const
   N = 5;
type
   t_dominio = 1..N;
   t_vetor = array[t_dominio] of integer;

{---------------------------------------------------------------------}

procedure ler(Var vet{s}: t_vetor; Var maior, menor, soma{s}: integer);

var
   i: integer;

begin

   write(output, 'vetor[1]= ');
   readln(input, vet[1]);
   maior := vet[1];
   menor := vet[1];
   soma := vet[1];

   for i := 2 to N do
      begin
         write(output, 'vetor[', i, ']= ');
         readln(input, vet[i]);
         soma := soma + vet[i];
         if vet[i] > maior then
            maior := vet[i]
         else
            if vet[i] < menor then
               menor := vet[i]
      end;

end;

{---------------------------------------------------------------------}

var
   v: t_vetor;
   i, maior, menor, soma: integer;
   media, ac, dp, A, B: real;
   qtdantes, qtddentro, qtddepois: integer;

begin

   ler(v, maior, menor, soma);

   media := soma / N;

   ac := 0;
   for i := 1 to N do
      ac := ac + sqr(v[i]-media);
   dp := sqrt(ac/N);

   A := media - dp;
   B := media + dp;
   qtdantes := 0;
   qtddentro := 0;
   qtddepois := 0;

   for i := 1 to N do
      if (v[i] > B) then
         qtddepois := qtddepois + 1
      else
         if (v[i] < A) then
            qtdantes := qtdantes + 1
         else
            qtddentro := qtddentro + 1;
 
   writeln(output, 'Menor Valor = ', menor);
   writeln(output, 'Maior Valor = ', maior);
   writeln(output, 'Media = ', media:6:2);
   writeln(output, 'Desvio Padrao = ', dp:6:2);
   writeln(output, 'Numero de valores antes do intervalo = ', qtdantes);
   writeln(output, 'Numero de valores no intervalo = ', qtddentro);
   writeln(output, 'Numero de valores depois do intervalo = ', qtddepois);
   readln;

end.

 

Bom pessoal desejo boa sorte a todos e também boa semana.

Renato.

[Lee Shaoram]

Por acaso alguém vai entregar alguma AD amanhã no pólo?

Att,

Renan P.S

Graduando em Tecnologia em Sistemas da Computação - UFF

---

Date: Mon, 20 Aug 2012 11:40:36 -0300

Subject: Re: [computação_cederj] Programa para Pascal

From: martelot...@gmail.com
To: comp_...@googlegroups.com

--
 
 
 

[Lee Shaoram]

No cronograma está assim:

Aula 3: Áreas de um Programa Pascal. Compilando, Corrigindo 

e Executando Programas Pascal

Projeto de Laboratório do Capítulo 4 (*)

O que é isso? Alguém sabe? Teve uma aula no laboratório do pólo, foi?

Att,

Renan P.S

Graduando em Tecnologia em Sistemas da Computação - UFF

---

From: san...@hotmail.com
To: comp_...@googlegroups.com
Subject: [computação_cederj] Entreda de ADs amanhã
Date: Mon, 20 Aug 2012 17:39:12 +0000

--