Pascal

1 Exercícios while

1. Faça um programa para calcular e imprimir os números inteiros de 0 a 100.

2. Faça um programa que lê números do teclado e depois informa a média dos números lidos, a quantidade lida, e soma deles

3. Faça um programa que soma os números pares compreendidos entre dois números lidos do teclado

4. Faça um programa para cálculo de fatorial, usando repeat .. until

5. Faça um programa que só termina quando for digitado um número negativo:

2. Possíveis Soluções

Program Ex_1;

var I : real;

begin

I:=0;

while I <= 100 do

begin

writeln(I);

I := I+1;

end;

end.

Program Ex_2;

Uses CRT;

Label INICIO;

Const Quant_de_num : Integer = 0;

Soma : Real = 0;

Media : Real = 0;

Var Numero : Real;

Tecla : Char;

Begin

INICIO:

ClrScr;

Write('Valor numérico (menor que 0=fim) --> ');

Readln(Numero);

While (Numero>=0) Do

Begin

Soma := Soma + Numero;

Quant_de_num := Quant_de_num + 1;

Write('Valor numérico (menor que 0=fim) --> ');

Readln(Numero);

End;

If Quant_de_num > 0

Then Begin

Media := Soma/Quant_de_num;

Writeln;

Writeln('Quantidade de números = ',Quant_de_num);

Writeln('Soma ................ = ',Soma:10:2);

Writeln('Media ............... = ',Media:10:2);

End

Else Writeln('Não se realizou cálculos');

Writeln;

Write('Deseja continuar ? ---> ');

tecla:=ReadKey;

If (Tecla='s') Or (Tecla='S') Then Begin

Quant_de_num:=0;

Soma := 0;

Goto Inicio;

End;

End.

Program Ex_3;

Uses CRT;

Var par,numero_1,numero_2,soma:Integer;

Begin

Clrscr;

Soma:=0;

Write('Primeiro Numero ---> ');

Readln(numero_1);

Write('Segundo Numero ----> ');

Readln(numero_2);

par:=numero_1;

If par MOD 2 <> 0 then par:=par+1; (* Verifica se o primeiro número é par, se não for adiciona-se um *)

Repeat

Soma:=soma+par;

par:=par+2;

Until par>numero_2;

Writeln;writeln;

Write('Soma dos números pares entre ');

Writeln(numero_1,' e ',numero_2,' = ',soma);

end.

Program Ex_4;

Uses CRT;

Label inicio,fim;

Var n,i,fatorial:integer;

Begin

ClrScr;

inicio:

Write('N = (menor que 0 = fim) --> ');

Readln(n);

If n<0 then goto fim;

Writeln;

fatorial:=1;

i:=1;

if n>1

then Repeat

i:=i+1;

fatorial:=fatorial*i;

Until i=n;

Writeln('fatorial de ':30,n,' = ',fatorial);

Writeln;

1. Exercícios Exercícios de Algoritmos e Programas c/ Decisão

1. Faça um programa que execute uma Decisão Simples

2. Faça um programa para determinar o maior numero entre dois lidos do teclado

3. Faça um programa para colocar em ordem crescente 3 números lidos do teclado

4. Faça um programa que execute uma Decisão Composta

5. Programa verificar se o numero lido está entre os 100 primeiros numeros

6. Faça um programa para testar a tecla pressionada

7. Faça um programa para testar a idade de serviço militar

Programas exemplos da instrução Case.

8. Faça um programa que Calcule a soma, ou a subtração,