algoritimo

1. Faça um algoritmo que leia um número inteiro qualquer. O algoritmo deve calcular e escrever o quadrado, a raiz quadrada, e a divisão do quadrado pela raiz quadrada do número lido.
ALGORITMO UM;
VAR
N, QUA : INTEIRO;
RQ, DIV_QUA_RA: REAL;
INICIO
ESCREVER(‘ INFORME UM NUMERO INTEIRO QUALQUER’ );
LER ( N );
QUA ß N ** 2;
ESCREVER ( ‘ O QUADRADO DE ‘, N ,’ É: ‘, QUA);
RQ ß N // 2;
ESCREVER ( ‘ A RAIZ QUADRADA DE ‘, N ,’ É: ‘, RQ);
DIV_QUA_RA ß QUA / RQ;
ESCREVER ( ‘ A DIVISÃO DE ‘, QUA , ‘ POR ‘, RQ, ’ É: ‘, DIV_QUA_RA);
FIM.
2. Faça um algoritmo que calcule e escreva o preço final de um computador, sendo fornecido o preço de fábrica. O preço final do computador é calculado com base nos adicionais de: 30 % de imposto e 10 % de revenda sobre o preço de fábrica.
ALGORITMO DOIS;
CONST
IMPOSTO = 30;
REVENDA = 10;

2

VAR
P_FAB, IMP, REV, P_FINAL: REAL;
INICIO
ESCREVER (‘ INFORME O PREÇO DE FABRICA DO COMPUTADOR ‘);
LER ( P_FAB );
IMP ß P_FAB * IMPOSTO/ 100;
REV ß P_FAB * REVENDA/ 100;
P_FINAL ß P_FAB + IMP + REV;
ESCREVER (‘ O PREÇO FINAL DO COMPUTADOR É R$ ‘, P_FINAL );
FIM.
3. Faça um algoritmo que leia três números inteiros e calcule a sua média. Ao final, o algoritmo deve escrever os números lidos e o resultado da média.
ALGORITMO TRES;
VAR
N1, N2, N3, MEDIA: REAL;
INICIO
ESCREVER(‘INFORME TRES VALORES PARA O CALCULO DA MÉDIA’);
LER ( N1, N2, N3);
MEDIA ß (N1 + N2 + N3) / 3;
ESCREVER ( ‘ OS NUMEROS LIDOS FORAM ‘, N1, ‘ ‘, N2, ‘ ‘, N3);
ESCREVER ( ‘ E A MÉDIA É: ‘, MEDIA);
FIM.
4. Fazer um algoritmo que calcule o número de litros de combustível gastos em uma viagem, sabendo-se que o carro faz 12 km com um litro. Deverão ser lidos o tempo gasto na viagem e a velocidade média. Aplicar as seguintes fórmulas:
•

Distância = tempo gasto x velocidade média

•

litros gastos = distância / 12

ALGORITMO QUATRO;
VAR
LT, TE, VM, DST: REAL;

3

INICIO
ESCREVER (‘ INFORME O TEMPO GASTO NA VIAGEM ‘);