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





 

 

 

Inapoi la cuprins

Solutii Capitolul 5

Programul 1

Varianta 1:Spectrum ši Commodore

10 INPUT "INTR. NR. DE LINII M="; M

20 INPUT "INTR. NR. DE COLOANE N="; N

30 DIM A(M, N)

40 FOR I = 1 TO M

50 FOR J = 1 TO N

60 INPUT A(I, J)

70 NEXT J

80 NEXT I

90 FOR I = 1 TO M

100 FOR J = 1 TO N

110 PRINT A(I, J);TAB(J*6);

120 NEXT J

130 PRINT : PRINT

140 NEXT I

150 STOP

 

INPUT "Intr. nr. de linii:", M

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

DIM A(M, N)

FOR I = 1 TO M

        FOR J = 1 TO N

                INPUT A(I, J)

        NEXT

NEXT

FOR I = 1 TO M

        FOR J = 1 TO N

                PRINT A(I, J);TAB(J*6);

        NEXT

        PRINT:PRINT    

NEXT

END

 

Varianta 2:Spectrum

10 INPUT "INTR. NR. DE LINII M="; M

20 INPUT "INTR. NR. DE COLOANE N="; N

30 DIM A(M, N)

40 FOR I = 1 TO M

50 FOR J = 1 TO N

60 INPUT A(I, J)

70 NEXT J

80 NEXT I

85 CLS

90 FOR I = 1 TO M

100 FOR J = 1 TO N

110 PRINT AT I*2,J*3;A(I, J),

120 NEXT J

130 NEXT I

140 STOP

 

INPUT "Intr. nr. de linii:", M

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

DIM A(M, N)

FOR I = 1 TO M

        FOR J = 1 TO N

                INPUT A(I, J)

        NEXT

NEXT

CLS

FOR I = 1 TO M

        FOR J = 1 TO N

                LOCATE I * 2, J * 3

                PRINT A(I, J)

        NEXT

NEXT

END

 

Programul 2

10 INPUT "INTR. NR. DE LINII M="; M

20 INPUT "INTR. NR. DE COLOANE N="; N

30 DIM A(M, N)

40 FOR J = 1 TO N

50 FOR I = 1 TO M

60 INPUT A(I, J)

70 NEXT I

80 NEXT J

90 FOR I = 1 TO M

100 FOR J = 1 TO N

110 PRINT A(I, J),

120 NEXT J

130 PRINT : PRINT

140 NEXT I

150 STOP

 

INPUT "Intr. nr. de linii:", M

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

DIM A(M, N)

FOR J = 1 TO N

        FOR I = 1 TO M

                INPUT A(I, J)

NEXT I, J

FOR I = 1 TO M

        FOR J = 1 TO N

                PRINT A(I, J),

        NEXT

        PRINT : PRINT

NEXT

END

 

Programul 3

10 INPUT "INTR. NR. DE LINII M="; M

20 INPUT "INTR. NR. DE COLOANE N="; N

30 DIM A(M, N)

40 LET S = 0

50 FOR I = 1 TO M

60 FOR J = 1 TO N

70 INPUT A(I, J)

80 LET S = S + A(I, J)

90 NEXT J

100 NEXT I

110 PRINT "S="; S

120 STOP

 

INPUT "Intr. nr. de linii:", M

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

DIM A(M, N)

S = 0

FOR I = 1 TO M

        FOR J = 1 TO N

                INPUT A(I, J)

                S = S + A(I, J)

NEXT J, I

PRINT "S="; S

END

 

Programul 4

10 INPUT "INTR. NR. DE LINII M="; M

20 INPUT "INTR. NR. DE CLOLOANE N="; N

30 DIM A(M, N)

40 FOR I = 1 TO M

50 FOR J = 1 TO N

60 INPUT A(I, J)

70 NEXT J

80 NEXT I

90 LET MAX = A(1, 1)

100 FOR I = 1 TO M

110 FOR J = 1 TO N

120 IF MAX < A(I, J) THEN LET MAX = A(I, J)

130 PRINT A(I, J),

140 NEXT J

150 PRINT : PRINT

160 NEXT I

170 PRINT "MAX="; MAX

180 STOP

 

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

INPUT "Intr. nr. de coloane:", M

DIM A(M, N)

FOR I = 1 TO M

        FOR J = 1 TO N

                INPUT A(I, J)

NEXT J, I

MAX = A(1, 1)

FOR I = 1 TO M

        FOR J = 1 TO N

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

                PRINT A(I, J),

        NEXT

        PRINT : PRINT

NEXT

PRINT "Max="; MAX

END

 

Programul 5

10 INPUT "INTR. NR. DE LINII M="; M

20 INPUT "INTR. NR. DE COLOANE N="; N

30 DIM A(M, N): DIM B(M, N)

40 FOR I = 1 TO M

50 FOR J = 1 TO N

60 INPUT A(I, J)

70 LET B(I, J) = 2 * A(I, J)

80 NEXT J

90 NEXT I

100 FOR I = 1 TO M

110 FOR J = 1 TO N

120 PRINT B(I, J),

130 NEXT J

140 PRINT : PRINT

150 NEXT I

160 STOP

 

INPUT "Intr. nr. de linii:", M

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

DIM A(M, N), B(M, N)

FOR I = 1 TO M

        FOR J = 1 TO N

                INPUT A(I, J)

                B(I, J) = 2 * A(I, J)

NEXT J, I

FOR I = 1 TO M

        FOR J = 1 TO N

                PRINT B(I, J),

        NEXT

        PRINT : PRINT

NEXT

END

 

Programul 6

10 INPUT "INTR. NR. DE LINII SAU DE COLOANE M="; M

20 DIM A(M, M): LET P = 1

30 FOR I = 1 TO M

40 FOR J = 1 TO M

50 INPUT A(I, J)

60 IF I = J THEN LET P = P * A(I, J)

70 NEXT J

80 NEXT I

90 FOR I = 1 TO M

100 FOR J = 1 TO M

110 PRINT A(I, J),

120 NEXT J

130 PRINT : PRINT

140 NEXT I

150 PRINT : PRINT

170 PRINT "P="; P

180 STOP

 

INPUT "Intr. nr. de linii sau de coloane:", M

DIM A(M, M)

P = 1

FOR I = 1 TO M

        FOR J = 1 TO M

                INPUT A(I, J)

                IF I = J THEN P = P * A(I, J)

NEXT J, I

FOR I = 1 TO M

        FOR J = 1 TO M

                PRINT A(I, J),

        NEXT

        PRINT : PRINT

NEXT

PRINT : PRINT

PRINT "P="; P

END

 

Programul 7

10 INPUT "INTR. NR. DE LINII SAU DE COLOANE M="; M

20 DIM A(M, M): LET S = 0

30 FOR I = 1 TO M

40 FOR J = 1 TO M

50 INPUT A(I, J)

60 IF I < J THEN LET S = S + A(I, J)

70 NEXT J

80 NEXT I

90 FOR I = 1 TO M

100 FOR J = 1 TO M

110 PRINT A(I, J),

120 NEXT J

130 PRINT : PRINT

140 NEXT I

150 PRINT : PRINT

170 PRINT "S="; S

180 STOP

 

INPUT "Intr. nr. de linii sau de coloane:", M

DIM A(M, M)

S = 0

FOR I = 1 TO M

        FOR J = 1 TO M

                INPUT A(I, J)

                IF I < J THEN S = S + A(I, J)

NEXT J, I

FOR I = 1 TO M

        FOR J = 1 TO M

                PRINT A(I, J),

        NEXT

        PRINT : PRINT

NEXT

PRINT : PRINT

PRINT "S="; S

END

 

Programul 8

10 INPUT "INTR. NR. DE LINII SAU DE COLOANE M="; M

20 DIM A(M, M): LET S = 0: LET P = 1

30 FOR I = 1 TO M

40 FOR J = 1 TO M

50 INPUT A(I, J)

60 IF I < J THEN LET S = S + A(I, J): GOTO 80

70 IF I > J THEN P = P * A(I, J)

80 NEXT J

90 NEXT I

100 FOR I = 1 TO M

110 FOR J = 1 TO M

120 PRINT A(I, J),

130 NEXT J

140 PRINT : PRINT

150 NEXT I

160 PRINT : PRINT

170 PRINT "S="; S, "P="; P

180 STOP

 

INPUT "Intr. nr. de linii sau de coloane:", M

DIM A(M, M)

S = 0: P = 1

FOR I = 1 TO M

        FOR J = 1 TO M

                INPUT A(I, J)

                IF I < J THEN

                        S = S + A(I, J)

                ELSEIF I > J THEN

                        P = P * A(I, J)

                END IF

NEXT J, I

FOR I = 1 TO M

        FOR J = 1 TO M

                PRINT A(I, J),

        NEXT

        PRINT : PRINT

NEXT

PRINT : PRINT

PRINT "S="; S, "P="; P

END

 

 

Programul 9

10 INPUT "INTR. NR. DE LINII SAU DE COLOANE M="; M

20 DIM A(M, M)

30 FOR I = 1 TO M

40 FOR J = 1 TO M

50 INPUT A(I, J)

60 NEXT J

70 NEXT I

80 LET MAX = A(1, 2): LET MIN = A(2, 1)

90 FOR I = 1 TO M

100 FOR J = 1 TO M

110 IF I = J THEN GOTO 170

120 IF I > J THEN GOTO 150

130 IF MAX >= A(I, J) THEN GOTO 170

140 LET MAX = A(I, J): GOTO 170

150 IF MIN <= A(I, J) THEN GOTO 170

160 LET MIN = A(I, J)

170 PRINT A(I, J),

180 NEXT J

190 PRINT : PRINT

200 NEXT I

210 PRINT "MAX="; MAX, "MIN="; MIN

220 IF MIN = 0 THEN PRINT "DEOARECE MIN=0 CATUL NU SE POATE CALCULA.": STOP

230 LET C = MAX / MIN

240 PRINT "C="; C

250 STOP

 

INPUT "Intr. nr. de linii sau de coloane:", M

DIM A(M, M)

FOR I = 1 TO M

        FOR J = 1 TO M

                INPUT A(I, J)

NEXT J, I

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

FOR I = 1 TO M

        FOR J = 1 TO M

                IF I < J THEN

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

                ELSEIF I > J THEN

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

                END IF

                PRINT A(I, J),

        NEXT

        PRINT

NEXT

PRINT "MAX="; MAX, "MIN="; MIN

IF MIN = 0 THEN

        PRINT "Deoarece MIN=0 catul nu se poate calcula."

ELSE

        C = MAX / MIN

        PRINT "C="; C

END IF

END

 

Programul 10

10 INPUT "INTR. NR. DE LINII SAU DE COLOANE M="; M

20 DIM A(M, M)

30 FOR I = 1 TO M

40 FOR J = 1 TO M

50 INPUT A(I, J)

60 NEXT J

70 NEXT I

80 LET MAX = A(1, 1): LET MIN = A(1, 1)

90 FOR I = 1 TO M

100 IF MAX >= A(I, I) THEN GOTO 120

110 LET MAX = A(I, I)

120 IF MIN <= A(I, I) THEN GOTO 140

130 LET MIN = A(I, I)

140 NEXT

150 PRINT "MAX="; MAX, "MIN="; MIN

160 STOP

 

INPUT "Intr.nr. de linii sau de coloane:", M

DIM A(M, M)

FOR I = 1 TO M

        FOR J = 1 TO M

                INPUT A(I, J)

NEXT J, I

MAX = A(1, 1)

MIN = A(1, 1)

FOR I = 1 TO M

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

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

NEXT

PRINT "MAX="; MAX, "MIN="; MIN

END

 

Programul 11

10 INPUT "INTR. NR. DE LINII M="; M

20 INPUT "INTR. NR. DE COLOANE N="; N

30 DIM A(M, N)

40 FOR I = 1 TO M

50 FOR J = 1 TO N

60 INPUT A(I, J)

70 NEXT J

80 NEXT I

90 FOR I = 1 TO M

100 LET SW = 0

110 FOR J = 1 TO N - 1

120 IF A(I, J) <= A(I, J + 1) THEN GOTO 140

130 LET AUX = A(I, J): LET A(I, J) = A(I, J + 1): LET A(I, J + 1) = AUX: LET SW = 1

140 NEXT J

150 IF SW = 1 THEN GOTO 100

160 NEXT I

170 FOR I = 1 TO M

180 FOR J = 1 TO N

190 PRINT A(I, J),

200 NEXT

210 PRINT : PRINT

220 NEXT

230 STOP

 

INPUT "Intr. nr. de linii:", M

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

DIM A(M, N)

FOR I = 1 TO M

        FOR J = 1 TO N

                INPUT A(I, J)

NEXT J, I

FOR I = 1 TO M

        DO

                SW = 0

                FOR J = 1 TO N - 1

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

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

                                SW = 1

                        END IF

                NEXT

        LOOP UNTIL SW = 0

NEXT

FOR I = 1 TO M

        FOR J = 1 TO N

                PRINT A(I, J),

        NEXT

        PRINT : PRINT

NEXT

END

Programul 12

10 INPUT "INTR. NR. DE LINII M="; M

20 INPUT "INTR. NR. DE COLOANE N="; N

30 DIM A(M, N): DIM S(M): DIM P(N)

40 FOR I = 1 TO M

50 FOR J = 1 TO N

60 INPUT A(I, J)

70 NEXT J

80 NEXT I

90 PRINT "SIRUL SUMELOR PE LINII ESTE:"

100 FOR I = 1 TO M

110 FOR J = 1 TO N

120 LET S(I) = S(I) + A(I, J)

130 NEXT J

140 PRINT S(I)

150 NEXT I

160 PRINT "SIRUL PRODUSELOR PE COLOANE ESTE:"

170 FOR J = 1 TO N

180 LET P(J) = 1

190 FOR I = 1 TO M

200 LET P(J) = P(J) * A(I, J)

210 NEXT I

220 PRINT P(J)

230 NEXT J

240 STOP

 

INPUT "Intr. nr. de linii:", M

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

DIM A(M, N), S(M), P(N)

FOR I = 1 TO M

        FOR J = 1 TO N

                INPUT A(I, J)

NEXT J, I

PRINT "Sirul sumelor pe linii este:"

FOR I = 1 TO M

        FOR J = 1 TO N

                S(I) = S(I) + A(I, J)

        NEXT

        PRINT S(I);

NEXT

PRINT

PRINT "Sirul produselor pe coloane este"

FOR J = 1 TO N

        P(J) = 1

        FOR I = 1 TO M

                P(J) = P(J) * A(I, J)

        NEXT

        PRINT P(J);

NEXT

PRINT

END

 

Programul 13

10 INPUT "INTR. NR. DE LINII M="; M

20 INPUT "INTR. NR. DE COLOANE N="; N

30 DIM A(M, N): DIM B(M, N): DIM S(M, N)

40 PRINT "INTR. ELEM. PRIMEI MATRICI:"

50 FOR I = 1 TO M

60 FOR J = 1 TO N

70 INPUT A(I, J)

80 NEXT J

90 NEXT I

100 PRINT "INTR. ELEM. CELEI DE-A DOUA MATRICI:"

110 FOR I = 1 TO M

120 FOR J = 1 TO N

130 INPUT B(I, J): LET S(I, J) = A(I, J) + B(I, J)

140 NEXT J

150 NEXT I

160 FOR I = 1 TO M

170 FOR J = 1 TO N

180 PRINT S(I, J),

190 NEXT J

200 PRINT : PRINT

210 NEXT I

220 STOP

 

INPUT "Intr. nr. de linii:", M

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

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

PRINT "Intr. elem. primei matrici:"

FOR I = 1 TO M

        FOR J = 1 TO N

                INPUT A(I, J)

NEXT J, I

PRINT "Intr. elem. celei de-a doua matrici:"

FOR I = 1 TO M

        FOR J = 1 TO N

                INPUT B(I, J)

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

NEXT J, I

FOR I = 1 TO M

        FOR J = 1 TO N

                PRINT S(I, J),

        NEXT

        PRINT : PRINT

NEXT

END

 

Programul 14

10 INPUT "INTR. NR. DE LINII ALE PRIMEI MATRICI:"; M

20 INPUT "INTR. NR. DE COLOANE ALE PRIMEI MATRICI:"; N

30 PRINT "A DOUA MATRICE VA AVEA"; N; "LINII."

40 INPUT "INTR. NR. DE COLOANE ALE CELEI DE-A DOUA MATRICI:"; L

50 DIM A(M, N): DIM B(N, L): DIM C(M, L)

60 PRINT "INTRODUCETI PRIMA MATRICE:"

70 FOR I = 1 TO M

80 FOR K = 1 TO N

90 INPUT A(I, K)

100 NEXT K

110 NEXT I

120 PRINT "INTR. CEA DE-A DOUA MATRICE:"

130 FOR K = 1 TO N

140 FOR J = 1 TO L

150 INPUT B(K, J)

160 NEXT J

170 NEXT K

180 FOR I = 1 TO M

190 FOR J = 1 TO L

200 C(I, J) = 0

210 FOR K = 1 TO N

220 C(I, J) = C(I, J) + A(I, K) * B(K, J)

230 NEXT K

240 NEXT J

250 NEXT I

260 FOR I = 1 TO M

270 FOR K = 1 TO L

280 PRINT C(I, K),

290 NEXT

300 PRINT : PRINT

310 NEXT

320 STOP

 

INPUT "Intr. nr. de linii ale primei matrici:", M

INPUT "Intr. nr. de coloane ale primei matrici:", N

PRINT "A doua matrice va avea"; N; "linii."

INPUT "Intr. nr. de coloane ale celei de-a doua matrici:", L

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

PRINT "Introduceti prima matrice:"

FOR I = 1 TO M

        FOR K = 1 TO N

                INPUT A(I, K)

NEXT K, I

PRINT "Intr. cea de-a doua matrice:"

FOR K = 1 TO N

        FOR J = 1 TO L

                INPUT B(K, J)

NEXT J, K

FOR I = 1 TO M

        FOR J = 1 TO L

                C(I, J) = 0

                FOR K = 1 TO N

                        C(I, J) = C(I, J) + A(I, K) * B(K, J)

NEXT K, J, I

FOR I = 1 TO M

        FOR K = 1 TO L

                PRINT C(I, K),

        NEXT

        PRINT : PRINT

NEXT

END

 

Home | BAC/Teze | Biblioteca | Referate | Games | Horoscop | Muzica | Versuri | Limbi straine | DEX

Modele CV | Wallpaper | Download gratuit | JOB & CARIERA | Harti | Bancuri si perle | Jocuri Barbie

Iluzii optice | Romana | Geografie | Chimie | Biologie | Engleza | Psihologie | Economie | Istorie | Chat

 

Joburi Studenti JOB-Studenti.ro

Oportunitati si locuri de munca pentru studenti si tineri profesionisti - afla cele mai noi oferte de job!

Online StudentOnlineStudent.ro

Viata in campus: stiri, burse, cazari, cluburi, baluri ale bobocilor - afla totul despre viata in studentie!

Cariere si modele CVStudentCV.ro

Dezvoltare personala pentru tineri - investeste in tine si invata ponturi pentru succesul tau in cariera!

 
 > Contribuie la proiect - Trimite un articol scris de tine

Gazduit de eXtrem computers | Project Manager: Bogdan Gavrila (C)  

 

Toate Drepturile Rezervate - ScoalaOnline Romania