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.

    • 1: CommentAuthorzbyti
    • CommentTime1 Mar 2020 zmieniony
     
    N I E A K T Y W N Y
    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
     
    N I E A K T Y W N Y
    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"