26.1.. Prikaz sinusoidalne promjene. Napisati program koji prikazuje promjenu naizmjenicnog napona.

Opis rješenja: Poslije deklarisanja varijable u matrici se postavljaju vrijednosti koordinatnog sitema (REM koordinatni sistem). Zatima se izračunavaju vrijednosti tri sinusoide i smješta u matricu sin1 (REM koordinate sinusoida ...). To su vrijednosti 3 sinusoide. Prikaz izračunatih vrijednosti sinusuoida tj. vrijednosti iz matrice se izvodio na kraju (REM ipis na ekran iz matrice).

Listing programa:

REM 26011310
CLS

REM inicijalizacija
DIM sin1(20, 36) AS STRING
DIM bod AS STRING

REM koordinatni sistem podesavanje memorije za ispis
FOR i = 0 TO 20
    FOR j = 0 TO 36
        IF i <> 10 THEN
            sin1(i, j) = " ": REM prazno
        ELSE
            sin1(i, j) = ".": REM x osa
        END IF
    NEXT j
NEXT i

REM koordinate sinusoida 0
FOR i = 0 TO 360 STEP 15
    y = INT(i / 15)
    REM    sin1(x, y) = "0"
    x = 10 - INT(10 * SIN(i * 3.14 / 180)): REM koordinate bez pomaka
    sin1(x, y) = "0"
NEXT i

REM ipis na ekran iz matrice
FOR i = 1 TO 20
    FOR j = 0 TO 36
        PRINT sin1(i, j);
    NEXT j
    PRINT
NEXT i

END

Ispis na ekranu:

Index