Baixe o app para aproveitar ainda mais
Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original
Comando de repetição FOR (PARA) - quando se sabe o valor inicial e o valor final. Sintaxe FOR VC:=VI TO VF DO COMANDO; VC -> variável de controle; VI -> valor inicial; VF -> valor final; TO -> incrementa em +1 variável de controle; DOWNTO -> decrementa em -1 a variável de controle; Ex: Program Pzim ; Var VC: INTEGER; Begin FOR VC:=1 TO 10 DO WRITELN ('num:', VC); FOR VC:=10 DOWNTO 1 DO WRITELN ('num:' VC); End. Ex: crie um programa que leia 10 números e mostre e a soma deles. Program Pzim ; Var VC, N, S: INTEGER; Begin FOR VC:=1 TO 10 DO Begin WRITELN ('INF. 1 NUMERO'); READ (N); S:=S+N; End; WRITELN ('A SOMA É:', S); End. 2. Crie um programa que leia 10 números e mostre o produto dos nº lidos. Obs: o "S" vai ser zero no inicio; Program Pzim ; Var VC, N, S: INTEGER; Begin FOR VC:=1 TO 10 DO Begin WRITELN ('INF. 1 NUMERO'); READ (N); S:=(S+1)*N; End; WRITELN ('O PRODUTO É:', S); End. 3. Crie um programa que leia 10º e mostre o maior número lido. Program Pzim ; Var VC, M, N: INTEGER; Begin FOR VC:=1 TO 10 DO Begin WRITELN ('INF. O NUMERO'); READ (N); IF (N>M) THEN M:=N; End; WRITELN ('O MAIOR É:', M); End. 4. Crie um programa que leia 3 nº mostre quantos são pares e ímpares. Program teste ; var n,vc,p,i:integer; Begin for vc:=1 to 3 do begin writeln('inf.o numero') ; read(n); if (n mod 2 =0 ) then p:=p+1 else i:=i+1; end; writeln('numeros pares',p) ; writeln('numeros impar',i) ; End. Informática Aplicada Prova dia 23.10.2017 Comando de repetição WHILE (enquanto) - executará enquanto a condição for verdadeira Sintaxe: WHILE (CONDIÇÃO) DO BEGIN COMANDOS; END; EX: Digite 0 (zero) para encerrar. Program Test Var n, vc: Integer; Begin While (vc<10) do Begin Writeln (vc); vc:=v+2; End; While (<> 0) do Begin Writeln ('inf. 1 nº1'); Read (n); End; End. 1. Crie um programa que mostre os números ímpares menor que 100. Program Pzim ; Var vc: integer; Begin vc:=1; while (vc<100) do Begin writeln ('nº impar:', vc); vc:=vc+2; End; End. 2. Crie um programa que leia N números. Pare quando a soma deles for maior que 100. Mostre a soma deles. Program Pzim ; Var n, s: integer; Begin while (s<100) do Begin writeln ('inf. o nº'); Read (n); s:=s+n; End; writeln ('a soma é: ', s); End. 3. Crie um programa que leia N números. Pare quando o número lido for ø (zero). Mostre o maior nº lido. Encerre o programa digitando 0 (zero). Program Pzim ; Var n, m: integer; Begin n:=1; while (n<>0) do Begin writeln ('inf. o nº'); read (n); If (n>m) then m:=n; End; writeln ('maior:', m); End. 4. Crie um programa que leia a idade de nº de pessoas. Pergunte se o usuário deseja continuar (S/N). Mostre quantas pessoas tem entre 18 e 60 anos. Program Pzim ; Var I, QP: integer; R: char; Begin R:='S'; While (R='S') do Begin writeln ('inf. a idade'); read (I); If (I>18) and (I<60) then QP:=QP+1; writeln ('deseja continuar?S/N'); read (R); End; Writeln ('QP', QP); End. Prox. aula Repeat Case
Compartilhar