×
Ir ao conteúdo
  • Cadastre-se

highlander2010

Membro Júnior
  • Posts

    4
  • Cadastrado em

  • Última visita

Reputação

0

Sobre highlander2010

  • Data de Nascimento 27/06/1984 (37 anos)

Informações gerais

  • Cidade e Estado
    Porto Alegre,RS
  1. Dados dois números naturais, M e N, sendo M < N, fazer um programa que calcule e apresente a soma dos números primos contidos no intervalo [M, N]. Tenho como achar os primos,mas não sei encontrar a soma deles nem a media entre os primos desse intervalo. Abraço! Alguém sabe program Exemplo3; uses crt; {....Exemplo3 da aula 15/set/09} var N, d, sd: integer; primo: boolean; begin clrscr; textcolor(14); writeln(); write('Informe o numero: '); readln(N); d := 2; sd := 0; if (N > 3) then repeat if (N mod d = 0) then sd := sd + d; d := d + 1; until (d > N div 2); primo := ((sd = 0) AND (N > 1)); if (primo = true) then writeln('O numero informado é primo!!') else writeln('O numero informado nao é primo!!'); writeln(); write('Digite qlq tecla para encerrar!'); readkey; end.
  2. Acho que formularei melhor: o numerador começa em 1 e soma 2 em cada termo: o primeiro é 1, o segundo é 3 e o terceiro é 5 o denominador segue a serie de fibonacci: o primeiro é 1, o segundo é 1 e o terceiro é 2, o quarto é 3,5,8,13... a somatoria é a soma das fraçoes: 1/1 + 3/1 + 5/2 + 7/3 + 9/5 + 11/8 +..... se rodar o codigo verá que não consigo atingir a soma para 5 termos: o correto seria: 1/1 + 3/1 + 5/2 + 7/3 + 9/5 = 10.65, mas não consigo este valor! Obrigado pela ajuda program q2; uses crt; var s, parcela: real; tn, tnmenos1, tnmenos2, termo, N: integer; begin clrscr; textcolor(14); write('Informe o numero de termos: ');readln(N); s:=0; if (N > 0) then begin if (N = 1) then s:= 1; if (N = 2) then s:= 1 + 3/1; if (N > 2) then begin tnmenos1:=1; tnmenos2:=1; termo:=3; s:= 1 + 3/1 ; write('1/1,3/1, '); repeat termo:=termo + 2; tn:=tnmenos1 + tnmenos2; parcela:=termo/tn; write(termo,'/',tn,', '); s:=s + parcela; tnmenos2:=tnmenos1; tnmenos1:=tn; until (termo = N ); end; end; writeln(); writeln(' S = ',s:0:4); writeln(); write('digite qualquer para encerrar...'); readkey; end.
  3. Pessoal, não consigo achar a somatoria correta. Por exemplo,a soma correta para 5 termos a soma é 10.63. acredito não ter arbritrado o valor de termo:= ,corretamente. Aguém pode me ajudar. muito obrig ENUNCIADO: Dado um número natural N, não zero, construir um programa que calcule, apresente o valor de S e grave em um arquivo, os termos da série, para uma aproximação de N termos: S = 1 /1 + 3/1 + 5/2 + 7/3 + 9/5 + 11/8 + 13/13 + 15/21 +..... As características do arquivo a ser gravado, são: •Nome: V2Q2220092.dat •Estrutura dos dados o Ordem do termo na série (integer) o Numerador do termo (integer) o Denominador (integer) •Localização: pasta corrente •Separador de campo: ; (ponto e vírgula) program q2; uses crt; var s, parcela: real; tn, tnmenos1, tnmenos2, termo, N: integer; txtFile:Text; registro:string[30]; nstring,termostring,tnstring:string; begin clrscr; textcolor(14); write('Informe o numero de termos: ');readln(N); s:=0; if (N > 0) then begin if (N = 1) then s:= 1; if (N = 2) then s:= 1 + 3/1; if (N > 2) then begin tnmenos1:=1; tnmenos2:=1; termo:=3; s:= 1 + 3/1 ; write('1/1,3/1, '); repeat termo:=termo + 2; tn:=tnmenos1 + tnmenos2; parcela:=termo/tn; write(termo,'/',tn,', '); s:=s + parcela; tnmenos2:=tnmenos1; tnmenos1:=tn; assign(txtFile,'q2rec.dat'); rewrite(txtFile); begin str(n,nstring); str(termo,termostring); str(tn,tnstring); registro:=nstring+';'+termostring+';'+tnstring; writeln(txtFile,registro); end; close(txtFile); until (termo = N ); end; end; writeln(); writeln(' S = ',s:0:4); writeln(); write('digite qualquer para encerrar...'); readkey; end.
  4. Pessoal,eu e alguns colegas estamos com dificuldades em encontrar a media aritmetica da intersecção deste problema. Estou tentando ainda, mas encontro muitas dificuldades para gerar o somatorio e ocontador. Estou enviando o problema para ver alguém de vocês encontra meu erro. Abraço a todos! Enunciado: {Dados M e N, números naturais, sendo M < N, fazer um programa que calcule e apresente a média aritmética dos números naturais contidos na interseção I Sendo: C1 o conjunto dos números naturais contidos no intervalo [M, N]; C2 o conjunto de números contidos em uma matriz Mat[150,160] preenchida com números aleatórios no intervalo [0, 10000) e randseed = 13; C3 o conjunto dos números naturais perfeitos} TENTATIVA DE RESOLUÇÃO: program Exercicio; uses crt; var X: array[1..150,1..160] of integer; i, j, M, N, aux: integer; intersecao: boolean; function verSeEstaNoIntervalo(umNumero, li, ls:integer):boolean; begin result := ((umNumero >= li) and (umNumero <= ls)); end; function verSePerfeito(umNumero: integer):boolean; var sd, d: integer; perfeito: boolean; begin d:=1; sd:=0; if (umNumero >5) then repeat if (umNumero mod d = 0) then sd:=sd + d; d:=d+1; until (d>umNumero div 2); perfeito:=((sd = umNumero)and(umNumero>5)); result := perfeito; end; begin clrscr; textcolor(14); writeln(); write('Informe o valor de M: '); readln(M); write('Informe o valor de N: '); readln(N); if (M > N) then begin aux := M; M := N; N := aux; end; randomize; randseed := 13; for i:=1 to 150 do for j:=1 to 160 do X[i,j] := random(10000); for i:=1 to 150 do for j:= 1 to 160 do begin intersecao := ((verSeEstaNoIntervalo(X[i,j],M,N)) and (verSePerfeito(X[i,j]))); if (intersecao = true) then begin media:=soma/ ........ end; end; writeln(); writeln('Media aritmetica dos nuemros da interseccao:',); writeln(); write('Digite qlq tecla para encerrar!'); readkey;

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!