Pascal

Lista de Exercícios
1)Dados A=14 B=6.5 C=32 e E= 0 podemos afirmar que as expressões algorítmicas
ABS(A^2 – 5XB)-RESTO(A,2XB)+SINAL(B) e (RAIZ(A)-LOG(B))^0 resultam,respectivamente em:
A-( X )163,5 e 1

B-( ) -19.5 e 0

C-( )-19.5 e 1

D-( )13.5 e 0

Resposta
ABS(A^2 – 5XB)-RESTO(A,2XB)+SINAL(B)

E

|14² - 5 X 6.5| - RESTO(14,13) + SINAL(B)

(RAIZ(A)-LOG(B))^0
Todo número elevado a 0

|196 – 32,5| - 1 +1

é 1.

163,5 + 0 = 163,5

2)Dados os identificadores da linguagem algorítmica
A) XYZ

C)RESTA

B)_13SAL

E)OK

D)DELTA

Podemos afirmar,quanto à validade de nome de variáveis:
( X ) Todos são válidos
( ) D é válido

(

( )Somente C e a E são válidos
) B não é inválido (

) A é válido

3)Considere as seguintes declarações em Pascal:
Var X,Y : BYTE;
S,T : STRING[5];
C : CHAR;
M,N: REAL;
A,B :INTEGER;
Identifique as atribuições inválidas e justifique sua resposta:
X:=12;

C:=’A’

N:=B/(A+1);
Resposta

T:=’Verdadeiro’; Y:=25.89;
X:=M;

N:=M;

M:=X+Y;

Y:=25.89 ; {erro}

, X:=M; {erro}

4)Escrever em linguagem Pascal as expressões aritméticas:

Resposta
a)
b)
c)
d)
e)
f)

EXP(1/3*LN(X+Y))-COS(SQR(X)) + LOG(Y)
SQR(X)-SIN(X)+EXP(3*LN(COS(X)))
EXP(1/7*LN(X-SQR(Y)))-(A+B)/(X-2)+EXP(X-Y)
SQRT(SQRT(EXP(1/3*LN(X)))+1)-X/(Y+1)
EXP(1/3*LN(X-Y))+ABS(X-3)
EXP((Y+1)*LN(X)) – (EXP(1/3*LN(X-5))+ 1/COS(Y))/2

5)Faça o algoritmo e escreva o programa em Pascal dos problemas abaixo,com uma boa apresentação na entrada e saída de dados.Faça uso da Unit CRT:
a)Calcular e escrever a aréa de um triângulo
Resposta:

Algoritmo
Declare AREA,BASE,ALTURA numérico
Escreva “A Base do triângulo:”
Leia BASE
Escreva “A Altura do triângulo:”
Leia ALTURA

AREA  BASE X ALTURA/2

Escreva “A Aréa do Triângulo é:” AREA
Fimalgoritmo

Pascal program a; uses crt ; var area,base,altura:real; begin clrscr; writeln('----- Calculando a Area de um Triangulo -----');writeln; write('Escreva a base do