Os Exercícios com Estrutura Condicional - Pascal
Por: Guilherme Lirioberto • 3/10/2021 • Trabalho acadêmico • 606 Palavras (3 Páginas) • 144 Visualizações
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
...