serfessd

Instituto Federal de Educação, Ciência e Tecnologia do Piauí.
Campus de Parnaíba
Curso: Desenvolvimento de Software / 3° Ano
Disciplina: Programação Comercial
Professor: Flávio Barros
Alunos: Ariane Castro Alencar
N°: 01
Daniel da Silva Farias
N°: 04

Trabalho Avaliativo
Pascal

Parnaíba (PI), 28 de Junho de 2012.

Program Questao01;
{Programa que calcula a soma dos 2 maiores numeros entre 3;}
{Autores: Ariane Castro Alencar;
Daniel da Silva Farias;} uses crt; var num1, num2, num3, soma : integer; begin WriteLn('Digite o primeiro numero: ');
ReadLn(num1);
WriteLn('Digite o primeiro numero: ');
ReadLn(num2);
WriteLn('Digite o primeiro numero: ');
ReadLn(num3);
if((num1 > num2)AND(num2 > num3))OR((num2 > num1)AND(num1 > num3))then
{casos em que o primeiro e o segundo sao maiores;} soma := num1+num2 else if((num3 > num1)AND(num1 > num2))OR((num1 > num3)AND(num3 > num2)) then
{casos em que o primeiro e o terceiro sao maiores;} soma := num1+num3 else if((num2 > num3)AND(num3 > num1))OR((num3 > num2)AND(num2 > num1)) then
{essa terceira condicao pode ser omitida;} soma := num2+num3;
WriteLn('A soma dos maiores valores sao: ', soma);
ReadKey;
end.

Program Questao02;
{Programa que discrimina triangulos de acordo com seus lados;}
{Autores: Ariane Castro Alencar;
Daniel da Silva Farias;} uses crt; var lado1, lado2, lado3 : integer; begin WriteLn('Digite a medida do primeiro lado: ');
ReadLn(lado1);
WriteLn('Digite a medida do segundo lado: ');
ReadLn(lado2);
WriteLn('Digite a medida do terceiro lado: ');
ReadLn(lado3);
//Processamento: if (lado1 = lado2) AND (lado2 = lado3) then {verificar se todos sao iguais;}
WriteLn('O triangulo eh equilatero.') else if (lado1 lado2) AND (lado2 lado3) AND (lado1 lado3) then {verificar se todos sao diferentes;}
WriteLn('O triangulo eh escaleno') else WriteLn('O triangulo eh isosceles');
//Fim do processamento;
ReadKey;
end.

Program Questao03;
{Programa que