Trabalhos

Problemas Resolvidos em Algoritmos, Pascal
Alguns Exemplos de problemas resolvidos em Algoritmos, Pascal.

1.1Algoritmo 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)

(Base * Altura)/2(Area

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.

1.2Algoritmo 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)

Precofabrica * (0,45 + 0,28)(Imposto

Precofabrica + Imposto(Precofinal

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.

1.3Algoritmo 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