Os Exercícios com Estrutura Condicional - Pascal

Nome: Guilherme Lirioberto da Silva Alves

Ano: 2021.1

Matéria: Programação Estruturada

Professor: George Henrique Tavares Leite

1) Program FatorialFor ;

var

i, num, fat : interger

Begin

writeln('digite um número');

read(num);

fat:= 1

for i := 1 to num do

begin

fat:= fat*i;

end;

 

End.

Program FatorialWhile;

var

num, cont, i, j: integer;

Begin

cont:= 0;

while (cont < 5) do begin

cont:= cont + 1;

j:= 1;

num:= -1;

while (num < 0) do begin

write (' Digite um número: ');

readln (num);

end;

for i:=1 to num do

j:=j * i;

writeln ('  Fatorial de ',num,': ',j);

writeln;

end;

end.

program FatorialRepeat;

var

 x, Cont, num, fat: integer;

begin

  writeln ('Calculo do fatorial de um numero');

  write ('Entre com um inteiro nao-negativo: ');

  read (num);

 

  fat := 1;

  Cont := 1;

  repeat

    fat := fat*Contador;

    Cont := Cont+1

  until Cont > num;

  writeln ('O valor de ',num,'!: ',fatorial);

end.

2) Program FatorialFibonacci;

Var n1,n2,n3: integer;

Begin

n1 := 0;

n2 := n1+1;

n3 := n1+n2;

while (n1 < 10) do

begin

writeln (n1);

writeln (n2);

begin

if (n3 < 10) then

writeln (n3);

end;

n1 := n3+n2;

n2 := n1+n3;

n3 := n2+n1;

end;

readln;

End.

3) Program Quest04;

Var

    cont, term, N1, N2, N3: integer;

Begin

     term := 15;

     N1 := 2;

     N2 := 7;

     N3 := 3;

     write (N1, ' ,');

     write (N2, ' ,');

     write (N3, ' ,');

     cont := 4;

            while cont <> term do

            begin

            N1 := N1 * 2;

            write(N1, ' ,');

            cont := cont + 1;

            if cont <> term then

...