MC102
Algoritmos e Programação de Computadores
Lista I - Exercícios para Fixação


Segundo Semestre de 2002
Norton Trevisan Roman




Exercício 1: Escreva na tela: 

  Estou testando o write.

e, escrevendo palavra por palavra,
  Estou
  testando o
  writeln.



Exercício 2: Determine o que as instruções a seguir irão fazer:

2.1: 
  FOR cont := 1 TO 5 DO writeln('Oi');

2.2: 
  FOR cont := 1 to 5 DO write('Oi');

2.3: 
  FOR cont := 1 TO 5 DO BEGIN
    write('Oi');
    writeln(' Artur')
  END

2.4: 
  FOR cont := 1 TO 5 DO
    write('Oi');
    writeln('Artur');

2.5: 
  PROGRAM resolve;
  VAR vert : integer;

  PROCEDURE horiz;
  VAR comp : integer;
  BEGIN
    FOR comp := 1 TO 10 DO write('*');
    writeln
  END;

  PROCEDURE lado;
  VAR espaco : integer;
  BEGIN
    write('*');
    FOR espaco := 1 TO 8 DO write(' ');
    writeln('*')
  END;

  BEGIN
    horiz;
    FOR vert := 1 TO 6 DO lado;
    horiz
  END.

2.6: 
  writeln(10 + 3 * 4);
  writeln((10 + 3) * 4);
  writeln(10 + (3 * 4));
  writeln(23 DIV 4);
  writeln(4 DIV 23);
  writeln(23 MOD 4);
  writeln(4 MOD 23);



Exercício 3: Escreva programas que escrevam na tela os valores das seguintes fórmulas:

(a) 6 × (2 + 3) ÷ (4 + 5) (b) (42 ÷ 7) × 5² + 6 × 3 + 4



Exercício 4: Escreva na tela: 

  2 + 3 = 5
Onde 5 deve ser o resultado da expressão 2+3 (não o caracter 5).



Exercício 5: Determine o que as instruções a seguir irão fazer:

  a := 3;
  b := 5;
  c := 8;
  d := a * (b + c * 3) - 7;
  e := a - b - c;
  writeln(a,b,c,d,e);
  a := a + 1;
  b := (4 * a + 1) DIV 10;
  c := (4 * a + 1) MOD 10;
  writeln(a,b,c,d,e);



Exercício 6: O que o programa a seguir faz?

  PROGRAM misterio;
  VAR numero : integer;

  BEGIN
    FOR numero := 1 TO 10 DO writeln(numero*numero)
  END



Exercício 7: Escreva um programa que dê os 10 primeiros cubos.



Exercício 8: Escreva programas que dêem as seguintes séries:

(a) 3, 8, 13, 18, 23, ..., 48.
(b) -2, 3, 8, 13, 18, ..., 43.
(c) 48, 43, 38, 33, 28, ..., 3.



Exercício 9: Determine o que as instruções abaixo fazem:

  FOR cont := 1 TO 5 DO BEGIN
    FOR cont2 := 1 TO 3 DO write('oba-');
    writeln('oba')
  END;



Exercício 10: Escreva um programa que desenhe um quadrado de "*" de 5 × 10 (5 linhas × 10 colunas).



Exercício 11: Escreva um programa que desenhe 6 retângulos como os do exercício 10, mas de tamanho 3 × 2. Deixe uma linha ou coluna em branco entre os retângulos. Tente usar procedimentos em seu programa.




Página da disciplina