sdvsdw

Escola Secundária de Camarate
PSI – 11º Ano
2013/2014
Ficha de Trabalho Nº2

Tendo em atenção os vossos conhecimentos adquiridos ao longo do 1º ano do curso, na disciplina de PSI, resolva os seguintes problemas num ficheiro de texto, em linguagem PASCAL.
Exercício nº1
Elabore um programa que introduzindo 3 números inteiros, determine qual deles é o maior.
Program maior;
Var X,Y,Z:inteiro;
Begin
Write(‘Introduza X: ‘);
Read(x);
Write(‘Introduza Y: ‘);
Read(Y);
Write(‘Introduza Z: ‘);
Read(Z);
Begin;
If x>y and x>z then;
Write(X , ‘é o maior’);
If y>z then;
Write(Y, ‘é o maior’);
Else
Write(Z, ‘é o maior’);
End;
End.

Exercício nº2
Escreva um programa que dados três coeficientes (números reais) de uma equação do segundo grau, são calculadas as suas raízes, desde que isso seja possível.
Program raíz;
Var X:=real
Begin
If a=0 Then
Write (‘Equação impossivel, introduza o valor da a0’)
Read(a)
If(b*b-4*ac) temp2 and temp2>temp3 and temp3>temp4 and temp4>temp5 and temp5>temp6 then
Writeln(‘A primeira temperature é a maior’);
Else
IF temp2>temp3 and temp3>temp4 and temp4>temp5 and temp5>temp6 then
Writeln(‘A segunda temperature é a maior’);
Else
If temp3>temp4 and temp4>temp5 and temp5>temp6 then
Writeln(‘A Terceira temperature é a maior’); Else
If temp4>temp5 and temp5>temp6 then
Writeln(‘A Quarta temperatura é a maior’);
Else
If temp5>temp6 then
Writeln(‘A Quinta temperature é a maior’);
Else
Writeln(‘A sexta temperature é a maior’);
End.