atarionline.pl FastBasic - programowanie - Forum Atarum

Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.

  • :
  • :

Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.

4. Programowanie / Programming  »   FastBasic - programowanie

W dół

Od 1 do 2 z 2

  1.  
    • 1: CommentAuthorzbyti
    • CommentTime1 Mar 2020 zmieniony
     
    Może objawią się ludzie piszący jeszcze w BASICU?

    Chyba czas na przesiadkę z Turbo BASIC XL :]

    NA zachętę FastBasic 4.3 i Display List Interrupts ->link<-
    • 2: CommentAuthorzbyti
    • CommentTime1 Mar 2020 zmieniony
     
    Może jakiś kod na start? ;)

    Implementacja poszukiwania liczby PI za pomocą metody Monte-Carlo:

    PROBE=10000:B=0:R=127*127:F=PEEK(20)
    WHILE F=PEEK(20)
    WEND
    S=TIME
    FOR I=0 TO PROBE
     N=PEEK($D20A):N=N!128:N=N EXOR 128
     X=N*N
     N=PEEK($D20A):N=N!128:N=N EXOR 128
     Y=N*N
     IF (X+Y)<=R THEN INC B
    NEXT I
    P=4*B
    T=TIME-S
    ? P;CHR$(30);CHR$(30);CHR$(30);CHR$(30);CHR$(255);CHR$(46)
    ? T;" FRAMES"

Od 1 do 2 z 2

  1.