Pascal

{

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 numeros sao:',(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 a sua 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

calcular o 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.}

program trocar_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 o tempo 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:');