Introdução ao processamento de dados
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