Computação TOP10

Aproveitando que fizemos uma prova de Pascal hoje, vamos divulgar duas das questões para que sejam analisadas por vocês.

1) Elabore um algoritmo que o usuário forneça um número inteiro (que é decimal), calcule e mostre este número em binário. Obs: Para facilitar a construção do número binário pode usar o vetor como recurso.

2) Elabore um algoritmo que o usuário forneça um número inteiro positivo N e, através da função FORMULA(N), retorne o valor de H, conforme abaixo:
H = 1 + 1/2 + 3 + 1/4 + ... + (N ou 1/N)

Abaixo segue o algoritmo feito no programa Pascalzim.


ALGORITMO1


//Questão 1
//Por Geidson Benício
//Data: 15/06/2011.


Program binario;
var
n, i:integer;
binario:array[1..7] of integer; 
Begin
write('Digite número:');
readln(n);
i:=1;
repeat
begin
binario[i]:= n mod 2;
n:= n div 2; 
i:=i+1;  
end;
until (n=1);

binario[i]:= n;         
                       
for i:=i downto 1 do    
begin
write(binario[i]);
end;
End.




Algoritmo 2
//Questão 2

//Por Geidson Benício.
//Revisado por Vanessa Souza.
//Data: 15/06/2011.


Program questao2;
var
n:integer;


function formula(x:integer):real;var
i:integer;
h:real;begin
for i:=1 to x do                   
begin                    
if i mod 2 = 1 then 
h:= h+i
else 
h:= h+(1/i);
end;
formula:=h;
end;


Begin
write('Digite número: ');         
readln(n);  
writeln(formula(n):1:2);
End.