Instituto de Computação - UNICAMP

MC111 - Introdução ao Processamento de Dados

Prova 1 - Versão D

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 5 - i do      
       write('+');
     for j := 1 to i 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 -1) do
      begin
	 write('+');
	 j := j + 1;
      end;
      j := 1;
      while (j <=  5 - i) do
      begin
	 write('-');
	 j := j + 1;
      end;
      writeln;
      i := i + 1;
   end;
end.

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


program serie;
var
   x : real;
   i,s : integer;
begin
   x := 2;
   s := 1;
   for i := 1 to 40 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 pares digitados. O valor N deve ser especificado pelo usuário.

Dica: um número v é ímpar quando v mod 2 = 1.

Exemplo:

N: 10
1 6 5 6 8 7 0 1 9 3 
4 valores pares.


program pares;
var
   n, i, v, p : integer;
begin
   write('N: ');
   read(n);
   p := 0;
   for i:=1 to n do
   begin
      read (v);
      if (v mod 2 = 0) then
	 p := p + 1;
   end;
   writeln(p, 'valores pares.');
end;

Islene Calciolari Garcia