Algoritmo

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (400 palavras )
  • Download(s) : 0
  • Publicado : 8 de maio de 2011
Ler documento completo
Amostra do texto
Problemas Resolvidos em Algoritmos, Pascal

Alguns Exemplos de problemas resolvidos em Algoritmos, Pascal.

1 Algoritmo do Triangulo

Faça um algoritmo para ler a base e a altura de umtriângulo. Em seguida, escreva a área do mesmo.

Área = ( Base * Altura ) / 2

Em Algoritmo:

Algoritmo Triangulo
Variaveis:
base, altura, area : real;
Inicio
Leia(Base)
Leia(Altura)Area ( (Base * Altura)/2
Escreva (Area)
Fim

Em Pascal:

program triangulo;
var
area, base, altura: real;
begin
{ Entrada }
write ('Digite a base: ');
readln (base);
write('Digite a altura: ');
readln (altura);

{ Calculos }
area:= (base*altura)/2;

{ Saida}
writeln ('A area do triangulo e: ',area:10:2);
end.

2 Algoritmo Preço de Automóvel

Opreço de um automóvel é calculado pela soma do preço de fábrica com o preço dos impostos (45% do preço de fábrica) e a percentagem do revendedor (28% do preço de fábrica). Faça um algoritmo que leia o nomedo automóvel e o preço de fábrica e imprima o nome do automóvel e o preço final.

Em Algoritmo:

Algoritmo automovel
Variaveis
Nome : cadeia
Precofabrica, Precofinal, Imposto : realInicio
Leia (Nome, Precofabrica)
Imposto ( Precofabrica * (0,45 + 0,28)
Precofinal ( Precofabrica + Imposto
Escreva (Nome, Precofinal)
Fim

Em Pascal:

program preco;
varnome: string;
Precofabrica, PrecoFinal, imposto : real;
begin
write ('Digite nome: ');
readln (nome);
write ('Digite preco de fabrica: ');
readln (Precofabrica);
Imposto :=Precofabrica * (0.45 + 0.28);
PrecoFinal := PrecoFabrica + imposto;
writeln ('Automovel:', nome);
writeln ('Preco de venda:', PrecoFinal:10:2);
end.

3 Algoritmo Media Valor

Dado uma série de 20valores reais, faça uma algoritmo que calcule e escreva a média aritmética destes valores, entretanto se a média obtida for maior que 8 deverá ser atribuída 10 para a média.

R.
Algoritmo Serie...
tracking img