Solutii capitolul 4

Solutii Capitolul 4 (B)

Pagina anterioara

Programul 21

Varianta 1

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(2)

70 FOR I = 2 TO N STEP 2

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

90 NEXT I

100 LET MIN = A(1)

110 FOR I = 1 TO N STEP 2

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

130 NEXT I

140 PRINT "MAX="; MAX

150 PRINT "MIN="; MIN

160 STOP

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

DIM A(N)

FOR I = 1 TO N

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

MAX = A(2)

FOR I = 2 TO N STEP 2

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

MIN = A(1)

FOR I = 1 TO N STEP 2

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

PRINT "Max="; MAX

PRINT "Min="; MIN

END

Varianta 2

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 MIN = A(1): LET MAX = A(2)

70 FOR I = 2 TO N STEP 2

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

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

100 NEXT I

110 PRINT "MAX="; MAX

120 PRINT "MIN="; MIN

130 STOP

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

DIM A(N)

FOR I = 1 TO N

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

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

FOR I = 2 TO N STEP 2

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

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

PRINT "Max="; MAX

PRINT "Min="; MIN

END

Programul 22

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

20 DIM A(N): LET SW1 = 0: LET SW2 = 0

30 FOR I = 1 TO N

40 INPUT A(I)

50 IF A(I) < 0 THEN LET SW1 = 1

60 IF A(I) > 0 THEN LET SW2 = 1: LET K = I

70 NEXT I

80 IF SW1 = 0 AND SW2 = 0 THEN PRINT "TOTI TERM. TABLOULUI SUNT NULI.": STOP

90 IF SW1 = 0 THEN PRINT "TOTI TERM. TABLOULUI SUNT <0.": STOP

100 IF SW2 = 0 THEN PRINT "TOTI TERM. TABLOULUI SUNT >0.": STOP

110 LET MAX = A(K)

120 FOR I = 1 TO K

130 IF A(I) <= 0 THEN GOTO 150

140 IF A(I) > MAX THEN LET MAX = A(I)

150 NEXT I

160 FOR I = 1 TO N

170 IF A(I) < 0 THEN LET A(I) = MAX

180 PRINT A(I)

190 NEXT I

200 STOP

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

DIM A(N): SW1 = 0: SW2 = 0

FOR I = 1 TO N

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

IF A(I) < 0 THEN

SW1 = 1

ELSEIF A(I) > 0 THEN

SW2 = 1

K = I

END IF

IF SW1 = 0 AND SW2 = 0 THEN

PRINT "Toti term. tabloului sunt nuli."

ELSEIF SW1 = 0 THEN

PRINT "Toti term. tabloului sunt <0."

ELSEIF SW2 = 0 THEN

PRINT "Toti term. tabloului sunt >0."

ELSE

MAX = A(K)

FOR I = 1 TO K

IF A(I) > MAX THEN MAX = A(I): 'MAX>0 deci A(I)>MAX=>A(I)>0

END IF

FOR I = 1 TO N

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

PRINT A(I);

END

Programul 23

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 FOR I = 1 TO N / 2

70 LET T = A(I): LET A(I) = A(N - I + 1): LET A(N - I + 1) = T

80 NEXT I

90 FOR I = 1 TO N

100 PRINT A(I)

110 NEXT I

120 STOP

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

DIM A(N)

FOR I = 1 TO N

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

FOR I = 1 TO N \ 2

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

FOR I = 1 TO N

PRINT A(I);

END

Programul 24

INPUT "INTR. NR. DE TERMENI AI TABLOULUI (N>1):N="; N

20 DIM A(N), B(N)

30 FOR I = 1 TO N

40 INPUT A(I)

50 NEXT I

60 FOR I = 1 TO N

70 B(I) = 0

80 FOR J = 1 TO N

90 IF I = J THEN GOTO 110

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

110 NEXT J

120 LET B(I) = B(I) / (N - 1)

130 NEXT I

140 FOR I = 1 TO N

150 PRINT B(I)

160 NEXT I

170 STOP

INPUT "Intr. nr. de termeni ai tabloului (n>1):", N

DIM A(N), B(N)

FOR I = 1 TO N

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

FOR I = 1 TO N

B(I) = 0

FOR J = 1 TO N

IF I <> J THEN B(I) = B(I) + A(J)

B(I) = B(I) / (N - 1)

FOR I = 1 TO N

PRINT B(I);

END

Programul 25

10 INPUT "N="; N

20 DIM A(N)

30 FOR I = 1 TO N

40 INPUT A(I)

50 NEXT I

60 LET SW = 0

70 FOR I = 1 TO N STEP 2

80 LET R = A(I) - 17 * INT(A(I) / 17)

90 IF R <> 9 THEN GOTO 110

100 SW = SW + 1

110 NEXT I

120 IF SW = 0 THEN PRINT "TABLOUL NU ARE ASTFEL DE ELEMENTE.": STOP

130 DIM B(SW): LET K = 0

140 FOR I = 1 TO N STEP 2

150 LET R = A(I) - 17 * INT(A(I) / 17)

160 IF R <> 9 THEN GOTO 180

170 LET K = K + 1: LET B(K) = A(I): PRINT B(K)

180 NEXT I

190 STOP

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

DIM A(N)

FOR I = 1 TO N

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

SW = 0

FOR I = 1 TO N STEP 2

R = A(I) MOD 17

IF R = 9 THEN SW = SW + 1

IF SW = 0 THEN

PRINT "Tabloul nu are astfel de elemente."

ELSE

DIM B(SW): K = 0

FOR I = 1 TO N STEP 2

R = A(I) MOD 17

IF R = 9 THEN

K = K + 1

B(K) = A(I)

PRINT B(K)

END IF

END

Programul 26

10 INPUT "N="; N

20 DIM A(N): DIM B(N): LET K = 0

30 FOR I = 1 TO N

40 INPUT A(I)

50 IF A(I) = 0 THEN GOTO 70

60 LET K = K + 1: LET B(K) = A(I)

70 NEXT I

80 IF K = 0 THEN PRINT "TABLOUL INTRODUS ARE TOATE ELEM. NULE.": STOP

90 FOR I = 1 TO N

100 PRINT B(I)

110 NEXT I

120 STOP

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

DIM A(N), B(N)

K = 0

FOR I = 1 TO N

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

IF A(I) <> 0 THEN K = K + 1: B(K) = A(I)

IF K = 0 THEN

PRINT "Tabloul introdus are toate elementele nule."

ELSE

FOR I = 1 TO N

PRINT B(I);

END IF

END

Programul 27

10 INPUT "N="; N: LET D = 0: LET T = 0: LET C = 0: LET S = 0

20 DIM A(N)

30 FOR I = 1 TO N

40 INPUT A(I)

50 IF A(I) / 2 = INT(A(I) / 2) THEN LET D = D + 1

60 IF A(I) / 3 = INT(A(I) / 3) THEN LET T = T + 1

70 IF A(I) / 5 = INT(A(I) / 5) THEN LET C = C + 1

80 IF A(I) / 7 = INT(A(I) / 7) THEN LET S = S + 1

90 NEXT I

100 PRINT "NR. DE ELEM. DIV. CU 2:"; D

110 PRINT "NR. DE ELEM. DIV. CU 3:"; T

120 PRINT "NR. DE ELEM. DIV. CU 5:"; C

130 PRINT "NR. DE ELEM. DIV. CU 7:"; S

140 STOP

INPUT "N=", N: D = 0: T = 0: C = 0: S = 0

DIM A(N)

FOR I = 1 TO N

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

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

IF A(I) MOD 3 = 0 THEN T = T + 1

IF A(I) MOD 5 = 0 THEN C = C + 1

IF A(I) MOD 7 = 0 THEN S = S + 1

PRINT "Nr. de elem. div. cu 2:"; D

PRINT "Nr. de elem. div. cu 3:"; T

PRINT "Nr. de elem. div. cu 5:"; C

PRINT "Nr. de elem. div. cu 7:"; S

END

Programul 28

10 INPUT "INTR. GRADUL POLINOMULUI P(X); N="; N

20 DIM A(N + 1)

30 PRINT "INTR. COEFICIENTII POLINOMULUI INCEPAND CU TERMENUL LIBER:"

40 FOR I = 1 TO N + 1

50 INPUT A(I)

60 NEXT I

70 IF N <> 0 THEN GOTO 100

80 PRINT "POLINOMUL ESTE DE GRADUL ZERO SI ARE CA VALOARE:"; A(1)

90 STOP

100 INPUT "INTR. ARGUMENTUL X="; X

110 LET P = A(1)

120 FOR I = 2 TO N + 1

130 LET P = P + A(I) * X ^ (I - 1)

140 NEXT I

150 PRINT "P("; X; ")="; P

160 STOP

INPUT "Intr. gradul polinomului P(X):"; N

DIM A(N)

PRINT "Intr. coeficientii polinomului incepand cu termenul liber:"

FOR I = 0 TO N

INPUT A(I)

IF N = 0 THEN

PRINT "Polinomul este de gradul zero si are ca valoare:"; A(0)

ELSE

INPUT "Introduceti argumentul X=", X

P = 0

FOR I = 0 TO N

P = P + A(I) * X ^ I

PRINT "P("; X; ")="; P

END IF

END

Programul 29

10 INPUT "INTR. GRADUL POLIN. DE LA NUMARATOR N="; N

20 INPUT "INTR. GRADUL POLIN. DE LA NUMITOR M="; M

30 DIM A(N + 1): DIM B(M + 1)

40 PRINT "INTR. COEF. POLIN. DE LA NUMARATOR INCEPAND CU TERMENUL LIBER:"

50 FOR I = 1 TO N + 1

60 INPUT A(I)

70 NEXT I

80 PRINT "INTR. COEF. POLIN. DE LA NUMITOR INCEPAND CU TERMENUL LIBER:"

90 FOR I = 1 TO M + 1

100 INPUT B(I)

110 NEXT I

120 INPUT "INTRODUCETI VALOAREA ARGUMENTULUI X="; X

130 LET P = A(1): LET Q = B(1)

140 IF N = 0 THEN GOTO 180

150 FOR I = 2 TO N + 1

160 LET P = P + A(I) * X ^ (I - 1)

170 NEXT I

180 IF M = 0 THEN GOTO 220

190 FOR I = 2 TO M + 1

200 LET Q = Q + B(I) * X ^ (I - 1)

210 NEXT I

220 IF Q = 0 THEN PRINT "FRACTIA NU ESTE DEFINITA IN "; X; ".": STOP

230 LET F = P / Q

240 PRINT "F("; X; ")="; F

250 STOP

INPUT "Intr. gradul polin. de la numarator:", N

INPUT "Intr. gradul polin. de numitor:", M

DIM A(N), B(N)

PRINT "Intr. coef. polin. de la numarator incepand cu termenul liber:"

FOR I = 0 TO N

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

PRINT "Intr. coef. polin. de la numitor incepand cu termenul liber:"

FOR I = 0 TO M

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

INPUT "Introduceti valoarea argumentului X:", X

P = 0: Q = 0

FOR I = 0 TO N

P = P + A(I) * X ^ I

FOR I = 0 TO M

Q = Q + B(I) * X ^ I

IF Q = 0 THEN

PRINT "Fractia nu e definita in "; X; "."

ELSE

F = P / Q

PRINT "F("; X; ")="; F

END IF

END

Programul 30

Varianta 1

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

20 DIM A(N)

30 FOR I = 1 TO N

40 LET P = I - 2 * INT(I / 2)

50 INPUT A(I)

60 IF P = 0 THEN LET A(I) = A(I) * 2: GOTO 80

70 LET A(I) = A(I) * 3

80 NEXT I

90 FOR I = 1 TO N

100 PRINT A(I)

110 NEXT I

120 STOP

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

DIM A(N)

FOR I = 1 TO N

INPUT A(I)

IF I MOD 2 = 0 THEN A(I) = A(I) * 2 ELSE A(I) = A(I) * 3

FOR I = 1 TO N

PRINT A(I);

END

Varianta 2

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

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

30 FOR I = 1 TO N

40 LET P = I - 2 * INT(I / 2)

50 INPUT A(I)

60 IF P = 0 THEN LET B(I) = A(I) * 2: GOTO 80

70 LET B(I) = A(I) * 3

80 NEXT I

90 FOR I = 1 TO N

100 PRINT A(I), B(I)

110 NEXT I

120 STOP

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

DIM A(N), B(N)

FOR I = 1 TO N

INPUT A(I)

IF I MOD 2 = 0 THEN B(I) = A(I) * 2 ELSE B(I) = A(I) * 3

FOR I = 1 TO N

PRINT A(I), B(I)

END

Programul 31

10 INPUT "INTR. GRADUL POLINOMULUI P (>=1):"; N

20 DIM A(N + 1)

30 PRINT "INTR. COEF. POLINOMULUI P INCEPAND CU TERMENUL LIBER:"

40 FOR I = 1 TO N + 1

50 INPUT A(I)

60 NEXT I

70 INPUT "INTR. TERMENUL LIBER AL BINOMULUI (DE FORMA X-A):"; B

80 LET P = A(1)

90 FOR I = 2 TO N + 1

100 LET P = P + A(I) * B ^ (I - 1)

110 NEXT I

120 IF P = 0 THEN PRINT "BINOMUL CONSIDERAT DIVIDE POLINOMUL P.": STOP

130 PRINT "BINOMUL CONSIDERAT NU DIVIDE POLINOMUL P."

140 STOP

DEFLNG P

INPUT "Intr. gradul polinomului P (>=1):", N

DIM A(N)

PRINT "Intr. coef. polinomului P incepand cu termenul liber (nr. intregi):"

FOR I = 0 TO N

INPUT A(I)

INPUT "Intr. termenul liber al binomului (de forma X-a):"; B

P = A(0)

S = 1

FOR I = 1 TO N

S = S * B

P = P + A(I) * B ^ I

IF P = 0 THEN

PRINT "Binomul considerat divide polinomul P."

ELSE

PRINT "Binomul considerat nu divide polinomul P."

END IF

END

Programul 32

10 INPUT "INTR. NR. DE ELEVI:"; N

20 INPUT "INTR. NR. DE LITERE ALE CELUI MAI LUNG NUME:"; M

30 DIM A$(N, M): PRINT "INTR. NUMELE ELEVILOR:"

40 FOR I = 1 TO N

50 INPUT A$(I, M)

60 NEXT I

70 FOR I = 1 TO N

80 PRINT A$(I, M)

90 NEXT I

100 STOP

INPUT "Intr. nr. de elevi:", N

DIM NUME(N) AS STRING * 20

PRINT "Intr. numele elevilor(max 20 litere):"

FOR I = 1 TO N

INPUT NUME(I)

FOR I = 1 TO N

PRINT NUME(I)

END

Programul 33

10 INPUT "INTR. NR. DE ELEVI:"; N

20 INPUT "INTR. NR. DE LITERE AE CELUI MAI LUNG NUME:"; M

30 DIM A$(N, M)

40 PRINT "INTRODUCETI NUMELE ELEVILOR:"

50 FOR I = 1 TO N

60 INPUT A$(I, M)

70 NEXT I

80 LET SW = 0

90 FOR I = 1 TO N - 1

100 IF A$(I, M) <= A$(I + 1, M) THEN GOTO 150

110 LET T$ = A$(I, M)

120 LET A$(I, M) = A$(I + 1, M)

130 LET A$(I + 1, M) = T$

140 LET SW = 1

150 NEXT I

160 IF SW = 1 THEN GOTO 80

170 FOR I = 1 TO N

180 PRINT A$(I, M)

190 NEXT I

200 STOP

INPUT "Intr. nr. de elevi:", N

DIM A(N) AS STRING * 15

PRINT "Intr. numele elevilor (max. 15 litere):"

FOR I = 1 TO N

INPUT A(I)

SW = 1

FOR I = 1 TO N - 1

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

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

SW = 0

END IF

LOOP UNTIL SW = 1

FOR I = 1 TO N

PRINT A(I)

END

Programul 34

10 INPUT "INTR. NR. DE ELEM. ALE PRIMEI MULTIMI M="; M

20 INPUT "INTR. NR. DE ELEM. ALE CELEI DE-A DOUA MULTIMI N="; N

30 DIM A(M): DIM B(N): DIM R(M + N): DIM C(M): DIM D(M)

40 PRINT "INTR. ELEM. PRIMEI MULTIMI:"

50 FOR I = 1 TO M

60 INPUT A(I): LET R(I) = A(I)

70 NEXT I

80 PRINT "INTR. ELEM. CELEI DE-A DOUA MULTIMI:"

90 FOR I = 1 TO N

100 INPUT B(I)

110 NEXT I

120 LET K = M: LET L = 0

130 FOR I = 1 TO N

140 LET SW = 0

150 FOR J = 1 TO M

160 IF B(I) = A(J) THEN LET SW = 1

170 NEXT J

180 IF SW = 1 THEN GOTO 200

190 LET K = K + 1: LET R(K) = B(I)

200 NEXT I

210 PRINT "ELEM. REUNIUNII SUNT:"

220 FOR I = 1 TO K

230 PRINT R(I)

240 NEXT I

250 PRINT : PRINT

260 FOR I = 1 TO M

270 LET SW = 0

280 FOR J = 1 TO N

290 IF A(I) = B(J) THEN LET SW = 1

300 NEXT J

310 IF SW = 0 THEN GOTO 330

320 LET L = L + 1: LET C(L) = A(I)

330 NEXT I

340 IF L = 0 THEN PRINT "INTER. CELOR DOUA MUL. ESTE MUL. VIDA.": GOTO 390

350 PRINT "ELEM. INTER. SUNT:"

360 FOR I = 1 TO L

370 PRINT C(I)

380 NEXT I

390 PRINT : PRINT

400 LET T = 0

410 FOR I = 1 TO M

420 LET SW = 0

430 FOR J = 1 TO N

440 IF A(I) = B(J) THEN LET SW = 1

450 NEXT J

460 IF SW = 1 THEN GOTO 480

470 LET T = T + 1: LET D(T) = A(I)

480 NEXT I

490 IF T = 0 THEN PRINT "DIF. CELOR DOUA MUL. ESTE MUL. VIDA.": STOP

500 PRINT "ELEMENTELE DIFERENTEI SUNT:"

510 FOR I = 1 TO T

520 PRINT D(I)

530 NEXT I

540 STOP

INPUT "Intr. nr. de elem. ale primei multimi:", M

INPUT "Intr. nr. de elem. ale celei de-a doua multimi:", N

DIM A(M), B(N), R(M + N), C(M), D(M)

PRINT "Introduceti elementele primei multimi:"

FOR I = 1 TO M

INPUT A(I)

R(I) = A(I)

PRINT "Introduceti elementele celei de-a doua multimi:"

FOR I = 1 TO N

INPUT B(I)

K = M

L = 0

FOR I = 1 TO N

SW = 0

FOR J = 1 TO M

IF B(I) = A(J) THEN

SW = 1

EXIT FOR

END IF

IF SW = 0 THEN

K = K + 1

R(K) = B(I)

END IF

PRINT "Elementele reuniunii sunt:"

FOR I = 1 TO K

PRINT R(I)

PRINT : PRINT

FOR I = 1 TO M

SW = 0

FOR J = 1 TO N

IF A(I) = B(J) THEN

SW = 1

EXIT FOR

END IF

IF SW = 1 THEN

L = L + 1

C(L) = A(I)

END IF

IF L = 0 THEN

PRINT "Intersectia celor doua multimi este multimea vida."

ELSE

PRINT "Elementele intersectiei sunt:"

FOR I = 1 TO L

PRINT C(I)

END IF

PRINT : PRINT

T = 0

FOR I = 1 TO M

SW = 0

FOR J = 1 TO N

IF A(I) = B(J) THEN

SW = 1

EXIT FOR

END IF

IF SW = 0 THEN

T = T + 1

D(T) = A(I)

END IF

IF T = 0 THEN

PRINT "Dif. celor doua multimi este multimea vida."

ELSE

PRINT "Elementele diferentei sunt:"

FOR I = 1 TO T

PRINT D(I)

END IF

END

Programul 35

10 INPUT "N="; N

20 DIM A(N): PRINT "INTRODUCETI"; N; "NR. NATURALE NENULE:"

30 FOR i = 1 TO N

40 INPUT A(i)

50 NEXT i

60 FOR i = 1 TO N

70 PRINT "DIVIZORII LUI"; A(i); "SUNT:"

80 FOR j = 1 TO A(i)

90 IF INT(A(i) / j) <> A(i) / j THEN GOTO 120

100 PRINT j

110 PRINT "DIVIZORUL"; j; "SE CUPRINDE DE"; A(i) / j; "ORI IN"; A(i)

120 NEXT j

130 NEXT i

140 STOP

INPUT "N=", N

REDIM A(N)

PRINT "Introduceti"; N; " nr. naturale nenule:"

FOR i = 1 TO N

INPUT A(i)

FOR i = 1 TO N

PRINT "Divizorii lui"; A(i); "sunt:"

FOR j = 1 TO A(i)

IF A(i) MOD j = 0 THEN

PRINT j

PRINT "Divizorul"; j; "se cuprinde de"; A(i) / j; "ori in"; A(i)

END IF

NEXT j, i

END

Programul 36

10 INPUT "N="; N

20 DIM A(N): DIM X(N): DIM Y(N)

30 FOR I = 1 TO N

40 INPUT A(I)

50 IF A(I) = 0 THEN PRINT "SIRUL TREBUIE SA AIBA ELEMNTELE NENULE!": STOP

60 IF A(I) = 1 THEN LET X(I) = 0: LET Y(I) = 0: GOTO 100

70 LET K = 1

80 IF INT(A(I) / 2 ^ K) = A(I) / 2 ^ K THEN LET K = K + 1: GOTO 80

90 LET X(I) = K - 1: LET Y(I) = (A(I) / 2 ^ (K - 1) - 1) / 2

100 NEXT I

110 FOR I = 1 TO N

120 PRINT A(I), "A="; X(I), "B="; Y(I)

130 NEXT I

140 STOP

INPUT "N=", N

REDIM A(N), X(N), Y(N)

SW = 0

FOR I = 1 TO N

INPUT A(I)

IF A(I) = 0 THEN

PRINT "Sirul trebuie sa aiba elementele nenule!:"

SW = 1

EXIT FOR

ELSEIF A(I) = 1 THEN

X(I) = 0

Y(I) = 0

ELSE

K = 0

DO WHILE A(I) MOD 2 ^ K = 0

K = K + 1

LOOP

X(I) = K - 1

Y(I) = (A(I) / 2 ^ (K - 1) - 1) / 2

END IF

IF SW = 0 THEN

FOR I = 1 TO N

PRINT A(I), "A="; X(I), "B="; Y(I)

END IF

END

Pagina anterioara

Home \| BAC/Teze \| Biblioteca \| Jobs \| Referate \| Horoscop \| Muzica \| Dex \| Games \| Barbie					Search!

Index \| Forum \| E-mail
Aceasta pagina de informatica se adreseaza incepatorilor in general, celor care doresc sa se documenteze pe o anumita tema, dar si profesorilor de Informatica interesati, care pot gasi aici prezentari multimedia, in conformitate cu programa MEN, recomandate pentru lectii si predare la clasa.




Meniu rapid Portalul e-scoala \| CAMPUS ASLS \| Forum discutii \| Premii de excelenta \| Europa