Pascal - estruturaderepeticao

Prof. Ms. Anderson Pereira [e-mail]

1

ESTRUTURAS DE REPETIÇÃO
• para ...até... faça ..

• enquanto ... faça ..
• repita ... até ...

2

Estruturas de repetição em Pascal

3

Estrutura de repetição: comando for
 Comando for for <variável de controle> := <valor inicial> to <valor limite> do <comando>;

for <variável de controle> := <valor inicial> downto <valor limite> do <comando>;

Um só comando

to incrementa downto decrementa

+1 -1

4

5

Comando for for <variável de controle> := <valor inicial> to/downto <valor limite> do <comando>; for <variável de controle> := <valor inicial> to/downto <valor limite> do begin <comando 1>; ....... <comando n>; end;

 O(s) comando(s) será(o) executado(s) até o valor limite (inclusive)  O incremento ou decremento é executado automaticamente após a

execução do(s) comando(s)

6

Exemplo
Program testeFor; var I,K:integer; begin K:= 5; for I := K+1 to K+3 do begin writeln ('I= ',I); end; readln; end.

Saída I= 6 I= 7 I= 8

7

for <variável de controle> := <valor inicial> to <valor limite> do <comando> valor inicial valor limite

expressões

• avaliadas somente uma vez, na entrada do comando • resultado deve ser do mesmo tipo da variável de controle

variável de controle
• integer ou char • pode ser utilizada no comando • pode ser alterada no comando (mas não é recomendável)

8

Exemplo
Program testeFor; var I,K:integer; begin k:=8; for I := 5 to K do begin k:=7; writeln('I= ',I ,' K= ',k ); end; readln; end.

Saída: I= 5 I= 6 I= 7 I= 8 K= 7 K= 7 K= 7 K= 7

9

Exemplo
Program Letras; var Letra: char; begin for Letra := 'a' to 'z‘ do write (Letra,' '); writeln ('Fim'); readln; end.

Saída: a b c d e f g h i j k l m n o p q r s t u v w x y z Fim
10

Exercício
1)

Escrever um programa que lê 5 valores, e conta quantos destes valores são negativos, escrevendo esta informação. program conta_negativos; var numero, cont, neg:integer; Begin Neg:=0; for cont:=1 to 5 do begin write('Digite um numero inteiro: '); readln