Exercícios resolvidos - Pascal
By Diego
Problemas Resolvidos em Algoritmos, Pascal
Alguns exemplos de problemas resolvidos em Algoritmos, Pascal.
Algoritmo do Triângulo
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.
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.
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.
Algoritmo Serie
Variaveis
Contador: Inteiro
N,Soma, Media :Real
Inicio
Contador <- 0 Soma <- 0 Enquanto Contador < 20 faca Leia (N) Soma <- Soma + N Contador <- Contador + 1 Fim Enquanto Media <- Soma / 20
Se Media > 8 Entao
Media <- 10 Fim Se Escreva (Media) Fim
Em Pascal:
Program MEDIA_20;
Uses crt;
var
conta:integer;
media,num,soma:real;
Begin
Clrscr;
conta := 0;
soma := 0;
Writeln ('Digite 20 numeros');
While conta < 20 do Begin read (num); soma := soma + num; conta := conta + 1; End; media := (soma / 20);
if media > 8 then
Writeln ('media =10');
else
Writeln ('A media ‚');
Writeln (media);
End.
Algoritmo 3 Menores
Faça um algoritmo que leia 3 números inteiros e imprima o menor deles.
Em Algoritimo:
Algoritmo Menor
Variaveis
A, B, C, Menor : Inteiro
Inicio
Leia ( A,B,C)
Se (A <>
Escreva (Menor)
Fim
Fim
Em Pascal:
Program MENOR_N;
Uses crt;
var
n1,n2,n3,menor:integer;
Begin
Clrscr;
Writeln ('Digite 3 valores');
Read (N1,N2,N3);
If (N1
Em Pascal:
Uses crt;
var
n1,n2,n3,menor:integer;
Begin
Clrscr;
Writeln ('Digite 3 valores');
Read (N1,N2,N3);
If (N1
Algoritmo Media Maior que 4
Dado um conjunto de n registros cada registro contendo um valor real, faça um algoritmo que calcule a média dos valores maiores que 4.
Em Algoritmo:
Algoritmo Media
Variaveis
N, Conta, Maior4 : Inteiro
Soma, Media, Numero :Real
Inicio
Conta <- 1 Maior4 <- 0 Soma <- 0 Leia (N) Enquanto Conta <> 4 Entao
Soma <- Soma + Numero Maior4 <- Maior4 + 1 Fim Se Conta <- Conta + 1 Fim Enquanto Media <- Soma / Maior4 Escreva (Media) Fim
Algoritmo Media
Variaveis
N, Conta, Maior4 : Inteiro
Soma, Media, Numero :Real
Inicio
Conta <- 1 Maior4 <- 0 Soma <- 0 Leia (N) Enquanto Conta <> 4 Entao
Soma <- Soma + Numero Maior4 <- Maior4 + 1 Fim Se Conta <- Conta + 1 Fim Enquanto Media <- Soma / Maior4 Escreva (Media) Fim
Em Pascal:
program maior4;
uses
CRT;
var
n, aux: integer;
soma, media, numero: real;
begin
Clrscr;
write ('Digite valores diferentes de 999');
writeln;
aux := 0;
soma := 0;
read (numero);
while numero <> 999 do
begin
if numero > 4 then
begin
soma:= soma + numero;
aux := aux + 1;
end;
read (numero);
end;
media := (soma/aux);
write ('MEDIA=');
write (media);
end.
uses
CRT;
var
n, aux: integer;
soma, media, numero: real;
begin
Clrscr;
write ('Digite valores diferentes de 999');
writeln;
aux := 0;
soma := 0;
read (numero);
while numero <> 999 do
begin
if numero > 4 then
begin
soma:= soma + numero;
aux := aux + 1;
end;
read (numero);
end;
media := (soma/aux);
write ('MEDIA=');
write (media);
end.
Algoritmo Salário
Uma empresa tem para um determinado funcionário uma ficha contendo o nome, número de horas trabalhadas e o n0 de dependentes de um funcionário.
Considerando que:
a) A empresa paga 12 Meticais por hora e 40 Meticais por dependentes.
Sobre o salário são feito descontos de 8,5% para o INSS e 5% para IR.
Faça um algoritmo para ler o Nome, número de horas trabalhadas e número de dependentes de um funcionário. Após a leitura, escreva qual o Nome, salário bruto, os valores descontados para cada tipo de imposto e finalmente qual o salário líquido do funcionário.
Considerando que:
a) A empresa paga 12 Meticais por hora e 40 Meticais por dependentes.
Sobre o salário são feito descontos de 8,5% para o INSS e 5% para IR.
Faça um algoritmo para ler o Nome, número de horas trabalhadas e número de dependentes de um funcionário. Após a leitura, escreva qual o Nome, salário bruto, os valores descontados para cada tipo de imposto e finalmente qual o salário líquido do funcionário.
Em Algoritmo:
Algoritmo salario
variaveis
nome : cadeia
dependente : inteiro
horas, salariol, salariob, DescontoI, DescontoR : real;
Inicio
Leia(nome,horas, dependente)
salariob <- (12 * horas) + (40 * dependente) DescontoI <- (salariob*0,085) DescontoR <- (salariob*0,05) salariol <- (salariob - DescontoI, DescontoR) Escreva(nome,salarioB, DescontoI, DescontoR, salarioL) Fim
variaveis
nome : cadeia
dependente : inteiro
horas, salariol, salariob, DescontoI, DescontoR : real;
Inicio
Leia(nome,horas, dependente)
salariob <- (12 * horas) + (40 * dependente) DescontoI <- (salariob*0,085) DescontoR <- (salariob*0,05) salariol <- (salariob - DescontoI, DescontoR) Escreva(nome,salarioB, DescontoI, DescontoR, salarioL) Fim
Em Pascal:
Program Salario;
Uses
Crt;
Var
Nome:String;
Numhora, Salbruto, Salliq:Real;
Numdep:Integer;
Begin
Clrscr;
Write ('Digite O Nome Do Funcionario:');
Read (Nome);
Writeln;
Write ('Numero De Horas Trabalhadas:');
Read (Numhora);
Writeln;
Write ('E Numero De Dependentes:');
Read (Numdep);
Writeln;
Salbruto:=(12*Numhora)+(40*Numdep);
Salliq:=Salbruto-((Salbruto*0.085)+(Salbruto*0.05));
Write ('Nome Do Funcionario:');
Write (Nome);
Writeln;
Write ('Salario Liquido:');
Write (Salliq);
End.
Uses
Crt;
Var
Nome:String;
Numhora, Salbruto, Salliq:Real;
Numdep:Integer;
Begin
Clrscr;
Write ('Digite O Nome Do Funcionario:');
Read (Nome);
Writeln;
Write ('Numero De Horas Trabalhadas:');
Read (Numhora);
Writeln;
Write ('E Numero De Dependentes:');
Read (Numdep);
Writeln;
Salbruto:=(12*Numhora)+(40*Numdep);
Salliq:=Salbruto-((Salbruto*0.085)+(Salbruto*0.05));
Write ('Nome Do Funcionario:');
Write (Nome);
Writeln;
Write ('Salario Liquido:');
Write (Salliq);
End.
