ENGENHARIA DE PRODUÇÃO
ENGENHARIA DE PRODUÇÃO
ENGENHARIA DE PRODUÇÃO
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ICC1 - TÉCNICAS <strong>DE</strong> PROGRAMAÇÃO – TURBO PASCAL 7<br />
====================================================================================================<br />
Solução 1 : Utilizando a estrutura for ... to ...<br />
PROGRAM FATORIAL_FOR;<br />
USES F<strong>DE</strong>LAY, CRT;<br />
VAR<br />
K, N, FAT : INTEGER;<br />
BEGIN<br />
CLRSCR;<br />
WRITELN('NUMERO FATORIAL');<br />
FOR N:=1 TO 5 DO<br />
BEGIN<br />
FAT:=1;<br />
FOR K:=2 TO N DO FAT:=FAT * N;<br />
WRITELN(N:3,FAT:10);<br />
END;<br />
READKEY;<br />
END.<br />
Solução 2 : Utilizando a estrutura REPEAT... UNTIL ...<br />
PROGRAM FATORIAL_REPEAT;<br />
USES F<strong>DE</strong>LAY, CRT;<br />
VAR<br />
K, N, FAT : INTEGER;<br />
BEGIN<br />
CLRSCR;<br />
WRITELN('NUMERO FATORIAL');<br />
N:=0;<br />
REPEAT<br />
N:=N+1;<br />
FAT:=1;<br />
K:=0;<br />
REPEAT<br />
K:=K+1;<br />
IF K > 1 DO FAT:=FAT * K;<br />
UNTIL K = N;<br />
WRITELN(N:3,FAT:10);<br />
UNTIL N = 5;<br />
READKEY<br />
END.<br />
Solução 3 : Utilizando a estrutura REPEAT... UNTIL ... e FOR … TO …<br />
PROGRAM FATORIAL_REPEAT;<br />
USES F<strong>DE</strong>LAY, CRT;<br />
VAR<br />
K, N, FAT : INTEGER;<br />
BEGIN<br />
CLRSCR;<br />
WRITELN('NUMERO FATORIAL');<br />
N:=0;<br />
REPEAT<br />
N:=N+1;<br />
FAT:=1;<br />
FOR K:=2 TO N DO FAT:=FAT * N;<br />
WRITELN(N:3,FAT:10);<br />
UNTIL N = 5;<br />
READKEY<br />
END.<br />
Página 8 de 9