Algoritmo

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 um triâ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

O preç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 nome do 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 : real
Inicio
Leia (Nome, Precofabrica) Imposto ( Precofabrica * (0,45 + 0,28) Precofinal ( Precofabrica + Imposto Escreva (Nome, Precofinal)
Fim

Em Pascal:

program preco; var nome: 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 20 valores 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