AULA PRÁTICA 5

Prévia do material em texto

AULA PRÁTICA 5 22/09/2008
Aluna: Ana Carolina Arantes Araújo Turma: A1
Exercício 1:
PROGRAM EX1;
VAR NUMERO, CONTROLE: INTEGER;
BEGIN
WRITELN ( ‘ FORNECA UM NUMERO ‘) ;
READLN ( NUMERO ) ;
WRITELN ( ‘NUMERO = ‘ , NUMERO ) ;
FOR CONTROLE := 1 TO NUMERO DO
WRITE ( CONTROLE , ‘ ‘ ) ;
END.
PROGRAM EX2;
VAR CONT1, CONT2 : INTEGER;
BEGIN
WRITELN;
FOR CONT1 := 1 TO 3 DO
FOR CONT2:= 1 TO 5 DO
BEGIN
WRITE ( ‘CONT1 = ‘ , CONT1, ‘ ‘ ) ;
WRITE ( ‘CONT2 = ’ , CONT2, ‘ ‘ ) ;
WRITELN;
END;
END. 
PROGRAM EX3;
VAR CONTEUDO , PASSO : INTEGER;
BEGIN
WRITE ( ‘FORNECA O VALOR PARA “CONTEUDO” = ‘ );
READLN ( CONTEUDO );
WRITELN; 
WRITELN ( ‘CONTEUDO = ‘ , CONTEUDO );
PASSO := 1;
WHILE PASSO <= CONTEUDO DO
BEGIN
WRITELN ( PASSO );
PASSO := PASSO + 1 ;
END;
WRITELN ( ’ULTIMO VALOR DE “ PASSO ” = ‘ , PASSO );
END.
PROGRAM EX4;
VAR LIMITE, INCREMENTO : INTEGER;
BEGIN
WRITELN;
LIMITE : = 10; 
WRITELN ( ‘ LIMITE = ‘ , LIMITE ) ;
INCREMENTO : = 0;
WRITELN ( ‘ VALOR INICIAL DO INCREMENTO = ‘ , INCREMENTO ) ;
REPEAT
WRITELN ( INCREMENTO ) ;
INCREMENTO : = INCREMENTO + 1;
UNTIL INCREMENTO = LIMITE;
WRITELN ( ‘ VALOR FINAL DO INCREMENTO = ‘ , INCREMENTO ) ;
END.
Exercício 2:
While/Do - 
Repeat/Until -
For/To/Do - 
Exercício 3: