Ajuda em exercício de lógica de programação, sequência lógica

Off Topic

19/09/2015

Estou com dificuldade em fazer o seguinte exercício:
Gere e exiba cada uma das seqüências abaixo com uma quantidade k de termos determinados pelo usuário.
1ª sequencia: 1/8, 3/16, 5/24, 7/32, 9/40, 11/48,...
2ª sequencia: 4/8, 1, 36/24, 2, 100/40, 144/48,...


especificamente na 2ª sequencia, eu percebi que a cada termo é somado o valor de 0,5, o algoritmo que eu fiz ficou assim(porém está errado pois o 5º número da sequência será 60/24 e na sequencia do exercício é 100/40)

Program Pzim ;
Var
i, k, j, M, D1, D2, D1_1, D2_2, N1, N2, cont: Integer;
Begin
  cont:=0;
  N1:=4;
  N2:=3;
  M:=1;
  D1:=8;
  D2:=6;
  k:=5;
  Writeln(N1, '/', D1);
  
  for j := 1 to 100 do
  begin
    D1_1:=D1;
    D2_2:=D2;
    
    for i := 2 to 5 do
    begin
      Repeat
        cont:=0;
        begin
          if (((D1 <> 1) and (D2 <> 1))
          and (D1 MOD i = 0)
          and (D2 MOD i = 0)) then begin
            D1:=D1 DIV i;
            D2:=D2 DIV i;
            M:=M*i;
            cont:=cont+1;
          end
          
          else
          begin
            if ((D1 <> 1) and (D1 MOD i = 0)) then begin
              D1:=D1 DIV i;
              M:=M*i;
              cont:=cont+1;
            end        else begin
              if ((D2 <> 1) and (D2 MOD i = 0)) then begin
                D2:=D2 DIV i;
                M:=M*i;
                cont:=cont+1;
              end;
            end;
          end;
        end
      until(cont = 0);
    end;
    
    D1:=M;
    N1:=((M DIV D1_1) * N1) + ((M DIV D2_2) * N2);
    
    Writeln(N1, '/', M);
    
    M:=1;
    D2:=6;
    
  end;
  
  
End.


Alguém sabe como gerar essa sequência?
Nilson Silva

Nilson Silva

Curtidas 0

Respostas

Gleyton Menezes

Gleyton Menezes

19/09/2015

Realmente eu não entendi o enunciado da questão, não foi por que você escreveu, mas está dificil pra mim.
GOSTEI 0
Nilson Silva

Nilson Silva

19/09/2015

Realmente eu não entendi o enunciado da questão, não foi por que você escreveu, mas está dificil pra mim.

Eu também não entendi muito bem esse exercício, mas pode ser que o enunciado esteja errado.
GOSTEI 0
Gleyton Menezes

Gleyton Menezes

19/09/2015

Exercicio pesado para iniciante, dependendo da quantidade de aulas e quais materias foram explicadas, e muito bem explicadas!
GOSTEI 0
Nilson Silva

Nilson Silva

19/09/2015

Exercicio pesado para iniciante, dependendo da quantidade de aulas e quais materias foram explicadas, e muito bem explicadas!

O problema é que eu não sou iniciante kkkk
GOSTEI 0
Gleyton Menezes

Gleyton Menezes

19/09/2015

Mesmo assim Nilson, eu estudei lógica e confesso que não sei resolver essa questão, com um auxilio do professor fica melhor.
GOSTEI 0
Alexandre Davila

Alexandre Davila

19/09/2015

Eu não não fiz o código ainda mas fazendo de forma que se represente apenas frações e não o resultado da fração fiz assim:
N = 1 M = 1 (fora do laço)
AN = 1; AD = 8; BN = 4; BD = 8

no laço
x = M
y = AD*N
z = BN*N²
w= BD*N

A = x/y
B = z/w

N = N+1
M = M+2


sequencia A

1/8; 1+2/8*2; 3+2/8*3; 5+2/8*4

sequencia B

4*1^2/8*1; 4*2^2/8*2; 4*3^2/8*3

e ai vai....ai é só escrever no código que ainda não sou muito bom kkkkk

espero ter ajudado

Abraço
GOSTEI 0
Gleyton Menezes

Gleyton Menezes

19/09/2015

Assim já ajuda bastante Alexandre, acho que dá para desenvolver, concorda Nilson?
GOSTEI 0
POSTAR