Faktoriál - Příklad použití cyklu While a podmínky If

1! = 1
2! = 2
3! = 6
4! = 24
5! = 120
6! = 720
7! = 5040
8! = 40320
9! = 362880
10! = 3628800

Výpis zdrojového textu souboru http://www12.brinkster.com:80/mibla/priklady/faktorial_while_if.asp

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta http-equiv="Content-Type" content="text/html;charset=windows-1250">
  <title>Jemný úvod do ASP - Faktoriál</title>
  <link rel="stylesheet" type="text/css" href="../standard.css">
</head>
<body>
     
<h1>Faktoriál - Pøíklad použití cyklu While a podmínky If</h1>
     
 <%
   faktorial = 1 'Inicializace
   n = 1
   Do While n  <= 10  'Cyklus probíhá pro n od 1 do 10
     faktorial = faktorial * n 'Výpoèet nové hodnoty faktoriálu
     If n  Mod 2 = 1 Then 'Operátor Mod vrací zbytek po dìlení
       'Zbytek po dìlení je 1 => n je liché
       Response.Write n & "! = " & faktorial & "<BR>" 'Výpis výsledku pro lichá n
     Else 
       'Podmínka nebyla splnìna
       Response.Write "<i>" & n & "! = " & faktorial & "</i><BR>" 'Výpis výsledku pro sudá n
     End If
     n = n + 1 'Zvýší se n
  Loop
 %>

 
</body>
</html>

Hlavní stránka