Instituto de Computação - UNICAMP

MC111 - Introdução ao Processamento de Dados

Prova 1 - Versão A

Islene Calciolari Garcia

Primeiro semestre de 2002

(2 pontos) Escreva um programa que leia o comprimento dos lados a, b e c de um triângulo, calcule o seu perímetro e verifique se este triângulo é ou não eqüilátero.

program triangulo;
var
   a, b, c : real;
begin
   write('a :'); read (a);
   write('b :'); read (b);
   write('c: '); read (c);

   writeln('Perimetro: ', a + b + c);

   if (a = b) and (b = c) then
      writeln('O triângulo é equilátero.')
   else
      writeln('O triângulo não é eqüilátero.');
end.

Analise o seguinte programa:

program desenho;
var
  i, j: integer;
begin
   for i := 1 to 5 do 
   begin
     for j := 1 to i  do
       write('-');
     for j := 1 to 5 - i + 1 do
       write('+');  
     writeln;
   end;
end.

(2 pontos) a) Escreva a saída deste programa no espaço indicado.
```
-+++++
--++++
---+++
----++
-----+
```

(2 pontos) b) Reescreva este programa utilizando comandos do tipo while

program desenho;
var
  i, j: integer;
begin
   i := 1;
   while i <= 5 do
   begin
      j := 1;
      while j <= i do
      begin
	 write('-');
	 j := j + 1;
      end;
      j := 1;
      while (j <=  5 - i + 1) do
      begin
	 write('+');
	 j := j + 1;
      end;
      writeln;
      i := i + 1;
   end;
end.

(2 pontos) Escreva um programa para calcular o valor de x = 1 - 1/2 + 1/4 - ... - 1/38 + 1/40

program serie;
var
   x : real;
   i,s : integer;
begin
   x := 1;
   s := -1;
   for i := 1 to 20 do
   begin
      x := x + s/(2*i);
      s := -s;
   end;
end.

(2 pontos) Escreva um programa que leia uma seqüência de N valores inteiros fornecidos pelo usuário e imprima o número de valores estritamente positivos digitados. O valor N deve ser especificado pelo usuário.

Exemplo:

N: 10
1 6 -5 6 8 -7 0 0 -2 -6 
4 valores estritamente positivos.

program positivos;
var
   n, i, v, pos : integer;
begin
   write('N: ');
   read(n);
   pos := 0;
   for i:=1 to n do
   begin
      read (v);
      if (v > 0) then
	 pos := pos + 1;
   end;
   writeln(pos, 'valores estritamente positivos');
end;

Islene Calciolari Garcia