Introdução Ao Processamento De Dados

1. Faça um algoritmo para ler base e altura de 50 triângulos e escreva sua área.

programa_triangulo;

var

T:inteiro

base, altura, A:real;

inicio;

para T=1 até 50

faça;

inicio;

ler (base,altura);

A:=(base*altura)/2;

escreva (‘Área do triângulo’,’=’,A);

fim.

fim.

2. Faça um algoritmo para calcular N!.

programa_fatorial;

var

F,N, fat=inteiro;

inicio;

ler N;

se N=0

então

fat=1

senão

para F=1 até N

faça;

inicio;

fat:=fat*F

fim.

escreva (‘Fatorial de’,F,’=’,fat);

fim.

3. Faça um algoritmo para calcular o valor de A elevado a um expoente B. Os valores de A e B deverão ser lidos. Não usar A**B

programa_expoente;

var

B=inteiro

A,P=real;

inicio;

ler A;

ler B;

se B=0

então

P=1

senão

faça;

inicio;

P:=(A*);

repetir B vezes (A*);

escreva (A,’elevado a’,B,’=’,P);

fim.

4. Faça um algoritmo para:

a. Ler um valor x qualquer;

b. Calcular Y=(x+1)+(x+2)+(x+3)+ (x+4)+ (x+5)+...+ (x+100).

a) programa_ler_x;

var

x=real;

inicio;

ler x;

fim.

b) programa_calcular;

var

x,Y=real;

inicio;

ler x;

Y:=(x*100)+((1+100)*(100/2));

escreva (‘O valor da expressão é’,’=’,Y);

fim;

5. Faça um algoritmo para somar os números pares positivos < 1000 e ao final imprimir o resultado.

programa_soma_pares;

var

N,S=inteiro;

inicio;

para N=2 até 998

faça;

inicio;

S:=(2+998)*(498/2);

escreva (‘A soma é’,’=’,S);

fim.

fim.

6. Faça um algoritmo para gerar os termos da seguinte P.G.: 3,9,27,81..., calcule o 100º termo.

programa_progressao_geometrica;

var

N,a(N)=inteiro;

inicio;

para N=1 até 100

a(1)=3

faça;

inicio;

a(N):=3*a(N-1);

inicio;

a(100):=3*a(99);

escreva(‘O 100º termo da P.G. é’,’=’,a(100));

fim.

fim.

fim.