fewrwerwerwe

UNIVERSIDADE FEDERAL DE RONDÔNIA
DEPARTAMENTO DE MATEMÁTICA E ESTATÍSTICA
CAMPUS DE JI-PARANÁ

Curso: Bacharelado em Estatística
Disciplina: Introdução à Ciência da Computação
Lista de Exercícios – 02 - Respostas
Nome: _______________________________________________________________
Nome: ________________________________________________________________
Nome: ________________________________________________________________
(01) Escreva um algoritmo para calcular a área de um círculo. Área do círculo = 3,1415
* Raio*Raio.
(***** Pseudocódigo ****)
Algoritmo Area_Circulo
Constante
Pi ← 3.1415926535897932384626433832795: Real;
Variaveis
Raio, Area: Real;
Inicio
Leia Raio
Area ← Raio*Raio*Pi
Escreva Area
Fim

(***** Pascal *****)
Program Circulo;
// RTL para a procedure ClrScr
Uses Crt;
Const
Pi = 3.154926;
// declaração de variáveis globais
Var
Raio, Area : Real;
Begin
// limpa a tela
ClrScr;
// solicita entrada de dados e efetua o armazenamento
Write('Digite o valor do raio: ');
ReadLn(Raio);

1

// calcula a rea e exibe ao usu rio area := raio*raio*Pi;
WriteLn('A rea do círculo de raio ', raio:2:2, ': ', area:2:10);
// solicita ao usu rio o pressionamento de alguma tecla e aguarda
Write('Pressione alguma tecla...');
Read();
End.

(02) Quais os valores das expressões a seguir:
2 + 3*6
12/3*2 - 5
31/4
31 Div 4
31 Resto 4
9**(1/2)
16**0.5

Respostas:
2 + 3*6 = 2 + 18 = 20
12/3*2 - 5 = 4*2 – 5 = 8 – 5 = 3
31/4 = 7,75
31 Div 4 = 7
31 Resto 4 = 3
9**(1/2)= 3
16**0.5 = 4

(***** Pascal *****)
Program Ex_21;
Uses Math, Crt;
Var
i : Integer; x : Real;
Begin
ClrScr; i := 2 + 3*6;
WriteLn('2 + 3*6 = ', i); x := 12/3*2 - 5;
WriteLn('12/3*2 - 5 = ', x:3:2); x := 31/4;
WriteLn('31/4 = ', x:3:2); i := 31 Div 4;
WriteLn('31 Div 4 = ', i); i := 31 Mod 4;
WriteLn('31 Resto 4 = ', i); x := Power(9, 1/2);
WriteLn('9**(1/2) = ', x:3:2); x := Power(16,0.5);
WriteLn('16**0.5 = ', x:3:2);
ReadLn;
End.