Solutii Capitolul 4 (A)

Pagina urmatoare

Programul 1

10 INPUT "Specificati nr. de elem. ale tabloului:";N

20 DIM A(N):LET S=0

30 PRINT "Introduceti elementele tabloului:"

40 FOR I=1 TO N

50 INPUT A(I)

60 LET S=S+A(I)

70 NEXT I

80 PRINT "S=";S: STOP

INPUT "Specificati nr. de elem. ale tabloului:",N

DIM A(N):S=0

PRINT "Introduceti elementele tabloului:"

FOR I=1 TO N

            INPUT A(I)

            S=S+A(I)

NEXT

PRINT "S=";S: END

Programul 2

10 INPUT "Specificati nr. de elem. ale tabloului:";N

20 DIM A(N):LET S=0

30 PRINT "iNTRODUCETI ELEMENTELE TABLOULUI:"

40 FOR I=1 TO N

50 INPUT A(i)

60 IF A(I)=0 THEN PRINT "SUMA NU SE POATE CALCULA.":STOP

70 LET S=S+1/A(I)

80 NEXT I

90 PRINT "s=";s

100 STOP

INPUT "Specificati nr. de elem. ale tabloului:",N

DIM A(N):S=0

PRINT "Introduceti elementele tabloului:"

FOR I=1 TO N

            INPUT A(I)

            IF A(I)=0 THEN PRINT "Suma nu se poate calcula.":END

            S=S+1/A(I)

NEXT

PRINT "S=";S: END

Programul 3

10 INPUT "INTRODUCETI NR. DE TERMENI AI TABLOULUI N="; N

20 DIM A(N): LET P = 1

30 FOR I = 1 TO N

40 INPUT A(I)

50 LET P = P * A(I) ^ 2

60 NEXT I

70 PRINT "P="; P

80 STOP

INPUT "Introduceti nr. de termeni ai tabloului:", N

DIM A(N)

P = 1

FOR I = 1 TO N

        INPUT A(I)

        P = P * A(I) ^ 2

NEXT

PRINT P

END

Programul 4

10 INPUT "INTR. NR. DE TERMENI AI TABLOULUI N="; N

20 DIM A(N): LET S = 0: LET SW = 0

30 FOR I = 1 TO N

40 INPUT A(I)

50 IF A(I) < 0 THEN GOTO 70

60 LET S = S + A(I): LET SW = 1

70 NEXT I

80 IF SW = 0 THEN PRINT "TABLOUL NU ARE ELEMENTE >=0": STOP

90 PRINT "S="; S

100 STOP

INPUT "Intr. nr. de termeni ai tabloului:", N

DIM A(N)

S = 0

SW = 0

FOR I = 1 TO N

        INPUT A(I)

        IF A(I) >= 0 THEN S = S + A(I): SW = 1

NEXT

IF SW = 0 THEN

        PRINT "Tabloul nu are elemente >=0"

ELSE

        PRINT "S="; S

END IF

END

Programul 5

10 INPUT "INTR. NR. DE TERMENI AI TABLOULUI N="; N

20 DIM A(N): LET S = 0

30 FOR I = 1 TO N

40 INPUT A(I)

50 IF A(I) > 0 THEN LET S = S + A(I)

60 NEXT I

70 IF S = 0 THEN PRINT "TABLOUL NU ARE ELEMENTE >0.": STOP

80 PRINT "S="; S

90 STOP

INPUT "Intr. nr. de termeni ai tabloului:", N

DIM A(N)

S = 0

FOR I = 1 TO N

        INPUT A(I)

        IF A(I) > 0 THEN S = S + A(I)

NEXT

IF S = 0 THEN

        PRINT "Tabloul nu are elemente >0."

ELSE

        PRINT "S="; S

END IF

END

Programul 6

10 INPUT "INTR. NR. DE TERMENI AI TABLOULUI N="; N

20 DIM A(N): LET P = 1: LET SW = 0

30 FOR I = 1 TO N

40 INPUT A(I)

50 IF A(I) < 0 THEN LET P = P * A(I): LET SW = 1

60 NEXT I

70 IF SW = 0 THEN PRINT "TABLOUL NU ARE ELEMENTE <0.": STOP

80 PRINT "P="; P

90 STOP

INPUT "Intr. nr. de termeni ai tabloului:", N

DIM A(N): P = 1: SW = 0

FOR I = 1 TO N

        INPUT A(I)

        IF A(I) < 0 THEN P = P * A(I): SW = 1

NEXT

IF SW = 0 THEN

        PRINT "Tabloul nu are elemente <0."

ELSE

        PRINT "P="; P

END IF

END

Programul 7

10 INPUT "SPECIFICATI CATE ELEMENTE ARE TABLOUL:"; M

20 DIM A(M)

30 LET N = 0: LET P = 0: LET Z = 0

40 FOR I = 1 TO M

50 INPUT A(I)

60 IF A(I) < 0 THEN LET N = N + 1: GOTO 90

70 IF A(I) > 0 THEN LET P = P + 1: GOTO 90

80 LET Z = Z + 1

90 NEXT I

100 PRINT "ELEMENTE POZITIVE SUNT:"; P

110 PRINT "ELEMENTE NEGATIVE SUNT:"; N

120 PRINT "ELEMENTE NULE SUNT:"; Z

130 STOP

INPUT "Specificati cate elemente are tabloul:", M

DIM A(M)

N = 0: P = 0: Z = 0

FOR I = 1 TO M

        INPUT A(I)

        IF A(I) < 0 THEN

                N = N + 1

        ELSEIF A(I) > 0 THEN

                P = P + 1

        ELSE

                Z = Z + 1

        END IF

NEXT

PRINT "Elemente pozitive sunt:"; P

PRINT "Elemente negative sunt:"; N

PRINT "Elemente nule sunt:"; Z

END

Programul 8

10 INPUT "SPECIFICATI CATE NR. SUNT:"; N

20 DIM A(N)

30 LET S = 0

40 FOR I = 1 TO N

50 INPUT A(I)

60 LET S = S + A(I)

70 NEXT I

80 LET M = S / N

90 PRINT "M="; M

100 STOP

INPUT "Specificati cate nr. sunt:", N

DIM A(N)

S = 0

FOR I = 1 TO N

        INPUT A(I)

        S = S + A(I)

NEXT

M = S / N

PRINT "M="; M

END

Programul 9

10 INPUT "INTRODUCETI NR. DE TERMENI AI TABLOULUI N="; N

20 DIM A(N): LET S = 0: LET P = 1: LET SW = 0

30 FOR I = 1 TO N

40 INPUT A(I)

50 IF A(I) > 0 THEN LET S = S + A(I)

60 IF A(I) < 0 THEN LET P = P * A(I): LET SW = 1

70 NEXT I

80 IF S = 0 THEN PRINT "TABLOUL NU ARE ELEMENTE >0.": GOTO 100

90 PRINT "S="; S

100 IF SW = 0 THEN PRINT "TABLOUL NU ARE ELEMENTE <0.": GOTO 100

110 PRINT "P="; P

120 STOP

INPUT "Introduceti nr. de termeni ai tabloului:", N

DIM A(N): S = 0: P = 1: SW = 0

FOR I = 1 TO N

        INPUT A(I)

        IF A(I) > 0 THEN S = S + A(I)

        IF A(I) < 0 THEN P = P * A(I): SW = 1

NEXT

IF S = 0 THEN

        PRINT "Tabloul nu are elemente >0."

ELSE

        PRINT "S="; S

END IF

IF SW = 0 THEN

        PRINT "Tabloul nu are elemente <0."

ELSE

        PRINT "P="; P

END IF

END

Programul 10

10 INPUT "SPECIFICATI CATE ELEMENTE ARE TABLOUL:"; N

20 DIM A(N): LET P = 0

30 FOR I = 1 TO N

40 INPUT A(I)

50 LET V = A(I) - 2 * INT(A(I) / 2)

60 IF V = 0 THEN LET P = P + 1

70 NEXT I

80 LET I = N - P

90 PRINT "NUMARUL DE ELEMENTE PARE ESTE:"; P

100 PRINT "NUMARUL DE ELEMENTE IMPARE ESTE:"; I

110 STOP

INPUT "Specificati cate elemente are tabloul:"; N

DIM A(N): P = 0

FOR I = 1 TO N

        INPUT A(I)

        IF A(I) MOD 2 = 0 THEN P = P + 1

NEXT

I = N - P

PRINT "Numarul de elemente pare este:"; P

PRINT "Numarul de elemente impare este:"; I

END

Programul 11

10 INPUT "SPECIFICATI NR. DE ELEMENTE ALE TABLOULUI:"; N

20 DIM A(N)

30 FOR I = 1 TO N

40 INPUT A(I)

50 NEXT I

60 LET M = A(1)

70 FOR I = 1 TO N

80 IF M >= A(I) THEN GOTO 100

90 LET M = A(I)

100 NEXT I

110 PRINT "MAXIMUL TABLOULUI ESTE:"; M

120 STOP

INPUT "Specificati nr. de elemente ale tabloului:", N

DIM A(N)

FOR I = 1 TO N

        PRINT "A("; I; ")";:INPUT "=", A(I)

NEXT

M = A(1)

FOR I = 1 TO N

        IF M < A(I) THEN M = A(I)

NEXT

PRINT "Maximul tabloului este:"; M

END

Programul 12

10 INPUT "SPECIFICATI NR. DE ELEMENTE ALE TABLOULUI:"; N

20 DIM A(N)

30 FOR I = 1 TO N

40 INPUT A(I)

50 NEXT I

60 LET M = A(1)

70 FOR I = 1 TO N

80 IF M <= A(I) THEN GOTO 100

90 LET M = A(I)

100 NEXT I

110 PRINT "MINIMUL TABLOULUI ESTE:"; M

120 STOP

INPUT "Specificati nr. de elemente ale tabloului:", N

DIM A(N)

FOR I = 1 TO N

        PRINT "A("; I; ")";:INPUT "=", A(I)

NEXT

M = A(1)

FOR I = 1 TO N

        IF M > A(I) THEN M = A(I)

NEXT

PRINT "Minimul tabloului este:"; M

END

Programul 13

10 INPUT "INTR. NR. DE TERMENI AI TABLOULUI N="; N

20 DIM A(N)

30 FOR I = 1 TO N

40 INPUT A(I)

50 NEXT I

60 LET MAX = A(1): LET MIN = A(1)

70 FOR I = 1 TO N

80 IF MAX < A(I) THEN LET MAX = A(I)

90 IF MIN > A(I) THEN LET MIN = A(I)

100 NEXT I

110 IF MAX = 0 OR MIN = 0 THEN PRINT "SUMA NU SE POATE CALCULA.": STOP

120 PRINT "S="; 1 / MAX + 1 / MIN

130 STOP

INPUT "Introduceti nr. de termeni ai tabloului:", N

DIM A(N)

FOR I = 1 TO N

                PRINT "A("; I; ")";:INPUT "=", A(I)

NEXT

MAX = A(1): MIN = A(1)

FOR I = 1 TO N

        IF MAX < A(I) THEN MAX = A(I)

        IF MIN > A(I) THEN MIN = A(I)

NEXT

IF MAX = 0 OR MIN = 0 THEN

        PRINT "Suma nu se poate calcula."

ELSE

        PRINT "S="; 1 / MAX + 1 / MIN

END IF

END

Programul 14

10 INPUT "SPECIFICATI NR. DE ELEMENTE ALE TABLOULUI:"; N

20 DIM A(N)

30 FOR I = 1 TO N

40 INPUT A(I)

50 NEXT I

60 LET S = 1

70 FOR I = 1 TO N - 1

80 IF A(I) >= A(I + 1) THEN GOTO 100

90 LET S = 0: LET M = A(I): LET A(I) = A(I + 1): LET A(I + 1) = M

100 NEXT I

110 IF S = 0 THEN GOTO 60

120 FOR I = 1 TO N

130 PRINT A(I)

140 NEXT I

150 STOP

INPUT "Specificati nr. de elemente ale tabloului:", N

DIM A(N)

FOR I = 1 TO N

        INPUT A(I)

NEXT

DO

        S = 1

        FOR I = 1 TO N - 1

                IF A(I) < A(I + 1) THEN

                        S = 0

                        SWAP A(I), A(I + 1)

                END IF

        NEXT

LOOP UNTIL S = 1

FOR I = 1 TO N

        PRINT A(I);

NEXT

PRINT

END

Programul 15

10 INPUT "SPECIFICATI NR. DE ELEMENTE ALE TABLOULUI:"; N

20 DIM A(N)

30 FOR I = 1 TO N

40 INPUT A(I)

50 NEXT I

60 LET S = 1

70 FOR I = 1 TO N - 1

80 IF A(I) <= A(I + 1) THEN GOTO 100

90 LET S = 0: LET M = A(I): LET A(I) = A(I + 1): LET A(I + 1) = M

100 NEXT I

110 IF S = 0 THEN GOTO 60

120 FOR I = 1 TO N

130 PRINT A(I)

140 NEXT I

150 STOP

INPUT "Specificati nr. de elemente ale tabloului:", N

DIM A(N)

FOR I = 1 TO N

        INPUT A(I)

NEXT

DO

        S = 1

        FOR I = 1 TO N - 1

                IF A(I) > A(I + 1) THEN

                        S = 0

                        SWAP A(I), A(I + 1)

                END IF

        NEXT

LOOP UNTIL S = 1

FOR I = 1 TO N

        PRINT A(I);

NEXT

PRINT

END

Programul 16

10 INPUT "SPECIFICATI NR. DE ELEM. ALE UNUI TABLOU:"; N

20 DIM A(N): DIM B(N): DIM S(N)

30 PRINT "INTRODUCETI ELEM. PRIMULUI TABLOU:"

40 FOR I = 1 TO N

50 INPUT A(I)

60 NEXT I

70 PRINT "INTRODUCETI ELEM. CELUILALT TABLOU:"

80 FOR I = 1 TO N

90 INPUT B(I)

100 LET S(I) = A(I) + B(I)

110 NEXT

120 FOR I = 1 TO N

130 PRINT "S("; I; ")="; S(I)

140 NEXT I

150 STOP

INPUT "Specificati nr. de elem. ale unui tablou:", N

DIM A(N), B(N), S(N)

PRINT "Introduceti elem. primului tablou:"

FOR I = 1 TO N

        PRINT "A("; I; ")"; : INPUT "=", A(I)

NEXT

PRINT "Introduceti elem. celuilalt tablou:"

FOR I = 1 TO N

        PRINT "B("; I; ")"; : INPUT "=", B(I)

        S(I) = A(I) + B(I)

NEXT

FOR I = 1 TO N

        PRINT "S("; I; ")="; S(I)

NEXT

END

Programul 17

10 INPUT "SPECIFICATI NR. DE ELEM. ALE UNUI TABLOU:"; N

20 DIM A(N): DIM B(N): DIM S(N)

30 PRINT "INTRODUCETI ELEM. PRIMULUI TABLOU:"

40 FOR I = 1 TO N

50 INPUT A(I)

60 NEXT I

70 PRINT "INTRODUCETI ELEM. CELUILALT TABLOU:"

80 FOR I = 1 TO N

90 INPUT B(I)

100 IF B(I) = 0 THEN PRINT "ELEM. ACESTUI TABLOU TREBUIE SA FIE NENULE.": STOP

110 LET S(I) = A(I) + 1 / B(I)

120 NEXT I

130 FOR I = 1 TO N

140 PRINT "S("; I; ")="; S(I)

150 NEXT I

160 STOP

INPUT "Specificati nr. de elem. ale unui tablou:", N

DIM A(N), B(N), S(N)

SW = 0

PRINT "Introduceti elem. primului tablou:"

FOR I = 1 TO N

        PRINT "A("; I; ")"; : INPUT "=", A(I)

NEXT

PRINT "Introduceti elem. celuilalt tablou:"

FOR I = 1 TO N

        PRINT "B("; I; ")"; : INPUT "=", B(I)

        IF B(I) = 0 THEN SW = 1: EXIT FOR

        S(I) = A(I) + 1 / B(I)

NEXT

IF SW = 0 THEN

        FOR I = 1 TO N

                PRINT "S("; I; ")="; S(I)

        NEXT

ELSE

        PRINT "Elementele acestui sir trebuie sa fie nenule."

END IF

END

Programul 18

10 INPUT "INTR. NR. DE TERMENI AI TABLOULUI N="; N

20 DIM A(N): DIM B(N): DIM C(N)

30 LET S1 = 0: LET S2 = 0

40 FOR I = 1 TO N

50 INPUT A(I)

60 IF A(I) < 0 THEN LET S1 = S1 + 1: LET B(S1) = A(I): GOTO 80

70 IF A(I) > 0 THEN LET S2 = S2 + 1: LET C(S2) = A(I): GOTO 80

80 NEXT I

90 IF S2 = 0 THEN PRINT "TABLOUL NU ARE ELEMENTE >0.": GOTO 140

100 FOR I = 1 TO S2

110 PRINT C(I); "  ";

120 NEXT I

130 PRINT : PRINT

140 IF S1 = 0 THEN PRINT "TABLOUL NU ARE ELEMENTE <0.": STOP

150 FOR I = 1 TO S1

160 PRINT B(I); "  ";

170 NEXT I

180 STOP

INPUT "Intr. nr. de termeni ai tabloului:", N

DIM A(N), B(N), C(N)

S1 = 0: S2 = 0

FOR I = 1 TO N

        PRINT "A("; I; ")"; : INPUT "=", A(I)

        IF A(I) < 0 THEN

                S1 = S1 + 1

                B(S1) = A(I)

        ELSEIF A(I) > 0 THEN

                S2 = S2 + 1

                C(S2) = A(I)

        END IF

NEXT

IF S2 = 0 THEN

        PRINT "Tabloul nu are elemente >0."

ELSE

        FOR I = 1 TO S2

                PRINT C(I);

        NEXT

        PRINT : PRINT

END IF

IF S1 = 0 THEN

        PRINT "Tabloul nu are elemente <0."

ELSE

        FOR I = 1 TO S1

                PRINT B(I);

        NEXT

        PRINT : PRINT

END IF

END

Programul 19

10 INPUT "INTR. NR. DE ELEM. ALE TABLOULUI (UN NR. PAR):"; N

20 DIM A(N): DIM B(N / 2): LET J = 0

30 FOR I = 1 TO N

40 INPUT A(I)

50 NEXT I

60 FOR I = 1 TO N - 1 STEP 2

70 LET J = J + 1: LET B(J) = (A(I) + A(I + 1)) / 2

80 PRINT B(J)

90 NEXT I

100 STOP

DO

        INPUT "Intr. nr. de elem. ale tabloului (un nr. par):", N

LOOP UNTIL N MOD 2 = 0

DIM A(N), B(N / 2): J = 0

FOR I = 1 TO N

        INPUT A(I)

NEXT

FOR I = 1 TO N - 1 STEP 2

        J = J + 1

        B(J) = (A(I) + A(I + 1)) / 2

        PRINT B(J)

NEXT

END

Programul 20

10 INPUT "INTR. NR. DE ELEM. ALE TABLOULUI N="; N

20 DIM A(N): LET S = 0: LET SW = 0

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

40 IF A >= B THEN PRINT "A TREBUIE SA FIE < B !": GOTO 30

50 FOR I = 1 TO N

60 INPUT A(I)

70 IF A(I) >= A AND A(I) <= B THEN LET SW = 1: LET S = S + A(I)

80 NEXT I

90 IF SW = 0 THEN PRINT "TABLOUL NU ARE ELEM. CUPRINSE INTRE A SI B.": STOP

100 PRINT "S="; S

110 STOP

INPUT "Intr. nr. de elem. ale tabloului:", N

DIM A(N): S = 0: SW = 0

DO

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

        IF A >= B THEN PRINT "A trebuie sa fie < B !"

LOOP UNTIL A < B

FOR I = 1 TO N

        INPUT A(I)

        IF A(I) >= A AND A(I) <= B THEN

                SW = 1

                S = S + A(I)

        END IF

NEXT

IF SW = 0 THEN

        PRINT "Tabloul nu are elem. cuprinse intre A si B."

ELSE

        PRINT "S="; S

END IF

END

Pagina urmatoare