| |
MOIK02 > PINWAN 10.03.08 17:02l 36 Lines 794 Bytes #999 (0) @ DEU
BID : 64139_AP1BOX
Read: GAST
Subj: Zum Jahr der Mathematik...(bas)
Path: DBO595<DBO459<BX0RBL<DP0RBL<DBQ213<D2BOX<AP1BOX
Sent: 080309/0215Z @:AP1BOX.#H.NDS.DEU.EU #:64139 [Hannover/Laatzen JO42VH]
From: MOIK02@AP1BOX.#H.NDS.DEU.EU
To : PINWAN@DEU
'
' Hurra! Wir haben das Jahr der Mathemathik! (ächz!)
' Hier kommt dazu ein Programm zum Primzahlenmachen in QBASIC.
' Es befindet sich zwischen den Strichlinien. Siehe unten.
'-----------------------------------------------------------------------------
DECLARE FUNCTION prim! (n!)
CLS
PRINT " Primzahlen machen zwischen U und V"
INPUT " U?", U
INPUT " V?", V
FOR n = U TO V
IF prim(n) = 1 THEN PRINT n;
NEXT n
FUNCTION prim (n)
geteilt = 0
IF n > 2 AND n MOD 2 = 0 THEN
geteilt = 1
END IF
i = 3
WHILE geteilt = 0 AND i * i <= n
IF n MOD i = 0 THEN geteilt = 1
i = i + 2
WEND
IF geteilt = 1 THEN
prim = 0
ELSE
prim = 1
END IF
END FUNCTION
'------------------------------------------------------------------------------
'
Lese vorherige Mail | Lese naechste Mail
| |