title image


Smiley Re: Pascalsches Zahlendreieck
Option Explicit Function NüberK(n As Long, k As Long) As Long NüberK = Fakultät(n) / (Fakultät(k) * Fakultät(n - k))End Function Function Fakultät(n As Long) As Long If n Fakultät = 1 Else Fakultät = n * Fakultät(n - 1) End IfEnd Function Sub Main() Dim iZeile As Long, iElement As Long iZeile = Val(InputBox("Welche Zeile?")) If iZeile > 0 Then iZeile = iZeile - 1 For iElement = 0 To iZeile MsgBox "Element Nr. " & iElement + 1 & " = " & NüberK(iZeile, iElement) Next End IfEnd SubViel Erfolg!Thomas Prötzschcu
Thomas Prötzsch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: