Solutii Capitolul 2 (A)

Pagina urmatoare

Programul 20

10 INPUT "A="; A: INPUT "B="; B

20 IF A < -B THEN LET S = A * (B + 123) ^ 2: GOTO 50

30 IF A = -B THEN PRINT "EXPRESIA NU SE POATE CALCULA.": STOP

40 LET S = (A / 3 - B / 5) / (A + B)

50 PRINT "S="; S

60 STOP

INPUT "A=", A: INPUT "B=", B

IF A = -B THEN

        PRINT "Expresia nu se poate calcula."

ELSE

        IF A < -B THEN

                S = A * (B + 123) ^ 2

        ELSE

                S = (A / 3 - B / 5) / (A + B)

        END IF

        PRINT "S="; S

END IF

END

Programul 21

10 INPUT "A="; A: INPUT "B="; B

20 INPUT "INTRODUCETI UN NR. NATURAL N="; N

30 IF N / 3 = INT(N / 3) AND A + B <> 0 THEN LET T = 1 / (A + B): GOTO 60

40 IF N / 3 <> INT(N / 3) AND B <> 0 THEN LET T = A / B: GOTO 60

50 PRINT "EXPRESIA NU SE POATE CALCULA.": STOP

60 PRINT "T="; T

70 STOP

INPUT "A=", A: INPUT "B=", B

INPUT "Introduceti un numar natural:", N

sw = 0

IF N MOD 3 = 0 AND A + B <> 0 THEN

        T = 1 / (A + B)

ELSEIF N MOD 3 <> 0 AND B <> 0 THEN

        T = A / B

ELSE

        sw = 1

        PRINT "Expresia nu se poate calcula."

END IF

IF sw = 0 THEN PRINT "T="; T

END

Programul 22

10 PRINT "ACEST PROGRAM VA REZOLVA ECUATII DE FORMA:"

20 PRINT "A*X+B=0"

30 INPUT "A="; A: INPUT "B="; B

40 IF A = 0 AND B = 0 THEN PRINT "ORICE NR. REAL ESTE SOLUTIE A ECUATIEI.": STOP

50 IF A = 0 AND B <> 0 THEN PRINT "ECUATIA NU ARE SOLUTII.": STOP

60 LET X = -B / A

70 PRINT "SOLUTIA ECUATIEI ESTE NUMARUL:"; X

80 STOP

PRINT "Acest program va rezolva ecuatii de forma:"

PRINT "A*X+B=0"

INPUT "A=", A: INPUT "B=", B

IF A = 0 THEN

        IF B = 0 THEN

                PRINT "Orice nr. real este solutie a ecuatiei."

        ELSE

                PRINT "Ecuatia nu are solutii."

        END IF

ELSE

        X = -B / A

        PRINT "Solutia ecuatiei este numarul:"; X

END IF

END

Programul 23

10 PRINT "ACEST PROGRAM VA REZOLVA ECUATII DE TIPUL:"

20 PRINT "A*X^2+B*X+C=0"

30 INPUT "A="; A: INPUT "B="; B: INPUT "C="; C

40 IF A = 0 THEN GOTO 110

50 LET D = B ^ 2 - 4 * A * C

60 IF D < 0 THEN PRINT "ECUATIA NU ARE SOLUTII REALE.": STOP

70 IF D = 0 THEN PRINT "ECUATIA ARE SOLUTII REALE CONFUNDATE:"; -B / (2 * A): STOP

80 LET X1 = (-B + SQR(D)) / (2 * A): LET X2 = (-B - SQR(D)) / (2 * A)

90 PRINT "ECUATIA ARE SOLUTII REALE DISTINCTE:": PRINT : PRINT X1, X2

100 STOP

110 PRINT "ECUATIA NU ESTE DE GRADUL DOI."

120 IF B = 0 AND C = 0 THEN PRINT "ORICE NR. REAL ESTE SOLUTIE A ECUATIEI.": STOP

130 IF B = 0 AND C > 0 THEN PRINT "ECUATIA NU ARE SOLUTII.": STOP

140 PRINT "ECUATIA ARE CA SOLUTIE PE:"; -C / B

150 STOP

PRINT "Acest program va rezolva ecuatii de tipul:"

PRINT "A*X^2+B*X+C=0"

INPUT "A=", A: INPUT "B=", B: INPUT "C=", C

IF A = 0 THEN

        IF B = 0 THEN

                IF C = 0 THEN

                        PRINT "Orice nr. real este solutie a ecuatiei."

                ELSE

                        PRINT "Ecuatia nu are solutii."

                END IF

        ELSE

                X = -B / C

                PRINT "Ecuatia are ca solutie pe:"; X

        END IF

ELSE

        D = B ^ 2 - 4 * A * C

        IF D = 0 THEN

                X = -B / (2 * A)

                PRINT "Ecuatia are solutii reale confundate:"; X

        ELSEIF D > 0 THEN

                X1 = (-B + SQR(D)) / (2 * A)

                X2 = (-B - SQR(D)) / (2 * A)

                PRINT "Ecuatia are solutii reale distincte:"

                PRINT : PRINT X1, X2

        ELSE

                PRINT "Ecuatia nu are solutii reale."

        END IF

END IF

END

Programul 24

10 INPUT "INTRODUCETI CELE SASE NUMERE NATURALE:"; A, B, E, F, G, H

20 LET D = 0: LET T = 0: LET C = 0: LET S = 0

30 LET X = A: GOSUB 150

40 LET X = B: GOSUB 150

50 LET X = E: GOSUB 150

60 LET X = F: GOSUB 150

70 LET X = G: GOSUB 150

80 LET X = H: GOSUB 150

90 PRINT "DIN NUMERELE INTRODUSE:"

100 PRINT "NUMERE DIVIZIBILE CU 2:"; D

110 PRINT "NUMERE DIVIZIBILE CU 3:"; T

120 PRINT "NUMERE DIVIZIBILE CU 5:"; C

130 PRINT "NUMERE DIVIZIBILE CU 7:"; S

140 STOP

150 IF X / 2 = INT(X / 2) THEN LET D = D + 1

160 IF X / 3 = INT(X / 3) THEN LET T = T + 1

170 IF X / 5 = INT(X / 5) THEN LET C = C + 1

180 IF X / 7 = INT(X / 7) THEN LET S = S + 1

190 RETURN

DECLARE SUB NUMARA (X!)

INPUT "Introduceti cele sase nr. naturale:", A, B, E, F, G, H

D = 0: T = 0: C = 0: S = 0

NUMARA A

NUMARA B

NUMARA E

NUMARA F

NUMARA G

NUMARA H

PRINT "Din numerele introduse:"

PRINT "Numere divizibile cu 2:"; D

PRINT "Numere divizibile cu 3:"; T

PRINT "Numere divizibile cu 5:"; C

PRINT "Numere divizibile cu 7:"; S

END

SUB NUMARA (X)

SHARED D, T, C, S

        IF X MOD 2 = 0 THEN D = D + 1

        IF X MOD 3 = 0 THEN T = T + 1

        IF X MOD 5 = 0 THEN C = C + 1

        IF X MOD 7 = 0 THEN S = S + 1

END SUB

Programul 25

10 INPUT "A="; A: INPUT "B="; B: INPUT "C="; C

20 IF A <= 0 OR B <= 0 OR C <= 0 THEN PRINT "A,B,C TREBUIE SA FIE >0!": GOTO 10

30 LET D = ABS(A - B): LET E = A + B

40 IF D < C AND C < E THEN GOTO 100

50 PRINT "CELE TREI NUMERE NU POT FI LUNGIMILE LATURILOR UNUI TRIUNGHI."

60 STOP

100 LET P = A + B + C

110 LET SP = P / 2

120 LET S = SQR(SP * (SP - A) * (SP - B) * (SP - C))

130 LET R1 = A * B * C / (4 * S)

140 LET R2 = S / SP

150 PRINT "PERIMETRUL ESTE P="; P

160 PRINT "ARIA ESTE S="; S

170 PRINT "RAZA CERCULUI CIRCUMSCRIS TRIUNGHIULUI ESTE R1="; R1

180 PRINT "RAZA CERCULUI INSCRIS IN TRIUNGHI ESTE R2="; R2

190 STOP

INPUT "A=", A: INPUT "B=", B: INPUT "C=", C

IF A <= 0 OR B <= 0 OR C <= 0 THEN

        PRINT "A,B,C trebuie sa fie >0!"

ELSE

        D = ABS(A - B): LET E = A + B

        IF D >= C OR C >= E THEN

                PRINT "Cele trei numere nu pot fi lungimile laturilor unui triunghi."

        ELSE

                P = A + B + C

                SP = P / 2

                S = SQR(SP * (SP - A) * (SP - B) * (SP - C))

                R1 = A * B * C / (4 * S)

                R2 = S / SP

                PRINT "Perimetrul este P="; P

                PRINT "Aria este S="; S

                PRINT "Raza cercului circumscris triunghiului este R1="; R1

                PRINT "Raza cercului inscris in triunghi este R2="; R2

        END IF

END IF

END

Programul 26

10 INPUT "A="; A: INPUT "B="; B: INPUT "C="; C

20 IF A <= 0 OR B <= 0 OR C <= 0 THEN PRINT "A,B,C TREBUIE SA FIE >0!": GOTO 10

30 LET D = ABS(A - B): LET E = A + B

40 IF C <= D OR C >= A + B THEN PRINT "A,B,C NU SUNT LG. LATURILOR UNUI TRIUNGHI.": STOP

50 LET X = (C ^ 2 + B ^ 2 - A ^ 2) / (2 * C * B)

60 LET Y = (A ^ 2 + C ^ 2 - B ^ 2) / (2 * A * C)

65 DEF FNACS (X) = -ATN(X / SQR(1 - X ^ 2)) + PI / 2

70 LET M = FNACS(X): LET N = FNACS(Y)

80 LET T = M * 180 / PI: LET R = N * 180 / PI: LET Q = 180 - T - R

90 PRINT "CELE TREI UNGHIURI AU MASURILE:"

100 PRINT T, Q, R

110 STOP

CONST PI = 3.1415

DEF FNACS (X) = -ATN(X / SQR(1 - X ^ 2)) + PI / 2

INPUT "A=", A: INPUT "B=", B: INPUT "C=", C

IF A <= 0 OR B <= 0 OR C <= 0 THEN

        PRINT "A,B,C trebuie sa fie >0!"

ELSE

        D = ABS(A - B): E = A + B

        IF C <= D OR C >= A + B THEN

                PRINT "A,B,C nu sunt lg. laturilor unui triunghi."

        ELSE

                X = (C ^ 2 + B ^ 2 - A ^ 2) / (2 * C * B)

                Y = (A ^ 2 + C ^ 2 - B ^ 2) / (2 * A * C)

                M = FNACS(X): N = FNACS(Y)

                T = M * 180 / PI: R = N * 180 / PI: Q = 180 - T - R

                PRINT "Cele trei unghiuri au masurile:"

                PRINT T, Q, R

        END IF

END IF

END

Observatie: La calculatoarele care au implementata functia ACS (arc cosinus)

nu mai este necesara instructiunea cu numarul 65 (respectiv a doua linie in

varianta QBASIC). In acest caz instructiunea cu numarul 70 va fi scrisa astfel

70 LET M = ACS(X): LET N = ACS(Y)

respectiv M = ACS(X): N=ACS(Y).

Programul 27

10 INPUT "A="; A: INPUT "B="; B

20 INPUT "INTRODUCETI UN NR. REAL POZITIV C="; C

30 INPUT "INTRODUCETI UN NR. REAL POZITIV D="; D

40 IF C <= 0 OR D <= 0 THEN PRINT "C SI D TREBUIE SA FIE NR. POZITIVE!": GOTO 20

50 LET M = (A + B) / 2: LET G = SQR(C * D)

60 IF M > G AND B > 0 THEN LET E = D - 3 * B: GOTO 100

70 IF M > G AND B < 0 THEN LET E = D + 3 * B: GOTO 100

80 LET E = M + G

100 PRINT "E="; E

110 PRINT "M="; M, "G="; G

120 STOP

INPUT "A=", A: INPUT "B=", B

INPUT "Introduceti un nr. real pozitiv C=", C

INPUT "Introduceti un nr. real pozitiv D=", D

IF C <= 0 OR D <= 0 THEN

        PRINT "C si D trebuie sa fie nr. pozitive!"

ELSE

        M = (A + B) / 2: LET G = SQR(C * D)

        IF M > G THEN

                IF B > 0 THEN E = D - 3 * B ELSE E = D + 3 * B

        ELSE

                E = M + G

        END IF

        PRINT "E="; E

        PRINT "M="; M, "G="; G

END IF

END

Programul 28

10 INPUT "LUNGIMILE CATETELOR:"; C1, C2

20 LET I = SQR(C1 ^ 2 + C2 ^ 2)

30 LET H = C1 * C2 / I

40 LET P1 = C1 ^ 2 / I: LET P2 = C2 ^ 2 / I

50 PRINT "INALTIMEA CORESPUNZATOARE IPOTENUZEI ESTE:"; H

60 PRINT "PROIECTIILE CELOR DOUA CATETE SUNT:"; P1, P2

70 INPUT "DORITI CALCULAREA PERIMETRULUI SI A ARIEI TRIUNGHIULUI?(DA/NU)"; W$

80 IF W$ = "NU" THEN STOP

90 PRINT "PERIMETRUL ESTE:"; C1 + C2 + I

100 PRINT "ARIA ESTE"; C1 * C2 / 2

110 STOP

INPUT "Lungimile catetelor:", C1, C2

I = SQR(C1 ^ 2 + C2 ^ 2)

H = C1 * C2 / I

P1 = C1 ^ 2 / I: P2 = C2 ^ 2 / I

PRINT "Inaltimea corespunzatoare ipotenuzei este:"; H

PRINT "Proiectiile celor doua catete sunt:"; P1, P2

INPUT "Doriti calcularea perimetrului si a ariei triunghiului?(DA/NU)"; W$

IF UCASE$(W$) <> "NU" THEN

        PRINT "Perimetrul este:"; C1 + C2 + I

        PRINT "Aria este"; C1 * C2 / 2

END IF

END

Programul 29

Varianta 1

10 PRINT "ACEST PROGRAM, VA DETERMINA SEMNUL UNEI FUNCTII DE FORMA:"

20 PRINT "F:R->R"

30 PRINT "F(X)=A*X+B PENTRU O VALOARE FIXATA A LUI X."

40 INPUT "A="; A: INPUT "B="; B: INPUT "X="; X

50 IF A < 0 THEN GOTO 100

60 IF A > 0 THEN GOTO 130

70 IF B > 0 THEN PRINT "FUNCTIA ESTE POZITIVA PENTRU ORICE X.": STOP

80 IF B < 0 THEN PRINT "FUNCTIA ESTE NEGATIVA PENTRU ORICE X.": STOP

90 PRINT "FUNCTIA ESTE NULA PENTRU ORICE X.": STOP

100 IF X > -B / A THEN PRINT "FUNCTIA ESTE NEGATIVA IN X.": STOP

110 IF X = -B / A THEN PRINT "FUNCTIA ESTE NULA IN X.": STOP

120 PRINT "FUNCTIA ESTE POZITIVA IN X.": STOP

130 IF X > -B / A THEN PRINT "FUNCTIA ESTE POZITIVA IN X.": STOP

140 IF X = -B / A THEN PRINT "FUNCTIA ESTE NULA IN X.": STOP

150 PRINT "FUNCTIA ESTE NEGATIVA IN X."

160 STOP

PRINT "Acest program va determina semnul unei functii de forma:"

PRINT "f:R->R"

PRINT "f(X)=A*X+B pentru o valoare fixata a lui X."

INPUT "A=", A: INPUT "B=", B: INPUT "X=", X

IF A < 0 THEN

        IF X > -B / A THEN

                PRINT "Functia este negativa in X."

        ELSEIF X < -B / A THEN

                PRINT "Functia este pozitiva in X."

        ELSE

                PRINT "Functia este nula in X."

        END IF

ELSEIF A > 0 THEN

        IF X > -B / A THEN

                PRINT "Functia este pozitiva in X."

        ELSEIF X < -B / A THEN

                PRINT "Functia este negativa in X."

        ELSE

                PRINT "Functia este nula in X."

        END IF

ELSE

        IF B > 0 THEN

                PRINT "Functia este pozitiva pentru orice X."

        ELSEIF B < 0 THEN

                PRINT "Functia este negativa pentru orice X."

        ELSE

                PRINT "Functia este nula pentru orice X."

        END IF

END IF

Varianta 2

10 PRINT "ACEST PROGRAM, VA DETERMINA SEMNUL UNEI FUNCTII DE FORMA:"

20 PRINT "F:R->R"

30 PRINT "F(X)=A*X+B PENTRU O VALOARE FIXATA A LUI X."

40 INPUT "A="; A: INPUT "B="; B: INPUT "X="; X

50 IF A < 0 THEN GOTO 100

60 IF A > 0 THEN GOTO 130

70 IF B > 0 THEN PRINT "FUNCTIA ESTE POZITIVA PENTRU ORICE X.": STOP

80 IF B < 0 THEN PRINT "FUNCTIA ESTE NEGATIVA PENTRU ORICE X.": STOP

90 PRINT "FUNCTIA ESTE NULA PENTRU ORICE X.": STOP

100 IF X > -B / A THEN GOSUB 1000: STOP

110 IF X = -B / A THEN GOSUB 2000: STOP

120 GOSUB 3000: STOP

130 IF X > -B / A THEN GOSUB 3000: STOP

140 IF X = -B / A THEN GOSUB 2000: STOP

150 GOSUB 1000: STOP

1000 PRINT "FUNCTIA ESTE NEGATIVA IN X.": RETURN

2000 PRINT "FUNCTIA ESTE NULA IN X.": RETURN

3000 PRINT "FUNCTIA ESTE POZITIVA IN X": RETURN

PRINT "Acest program va determina semnul unei functii de forma:"

PRINT "f:R->R"

PRINT "f(X)=A*X+B pentru o valoare fixata a lui X."

INPUT "A=", A: INPUT "B=", B: INPUT "X=", X

IF A <> 0 THEN

        IF X > -B / A THEN

                SW = -SGN(A)

        ELSEIF X < -B / A THEN

                SW = SGN(A)

        ELSE

                SW = 0

        END IF

        SELECT CASE SW

                CASE -1

                        PRINT "Functia este negativa in X."

                CASE 1

                        PRINT "Functia este pozitiva in X."

                CASE 0

                        PRINT "Functia este nula in X."

        END SELECT

ELSE

        IF B > 0 THEN

                PRINT "Functia este pozitiva pentru orice X."

        ELSEIF B < 0 THEN

                PRINT "Functia este negativa pentru orice X."

        ELSE

                PRINT "Functia este nula pentru orice X."

        END IF

END IF

Programul 30

10 INPUT "A="; A: INPUT "B="; B: INPUT "C="; C: INPUT "D="; D

20 IF A <= B THEN LET M1 = A: GOTO 40

30 LET M1 = B

40 IF C >= D THEN LET M2 = C: GOTO 60

50 LET M2 = D

60 IF C = 0 THEN LET E = M1: GOTO 90

70 IF C < 0 THEN LET E = M2: GOTO 90

80 LET E = (M1 + M2) / 25

90 PRINT "E="; E

100 STOP

INPUT "A=", A: INPUT "B=", B: INPUT "C=", C: INPUT "D=", D

IF A <= B THEN M1 = A ELSE M1 = B

IF C >= D THEN M2 = C ELSE M2 = D

IF C = 0 THEN

        E = M1

ELSEIF C < 0 THEN

        E = M2

ELSE

        E = (M1 + M2) / 25

END IF

PRINT "E="; E

END

Programul 31

10 INPUT "A="; A: INPUT "B="; B: INPUT "C="; C: INPUT "D="; D

20 IF D = 0 THEN LET X = A: LET Y = B: LET Z = C: GOSUB 90: LET E = MI: GOTO 70

30 IF D < 0 THEN LET M = A: LET N = B: LET P = D: GOSUB 130: LET E = MA: GOTO 70

40 LET X = A: LET Y = B: LET Z = D: GOSUB 90

50 LET M = A: LET N = B: LET P = C: GOSUB 130

60 LET E = MI + MA

70 PRINT "E="; E

80 STOP

90 LET MI = X

100 IF MI > Y THEN LET MI = Y

110 IF MI > Z THEN LET MI = Z

120 RETURN

130 LET MA = M

140 IF MA < N THEN LET MA = N

150 IF MA < P THEN LET MA = P

160 RETURN

DECLARE FUNCTION MIN! (X!, Y!, Z!)

DECLARE FUNCTION MAX! (X!, Y!, Z!)

INPUT "A=", A: INPUT "B=", B: INPUT "C=", C: INPUT "D=", D

IF D = 0 THEN

        E = MIN(A, B, C)

ELSEIF D < 0 THEN

        E = MAX(A, B, D)

ELSE

        E = MIN(A, B, D) + MAX(A, B, C)

END IF

PRINT "E="; E

END

FUNCTION MAX (X, Y, Z)

        MA = X

        IF MA < Y THEN MA = Y

        IF MA < Z THEN MA = Z

        MAX = MA

END FUNCTION

FUNCTION MIN (X, Y, Z)

        MI = X

        IF MI > Y THEN MI = Y

        IF MI > Z THEN MI = Z

        MIN = MI

END FUNCTION

Programul 32

10 INPUT "A="; A: INPUT "B="; B: INPUT "C="; C: INPUT "D="; D

20 IF D = 0 THEN LET X = A: LET Y = B: LET Z = C: GOSUB 90: LET E = MI: GOTO 70

30 IF D < 0 THEN LET M = A: LET N = B: LET P = D: GOSUB 130: LET E = MA: GOTO 70

40 LET X = B: LET Y = C: LET Z = D: GOSUB 90

50 LET M = A: LET N = D: LET P = C: GOSUB 130

60 LET E = MI + MA

70 PRINT "E="; E

80 STOP

90 LET MI = X

100 IF MI > Y THEN LET MI = Y

110 IF MI > Z THEN LET MI = Z

120 RETURN

130 LET MA = M

140 IF MA < N THEN LET MA = N

150 IF MA < P THEN LET MA = P

160 RETURN

DECLARE FUNCTION MIN! (X!, Y!, Z!)

DECLARE FUNCTION MAX! (X!, Y!, Z!)

INPUT "A=", A: INPUT "B=", B: INPUT "C=", C: INPUT "D=", D

IF D = 0 THEN

        E = MIN(A, B, C)

ELSEIF D < 0 THEN

        E = MAX(A, B, D)

ELSE

        E = MIN(B, C, D) + MAX(A, D, C)

END IF

PRINT "E="; E

END

FUNCTION MAX (X, Y, Z)

        MA = X

        IF MA < Y THEN MA = Y

        IF MA < Z THEN MA = Z

        MAX = MA

END FUNCTION

FUNCTION MIN (X, Y, Z)

        MI = X

        IF MI > Y THEN MI = Y

        IF MI > Z THEN MI = Z

        MIN = MI

END FUNCTION

Programul 33

10 INPUT "A="; A: INPUT "B="; B: INPUT "C="; C

20 INPUT "M="; M: INPUT "N="; N: INPUT "D="; D

30 LET DS = A * N - M * B

40 LET DX = C * N - B * D

50 LET DY = A * D - M * C

60 IF DS = 0 THEN GOTO 100

70 LET X = DX / DS: LET Y = DY / DS

80 PRINT "SIST. ARE CA SOLUTIE PERECHEA ORDONATA:("; X; ","; Y; ")."

90 STOP

100 IF DX = 0 OR DY = 0 THEN PRINT "SISTEMUL ARE O INFINITATE DE SOLUTII.": STOP

110 PRINT "SISTEMUL NU ARE SOLUTII."

120 STOP

INPUT "A=", A: INPUT "B=", B: INPUT "C=", C

INPUT "M=", M: INPUT "N=", N: INPUT "D=", D

DS = A * N - M * B

DX = C * N - B * D

DY = A * D - M * C

IF DS = 0 THEN

        IF DX = 0 OR DY = 0 THEN

                PRINT "Sistemul are o infinitate de solutii."

        ELSE

                PRINT "Sistemul nu are solutii."

        END IF

ELSE

        X = DX / DS: Y = DY / DS

        PRINT "Sistemul are ca solutie perechea ordonata ("; X; ","; Y; ")."

END IF

END

Programul 34

10 INPUT "A="; A

20 IF A <> INT(A) THEN PRINT "NU ATI INTRODUS UN NUMAR INTREG.": STOP

30 AM = ABS(A)

40 L$ = STR$(A)

50 LG = LEN(L$) - 1

60 PRINT "NUMARUL DE CIFRE ALE LUI"; A; "ESTE"; LG

70 STOP

INPUT "A="; A

IF A <> INT(A) THEN

  PRINT "Nu ati introdus un numar intreg."

ELSE

  AM = ABS(A)

  L$ = STR$(A)

  LG = LEN(L$) - 1

  PRINT "Numarul de cifre ale lui"; A; "este"; LG

END IF

END

Programul 35

10 INPUT "A="; A: INPUT "B="; B

20 IF A <= 0 OR B <= 0 THEN PRINT "A SI B TREBUIE SA FIE >0!": GOTO 10

30 IF A >= B THEN LET E = (A ^ (1 / 3) + B ^ (1 / 4)) / 2: GOTO 50

40 LET E = A ^ (1 / 7) + B ^ (1 / 5) - (A * B) ^ (1 / 3)

50 PRINT "E="; E

60 STOP

INPUT "A=", A: INPUT "B=", B

IF A <= 0 OR B <= 0 THEN

        PRINT "A si B trebuie sa fie >0!"

ELSE

        IF A >= B THEN

                E = (A ^ (1 / 3) + B ^ (1 / 4)) / 2

        ELSE

                E = A ^ (1 / 7) + B ^ (1 / 5) - (A * B) ^ (1 / 3)

        END IF

        PRINT "E="; E

END IF

END

Pagina urmatoare