Trabalho de Pascal

Páginas: 12 (2935 palavras) Publicado: 22 de outubro de 2013
{
1. Faça um algoritmo para ler três números inteiros e escrever a média dos números lidos
}
program Media_de_tres_numeros;
var numero1,numero2,numero3,media:integer;
begin
writeln('digite 1 numero');
readln(numero1);
writeln('digite outro numero');
readln(numero2);
writeln('digite mais outro numero');
readln(numero3);
writeln('a media dos 3 numerossao:',(numero1+numero2+numero3)/3);
readln(media);
end.
{2. Faça um algoritmo para ler os coeficiente de uma equação do segundo grau e escrever o valor do
seu Delta.}
program equacao_do_grau;
var a,b,c,delta:real;
begin
writeln('informe o valor de a,b e c:');
readln(a,b,c);
delta:=(b*b-4*a*c);
writeln('O delta e:', delta );
readln;
end.
{3. Faça um algoritmo para ler os catetos de um triângulo retângulo e escrever asua hipotenusa.}
program triangulo_retangulo;
var catetoA,catetoB,hipotenusa:real ;
begin
writeln('digite o cateto a');
readln(catetoA);
writeln('digite o cateto b');
readln(catetoB);
hipotenusa:=sqrt(catetoa*catetoa+catetob*catetob) ;
writeln('A hipotenusa e:',hipotenusa);
readln;
end.
{4. Faça um algoritmo para ler uma temperatura em graus Celsius e transformá-la em farenheit.Utilize
a seguinte fórmula: F=180(c+32)/100}
program conversao_de_temperatura;
var f,c:real;
begin
writeln('escreva a temperatura em graus celsius') ;
readln(c);
f:=((180*c)/100)+32; //a formula matematica da apostila esta errada.
writeln('temperatura em farenheit e:',f);
readln;
end.
{5. Faça um algoritmo para ler o preço de compra e o percentual de lucro desejado por um vendedor e
calcularo preço de venda.}
program compra_percentual_venda;
var compra,lucro,venda:real;
begin
writeln('informe o preco de compra');
readln(compra);
writeln('informe a porcentagem de lucro');
readln(lucro);
venda:=(((compra*lucro)/100)+compra);
writeln('preco de venda e:',venda);
readln;
end.
{6. Faça um algoritmo para ler duas variáveis inteiras e trocar o seu conteúdo.}
programtrocar_numero;
uses crt;
var num1,num2,auxiliar:integer;
begin
writeln('informe o primeiro numero');
readln(num1);
writeln('informe o segundo numero');
readln(num2);
auxiliar:=num1;
num1:=num2;
num2:=auxiliar;
writeln('numero1 =',num1);
writeln('numero2 =',num2);
readkey;
end.
{7. Faça um algoritmo para ler o horário de entrada e saída de um cliente na fila de um banco e seguida
calcular otempo de permanência do cliente na fila. Cada horário será lido em duas variáveis
inteiras representando a hora e os minutos. A resposta deve ser dada em horas (ex. 3:10).}
program horario_na_fila;
uses crt;
var horaInicio,horaFim,minInicio,minFim,hora,min:integer;
begin
writeln(' -------- Horario Inicial -----');
writeln(' HORA:');
writeln(' MINUTOS:');
readln(horaInicio,minInicio);minInicio:=horaInicio*60 + minInicio;
writeln(' -------- Horario Final -----');
writeln(' HORA:');
writeln(' MINUTOS:');
readln(horaFim,minFim);
minFim:=horaFim*60 + minFim;
min:=minFim - minInicio;
hora:=min div 60;
min:=min mod 60;
writeln(' RESULTADO: Hora = ', hora,' : ',min);
readkey;
end.
{8. Faça um algoritmo para ler o valor do saque realizado pelo cliente de um banco e escreverquantas
notas de cada valor serão necessárias para atender ao saque com a menor quantidade de notas
possível. Serão utilizadas notas de 100, 50, 20, 5 e 1 reais.}
program ssaque;
uses crt;
const
um=1;
cinco=5;
vinte=20;
cinquenta=50;
cem=100;
var
saque,minima,auxSaque,maiorNota:integer;
begin
repeat
writeln(' informe o valor do saque');
readln(saque);
until saque>0;
auxSaque:=saque;repeat
minima:=minima + 1;
if(auxSaque=um) or (auxSaque=cinco)or(auxSaque=vinte)or(auxSaque=cinquenta)or(auxSaque=cem)then
begin
auxSaque:=0;
end else begin
// maior nota menor que auxSaque
if (um < auxSaque ) and (cinco >auxSaque) then
begin
maiorNota:=um;
end else begin
if (cinco < auxSaque ) and (vinte >auxSaque) then
begin
maiorNota:=cinco;
end else begin
if (vinte <...
Ler documento completo

Por favor, assinar para o acesso.

Estes textos também podem ser interessantes

  • trabalho de pascal
  • trabalho Pascal
  • trabalho principio pascal e arquimedes
  • Trabalho de fisica Lei de Pascal
  • Trabalho de programação pascal
  • Trabalho Principio De Pascal
  • Pascal
  • Pascal

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!