Buscar

Informática Aplicada

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

Teste o Premium para desbloquear

Aproveite todos os benefícios por 3 dias sem pagar! 😉
Já tem cadastro?

Outros materiais