- schimba setarile imlpicite:

SET DEFAULT TO <cale>

SET POINT TO <marca_zecimale>

SET CURRENCY TO <simbol_monetar>

SET CURRENCY RIGHT

Introducerea datelor de la tastatura

ACCEPT <comentariu> TO <nume_variabila> - ptr. caractere

INPUT <comentariu> TO <nume_variabila> - ptr. date de tip numeric

Exemplu:

MODI COMM FACTURA

CLEAR

SET POINT TO ','

SET CURR TO 'lei'

SET CURR RIGHT

NUME=SPACE(12)

ADR='NATURII 11'

U_CIT=128.12

LEIKW=1409

CLEAR

DEFI WIND F FROM 1,1 TO 15,70 TITLE 'FACTURA DE ENERGIE ELECTRICA' FLOAT GROW

ACTI WIND F

? 'NUME CONSUMATOR: ',NUME 'ARIAL',20 STYLE 'B,I'

? 'ADRESA: ', ADR

? 'ULTIMA CITIRE: ', U_CIT PICT '9999.99', 'Kw/ora'

ACCEPT 'CITIRE CURENTA: ' TO CIT_C

? 'PRET KW: ',LEIKW PICT '9999.99' FUNC '$'

??'VALOARE FACTURA: ',(CIT_C-U_CIT)*LEIKW PICT '9999999.99' FUNC '$'

? 'DATA PLATII: ',DATE()+' ' FUNC 'E'

??'TERMEN SCADENT: ',DATE()+30 FUNC 'E'

WAIT ''

CLEAR

DEACTI WIND F

CANCEL

STRUCTURI ALTERNATIVE

Exemplu:

MODI COMM AB.PRG

CLEAR

INPUT 'A=' TO A

INPUT 'B=' TO B

IF A>B

?'A ESTE MAI MARE DECAT B'

ELSE

?'B ESTE MAI MARE DECAT A'

ENDIF

CTRL+W

DO AB

STRUCTURILE ALTERNATIVE

testeaza o conditie si dupa cum conditia este adevarata sau falsa programul continua pe una din cele

doua ramuri: ramura de adevarat sau ramura de fals. Schematic IF se reprezinta intr-un romb. Sa se scrie secventa de program care sa introduca de la tastatura un A si un B stiind ca acestia sunt coeficientii unei ecuatii de gradul 1 cu 1 necunoscuta. (ax+b=0) sa se testeze daca a=0, caz in care este o ecuatie imposibil de rezolvat. In caz contrar se va afisa x.

MODI COMM ECUATIE

DEFI WIND A FROM 10,10 TO 60,60 TITLE 'ECUATIA ax + b = 0'

ACTI WIND A

INPUT 'A=' TO A

INPUT 'B=' TO B

IF A=0

?'ECUATIA NU SE POATE REZOLVA'

ELSE

?'X=B/A=',B/APICT '9999.99'

ENDIF

WAIT WIND 'oK !'

DEACTI WIND A

clear

CANCEL

comanda DO CASE

descrie o structura alternativa generalizata. Formatul general:

DO CASE

CASE conditie1

COMENZI

CASE conditie2

COMENZI

CASE conditie3

COMENZI

CASE conditie4

COMENZI

CASE conditie5

COMENZI

CASE conditie6

COMENZI

OTHEWISE

COMENZI

ENDCASE

Sa se scrie secv. de program care intr-o fereastra sa introduca una din zilele saptamanii. In functie de ZIUA ALEASA trebuiesc afisate urmatoarele treburi:

Luni     - la piata

- la servici

Marti   - la cinema

- la servici

Miercuri- ziua lui Ion

Joi - la servici

Vineri  - la servici

- la picnic

MODI COMM ZILE

CLEAR

DEFI WIND A FROM 10,10 TO 60,60 TITLE 'ECUATIA ax + b = 0'

ACTI WIND A

INPUT 'In ce zi suntem ?' to Z

DO CASE

CASE Z='LUNI'

?'- la piata'

?'- la servici'

CASE Z='MARTI'

?'- la cinema'

?'- la servici'

CASE Z='MIERCURI'

?'- ziua lui Ion'

CASE Z='JOI'

?'- la servici'

CASE Z='VINERI'

?'- la servici'

?'- la picnic'

OTHERWISE

?'N-AI NIMIC DE FACUT ?!!!'

ENDCASE

WAIT WIND 'oK !'

DEACTI WIND A

clear

CANCEL