Scribd
Carregar
463 visualizações7 páginas

Algoritmos Pascal

O documento apresenta 6 exemplos de problemas resolvidos em algoritmos e Pascal, incluindo cálculo da área de um triângulo, preço de um automóvel, média aritmética de valores, menor entre 3 números, média de valores maiores que 4 e cálculo de salário líquido de um funcionário.

Enviado por

leaderteck
Direitos autorais
© Attribution Non-Commercial (BY-NC)
Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.
Formatos disponíveis
Baixe no formato DOC, PDF, TXT ou leia on-line no Scribd
463 visualizações7 páginas

Algoritmos Pascal

O documento apresenta 6 exemplos de problemas resolvidos em algoritmos e Pascal, incluindo cálculo da área de um triângulo, preço de um automóvel, média aritmética de valores, menor entre 3 números, média de valores maiores que 4 e cálculo de salário líquido de um funcionário.

Enviado por

leaderteck
Direitos autorais
© Attribution Non-Commercial (BY-NC)
Levamos muito a sério os direitos de conteúdo. Se você suspeita que este conteúdo é seu, reivindique-o aqui.
Formatos disponíveis
Baixe no formato DOC, PDF, TXT ou leia on-line no Scribd
Você está na página 1/ 7

Problemas Resolvidos em Algoritmos, Pascal

Alguns Exemplos de problemas resolvidos em Algoritmos, Pascal.

1.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.
1.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.

2
1.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
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.

3
1.4 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 < B) E (A <C) Entao
Menor ← A
Senao
Se B < C Entao
Menor ← B
Senao
Menor ← C
Fim se
Fim se
Escreva (Menor)
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<N2) And (N1<N3) Then
menor:=N1
Else
If (N2<N1) And (N2<N3) Then
menor:=N2
Else
menor:=N3
Writeln ('O menor valor ‚');
Writeln (menor);
End.

4
1.5 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 < N Faça
Leia (Numero)
Se Numero > 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;

5
media := (soma/aux);
write ('MEDIA=');
write (media);
end.

1.6 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.

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

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;

6
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.

Você também pode gostar

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy