Ajuda em exercício de lógica de programação, sequência lógica
19/09/2015
0
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
Posts
19/09/2015
Gleyton Menezes
19/09/2015
Nilson Silva
Eu também não entendi muito bem esse exercício, mas pode ser que o enunciado esteja errado.
19/09/2015
Gleyton Menezes
19/09/2015
Nilson Silva
O problema é que eu não sou iniciante kkkk
19/09/2015
Gleyton Menezes
30/09/2015
Alexandre Davila
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
30/09/2015
Gleyton Menezes
Clique aqui para fazer login e interagir na Comunidade :)