Graph des facteurs d'un nombre

par **Admin** Lun 10 Juin - 18:29

Code:: If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0 MessageRequester("Erreur", "Impossible d'initialiser l'écran.") End EndIf LoadFont (0, "Courier", 30) ; Load Courrier Font, Size 15 OpenConsole() PrintN("Calcul des facteurs d'un nombre.") PrintN("SPH(2019)") PrintN("") Print("Nb : ") nb$=Input() nb=Val(nb$) CloseConsole() ExamineDesktops() ddw=DesktopWidth(0) ddh=DesktopHeight(0) If OpenScreen(ddw,ddh,32,"NP")=0 MessageRequester("Erreur", "Impossible d'ouvrir l'écran.") End EndIf ;;;;;;;;;;;;;;;;;;;;;;;;;;;; la=-1 Dim nb(17) StartDrawing(ScreenOutput()) For u=ddh-1 To 1 Step -1 la+2 x=nb/la ; Debug x If x*la=nb Or la=nb ; Debug "=" couleur=0 Else ; Debug "<>" couleur=1 EndIf If la<=17 nb(la)=couleur EndIf varia=0 For i=1 To x;/10;/2 ;;;;;;;;;;;;;;;; /2? If i>=ddw Break EndIf cc=0 varia+1 If varia=5 cc=20 EndIf If varia=10 cc=40 varia=0 EndIf If couleur=0 rgb=RGB(cc,255,cc) ; Else ; rgb=RGB(255,cc,cc) EndIf If couleur=1 rgb=RGB(100,cc,cc) ; Else ; rgb=RGB(150,cc,cc) EndIf ; If i=x Plot(i,u,rgb) ; EndIf Next If Sqr(nb)>x Plot(0,u,RGB(55,55,255)) If bleu=0 Plot(0,u,RGB(255,255,255)) bleu=1 EndIf EndIf ; Debug "===" ; Debug la ; Debug nb ; Debug x If la=nb Break EndIf Next ; Next ; Goto la Box(1,ddh-1-86,7,ddh-1,0) For i=1 To 17 Step 2 If nb(i)=1 rgb=RGB(255,0,0) Else RGB=RGB(0,255,0) EndIf Box(2,ddh-5-(i-1)*5,5,5,rgb) Next la: DrawingMode(#PB_2DDrawing_Transparent) ; Transparent TextBackground DrawingFont(FontID(0)) ; Use the 'Courier' font DrawText(28,ddh-56,Str(nb),RGB(255,255,255),0) StopDrawing() ; FlipBuffers() GrabSprite(0,0,0,ddw,ddh) SaveSprite(0,"d:\NP_2019.bmp") Delay(100) FlipBuffers() Beep_(1500,150) Repeat ExamineKeyboard() Until KeyboardPushed(#PB_Key_Escape)