TRABALHO IPD

Prévia do material em texto

1)Faça um programa que calcule e escreva o valor S, onde:
 S= 1/1 + 3/2 + 5/3 + 7/4 + ... + 99/50.
 Usando a estrutura REAPEAT.
 RESPOSTA:
program soma;
var
soma,x,y:real;
begin
 x:=1;
 y:=1;
 repeat
 x:=x+2;
 y:=y+1;
 soma:=soma+(x/y);
 writeln(‘A soma é:’,soma);
 until x<=99;
end.
2)Implemente um programa para gerar os termos da seguinte PG:
 3,9,27,81...
 Calcule o nº termo (utilize a estrutura REAPEAT).
RESPOSTA:
program segundo; 
var 
i, n,acc : integer; 
begin 
  acc := 3; 
  i := 0; 
  writeln('Digite o numero do termo: '); 
  readln(n); 
  repeat 
 i:=i+1;
  acc := acc * 3;
  until (i = n); 
  writeln('O n termo da PG é: ', acc); 
end.