Instituto de Computação - UNICAMP

MC111 - Introdução ao Processamento de Dados

Prova 1 - Versão B

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 isósceles.

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) or (b = c) or (a = c) then
      writeln('O triângulo é isósceles.')
   else
      writeln('O triângulo não é isósceles.');
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 + 1 do      
       write('-');
     for j := 1 to 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 <= 5 - i + 1 do
      begin
	 write('-');
	 j := j + 1;
      end;
      j := 1;
      while (j <= 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/3 - 1/6 + ... + 1/87 - 1/90


program serie;
var
   x : real;
   i,s : integer;
begin
   x := 0;
   s := 0;
   for i := 1 to 30 do
   begin
      x := x + s/(3*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 ímpares 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 0 2 3
4 valores ímpares.



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

Islene Calciolari Garcia