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 1

Programul 1

Varianta 1

10 PRINT "A="; 192 + 23 * 45

20 STOP

 

PRINT "A="; 192 + 23 * 45

END

 

Varianta 2

10 LET A = 192 + 23 * 45

20 PRINT "A="; A

30 STOP

 

A = 192 + 23 * 45

PRINT "A="; A

END

 

Programul 2

10 LET B = (190 + 13) * 29

20 LET C = 13 + 42 / 19

30 LET D = (19 + 75) / 34

40 PRINT "B="; B, "C="; C, "D="; D

50 STOP

 

B = (190 + 13) * 29

C = 13 + 42 / 19

D = (19 + 75) / 34

PRINT "B="; B, "C="; C, "D="; D

END

 

Programul 3

10 LET E = 19 + 23 ^ 4

20 LET F = (102 + 3) ^ 5

30 LET G = 19 + 21 / (4 + 3 ^ 5)

40 PRINT "E="; E, "F="; F, "G="; G

50 STOP

 

E = 19 + 23 ^ 4

F = (102 + 3) ^ 5

G = 19 + 21 / (4 + 3 ^ 5)

PRINT "E="; E, "F="; F, "G="; G

END

 

Programul 4

10 LET H = (5 ^ 3 - 9) / (4 ^ 2 + 3 ^ 5) ^ 2 + 1 / (2 / (19 + 7 ^ 5))

20 PRINT "H="; H

30 STOP

 

H = (5 ^ 3 - 9) / (4 ^ 2 + 3 ^ 5) ^ 2 + 1 / (2 / (19 + 7 ^ 5))

PRINT "H="; H

END

 

Programul 5

10 LET G = (1 / 19 ^ 2 - 3 / (13 ^ 3 - 19)) / (6 - 1 / ((3 + 23 ^ 3) / 21 ^ 3))

20 LET I = 3 / ((15 ^ 3 - 239) * (3 + 19 ^ 4)) / (-29)

30 PRINT "G="; G

40 PRINT "I="; I

50 STOP

 

G = (1 / 19 ^ 2 - 3 / (13 ^ 3 - 19)) / (6 - 1 / ((3 + 23 ^ 3) / 21 ^ 3))

I = 3 / ((15 ^ 3 - 239) * (3 + 19 ^ 4)) / (-29)

PRINT "G="; G

PRINT "I="; I

END

 

Programul 6

10 LET J = 31 + 2 * (19 ^ 2 + 17 ^ 3 * (-5 - 191 * (139 ^ 2 - 459)))

20 PRINT "J="; J

30 STOP

 

J = 31 + 2 * (19 ^ 2 + 17 ^ 3 * (-5 - 191 * (139 ^ 2 - 459)))

PRINT "J="; J

END

 

Programul 7

10 LET K = (4 / 5 + SQR(3 / 2 * (9 - 1 / 5))) / (3 / 8)

20 PRINT "K="; K

30 STOP

 

K = (4 / 5 + SQR(3 / 2 * (9 - 1 / 5))) / (3 / 8)

PRINT "K="; K

END

 

Programul 8

10 LET L = (4 / 5 + 3 / 2 * (19 / 23 - 137 / 45)) / (105 / 79 * (41 / 39 + 1 / 9 * (2 ^ 5 - (13 / 4 - 183 / 71) ^ 4)))

20 PRINT "L="; L

30 STOP

 

L = (4 / 5 + 3 / 2 * (19 / 23 - 137 / 45)) / (105 / 79 * (41 / 39 + 1 / 9 * (2 ^ 5 - (13 / 4 - 183 / 71) ^ 4)))

PRINT "L="; L

END

 

Programul 9

10 LET M = (19 + 14 / (13 - 31 / 79)) / (205 - 191 / (211 - 13 / 795))

20 PRINT "M="; M

30 STOP

 

M = (19 + 14 / (13 - 31 / 79)) / (205 - 191 / (211 - 13 / 795))

PRINT "M="; M

END

 

Programul 10

Varianta 1

10 INPUT X, Y, Z

20 PRINT "A="; X + Y

30 PRINT "B="; X - Y * Z

40 PRINT "C="; (X + Y) ^ 2 + Z ^ 5

50 STOP

 

INPUT X, Y, Z

PRINT "A="; X + Y

PRINT "B="; X - Y * Z

PRINT "C="; (X + Y) ^ 2 + Z ^ 5

END

 

Varianta 2

10 PRINT "INTRODUCETI DATELE:"

20 INPUT "X="; X

30 INPUT "Y="; Y

40 INPUT "Z="; Z

50 LET A = X + Y: LET B = X - Y * Z: LET C = (X + Y) ^ 2 + Z ^ 5

60 PRINT "A="; A, "B="; B, "C="; C

70 STOP

 

PRINT "Introduceti datele:"

INPUT "X=", X

INPUT "Y=", Y

INPUT "Z=", Z

A = X + Y: B = X - Y * Z: C = (X + Y) ^ 2 + Z ^ 5

PRINT "A="; A, "B="; B, "C="; C

END

 

Programul 11

10 INPUT "A="; A

20 INPUT "B="; B

30 LET D = (A ^ 2 - B / (13 + 29 ^ 3)) * 10 / (7 ^ 8 + 3 ^ 5)

40 PRINT "D="; D

50 STOP

 

INPUT "A=", A

INPUT "B=", B

D = (A ^ 2 - B / (13 + 29 ^ 3)) * 10 / (7 ^ 8 + 3 ^ 5)

PRINT "D="; D

END

 

Programul 12

10 INPUT "A="; A

20 INPUT "B="; B

30 INPUT "C="; C

40 LET E = (A ^ 2 + B * C) / (3 + 75 ^ 2) * (18 ^ 2 - 4900) / (73 * 192 - 31 / 121) + 31 / 5 * (17 + A + B) / (5 + 132 ^ 2)

50 PRINT "E="; E

60 STOP

 

INPUT "A=", A

INPUT "B=", B

INPUT "C=", C

E = (A ^ 2 + B * C) / (3 + 75 ^ 2) * (18 ^ 2 - 4900) / (73 * 192 - 31 / 121) + 31 / 5 * (17 + A + B) / (5 + 132 ^ 2)

PRINT "E="; E

END

 

Programul 13

10 INPUT "A="; A

20 INPUT "B="; B

30 PRINT "A="; A, "B="; B

40 LET Z = A: LET A = B: LET B = Z

50 PRINT "NOILE VALORI ALE VARIABILELOR A SI B SUNT:"

60 PRINT "A="; A, "B="; B

70 STOP

 

INPUT "A=", A

INPUT "B=", B

PRINT "A="; A, "B="; B

Z = A: A = B: B = Z

PRINT "Noile valori ale variabilelor A si B sunt:"

PRINT "A="; A, "B="; B

END

 

Varianta 2 pentru QBASIC

INPUT "A=", A

INPUT "B=", B

PRINT "A="; A, "B="; B

SWAP A, B

PRINT "Noile valori ale variabilelor A si B sunt:"

PRINT "A="; A, "B="; B

END

 

Varianta 3 pentru QBASIC

'Aceasta varianta functioneaza numai pentru numere intregi

INPUT "A=",A%

INPUT "B=",B%

PRINT "A=";A%,"B=";B%

A% = A% XOR B%: B% = A% XOR B%: A% = A% XOR B%

PRINT "A=";A%,"B=";B%

 

Programul 14

Varianta 1

10 PRINT "INTRODUCETI LUNGIMILE LATURILOR TRIUNGHIULUI:"

20 INPUT "A="; A

30 INPUT "B="; B

40 INPUT "C="; C

50 LET P = (A + B + C) / 2

60 LET S = SQR(P * (P - A) * (P - B) * (P - C))

70 PRINT "S="; S

80 STOP

 

PRINT "Introduceti lungimile laturilor triunghiului:"

INPUT "A=", A

INPUT "B=", B

INPUT "C=", C

P = (A + B + C) / 2

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

PRINT "S="; S

END

 

Varianta 2

10 PRINT "INTRODUCETI LUNGIMEA INALTIMII SI A LATURII PE CARE CADE:"

20 INPUT "H="; H

30 INPUT "L="; L

40 LET S = L * H / 2

50 PRINT "S="; S

60 STOP

 

PRINT "Introduceti lungimea inaltimii si a laturii pe care cade:"

INPUT "H=", H

INPUT "L=", L

S = L * H / 2

PRINT "S="; S

END

 

Programul 15

10 INPUT "BAZA MARE:"; B1

20 INPUT "BAZA MICA:"; B2

30 INPUT "INALTIMEA:"; H

40 LET S = (B1 + B2) * H / 2

50 PRINT "S="; S

60 STOP

 

INPUT "Baza mare:", B1

INPUT "Baza mica:", B2

INPUT "Inaltimea:", H

S = (B1 + B2) * H / 2

PRINT "S="; S

END

 

Programul 16

10 INPUT "NUMARUL LATURILOR:"; N

20 INPUT "LUNGIMEA UNEI LATURI:"; L

30 LET A = L / (2 * TAN(PI / N))

40 LET S = N * L * A / 2

50 PRINT "S="; S

60 STOP

 

CONST PI = 3.1415

INPUT "Numarul laturilor:", N

INPUT "Lungimea unei laturi:", L

A = L / (2 * TAN(PI / N))

S = N * L * A / 2

PRINT "S="; S

END

 

Programul 17

10 PRINT "INTRODUCETI LUNGIMILE CELOR DOUA LATURI:"

20 INPUT "A="; A

30 INPUT "B="; B

40 INPUT "INTRODUCETI MASURA UNGHIULUI (IN GRADE):"; C

50 LET D = C * PI / 180

60 LET S = A * B * SIN(D) / 2

70 PRINT "S="; S

80 STOP

 

CONST PI = 3.1415

PRINT "Introduceti lungimile celor doua laturi:"

INPUT "A=", A

INPUT "B=", B

INPUT "Introduceti masura unghiului (in grade):", C

D = C * PI / 180

S = A * B * SIN(D) / 2

PRINT "S="; S

END

 

Programul 18

10 INPUT "LUNGIMEA LATURII:"; L

20 PRINT "AL="; 4 * L ^ 2

30 PRINT "AT="; 6 * L ^ 2

40 PRINT "V="; L ^ 3

50 STOP

 

INPUT "Lungimea laturii:", L

PRINT "AL="; 4 * L ^ 2

PRINT "AT="; 6 * L ^ 2

PRINT "V="; L ^ 3

END

 

Programul 19

10 INPUT "INTR. NR. DE LATURI ALE POLIGONULUI DE BAZA N="; N

20 INPUT "INTR. LUNGIMEA LATURII BAZEI L="; L

30 INPUT "INTR. LUNGIMEA INALTIMII H="; H

40 LET A1 = L / (2 * TAN(PI / N))

50 LET A2 = SQR(A1 ^ 2 + H ^ 2)

60 LET S1 = N * L * A1 / 2

70 LET AL = N * L * A2 / 2

80 LET AT = A1 + AL

90 LET V = A1 * H / 3

100 PRINT "ARIA LATERALA ESTE AL="; AL

110 PRINT "ARIA TOTALA ESTE AT="; AT

120 PRINT "VOLUMUL ESTE V="; V

130 STOP

 

CONST PI = 3.1415

INPUT "Intr. nr. de laturi ale poligonului de baza N=", N

INPUT "Intr. lungimea laturii bazei L=", L

INPUT "Intr. lungimea inaltimii H=", H

A1 = L / (2 * TAN(PI / N))

A2 = SQR(A1 ^ 2 + H ^ 2)

S1 = N * L * A1 / 2

AL = N * L * A2 / 2

AT = A1 + AL

V = A1 * H / 3

PRINT "Aria laterala este:"; AL

PRINT "Aria totala este:"; AT

PRINT "Volumul este V:"; V

END

 

Programul 20

10 INPUT "NR. DE LATURI ALE POLIGONULUI DE BAZA:"; N

20 INPUT "LUNGIMEA MUCHIEI BAZEI:"; L

30 INPUT "LUNGIMEA INALTIMII:"; H

40 LET A = L / (2 * TAN(PI / N))

50 LET AL = N * L * H: LET S = N * L * A / 2

60 LET AT = AL + 2 * S: LET V = S * H

70 PRINT "AL="; AL, "AT="; AT, "V="; V

80 STOP

 

CONST PI = 3.1415

INPUT "Nr. de laturi ale poligonului de baza:", N

INPUT "Lungimea muchiei bazei:", L

INPUT "Lungimea inaltimii:", H

A = L / (2 * TAN(PI / N))

AL = N * L * H: S = N * L * A / 2

AT = AL + 2 * S: V = S * H

PRINT "AL="; AL, "AT="; AT, "V="; V

END

 

Programul 21

10 INPUT "INTR. NR. DE LATURI ALE POLIGONULUI DE BAZA:"; N

20 INPUT "LUNGIMEA LATURII BAZEI MARI:"; L1

30 INPUT "LUNGIMEA LATURII BAZEI MICI:"; L2

40 INPUT "LUNGIMEA INALTIMII:"; H

50 LET A1 = L1 / (2 * TAN(PI / N))

60 LET A2 = L2 / (2 * TAN(PI / N))

70 LET R1 = A1 / COS(PI / N): LET R2 = A2 / COS(PI / N)

80 LET S1 = N * L1 * A1 / 2: LET S2 = N * 2 * A2 / 2

90 LET A3 = SQR(H ^ 2 + (A1 - A2) ^ 2)

100 LET AL = N * (L1 + L2) * A3 / 2

110 LET AT = AL + S1 + S2

120 LET V = H * (S1 + S2 + SQR(S1 * S2)) / 3

130 PRINT "ARIA BAZEI MARI ESTE:"; S1

140 PRINT "ARIA BAZEI MICI ESTE:"; S2

150 PRINT "RAZA CERCULUI CIRC. BAZEI MARI ESTE:"; R1

160 PRINT "RAZA CERCULUI CIRC. BAZEI MICI ESTE:"; R2

170 PRINT "AL="; AL, "AT="; AT, "V="; V

180 STOP

 

CONST PI = 3.1415

INPUT "Intr. nr. de laturi ale poligonului de baza:", N

INPUT "Lungimea laturii bazei mari:", L1

INPUT "Lungimea laturii bazei mici:", L2

INPUT "Lungimea inaltimii:", H

A1 = L1 / (2 * TAN(PI / N))

A2 = L2 / (2 * TAN(PI / N))

R1 = A1 / COS(PI / N): R2 = A2 / COS(PI / N)

S1 = N * L1 * A1 / 2: S2 = N * 2 * A2 / 2

A3 = SQR(H ^ 2 + (A1 - A2) ^ 2)

AL = N * (L1 + L2) * A3 / 2

AT = AL + S1 + S2

V = H * (S1 + S2 + SQR(S1 * S2)) / 3

PRINT "Aria bazei mari este:"; S1

PRINT "Aria bazei mici este:"; S2

PRINT "Raza cercului circ. bazei mari este:"; R1

PRINT "Raza cercului circ. bazei mici este:"; R2

PRINT "AL="; AL, "AT="; AT, "V="; V

END

 

Programul 22

10 INPUT "LUNGIMEA INALTIMII:"; H

20 INPUT "RAZA:"; R

30 LET AL = 2 * PI * R * H: LET AT = 2 * PI * R * (H + R): LET V = PI * R ^ 2 * H

40 PRINT "AL="; AL, "AT="; AT, "V="; V

50 STOP

 

CONST PI = 3.1415

INPUT "Lungimea inaltimii:", H

INPUT "Raza:", R

AL = 2 * PI * R * H: AT = 2 * PI * R * (H + R): V = PI * R ^ 2 * H

PRINT "AL="; AL, "AT="; AT, "V="; V

END

 

Programul 23

10 INPUT "LUNGIMEA INALTIMII:"; H

20 INPUT "RAZA:"; R

30 LET G = SQR(H ^ 2 + R ^ 2)

40 LET AL = PI * R * G: LET AT = PI * R * (G + R): LET V = PI * R ^ 2 * H / 3

50 PRINT "AL="; AL, "AT="; AT, "V="; V

60 STOP

 

CONST PI = 3.1415

INPUT "Lungimea inaltimii:", H

INPUT "Raza:", R

G = SQR(H ^ 2 + R ^ 2)

AL = PI * R * G: AT = PI * R * (G + R): V = PI * R ^ 2 * H / 3

PRINT "AL="; AL, "AT="; AT, "V="; V

END

 

Programul 24

10 INPUT "RAZA MARE:"; R1

20 INPUT "RAZA MICA:"; R2

30 INPUT "LUNGIMEA INALTIMII:"; H

40 LET G = SQR(H ^ 2 + (R1 - R2) ^ 2)

50 LET AL = PI * (R1 + R2) * G

60 LET AT = AL + PI * R1 ^ 2 + PI * R2 ^ 2

70 LET V = PI * H * (R1 ^ 2 + R2 ^ 2 + R1 * R2) / 3

80 PRINT "AL="; AL, "AT="; AT

90 PRINT "V="; V

100 STOP

 

CONST PI = 3.1415

INPUT "Raza mare:", R1

INPUT "Raza mica:", R2

INPUT "Lungimea inaltimii:", H

G = SQR(H ^ 2 + (R1 - R2) ^ 2)

AL = PI * (R1 + R2) * G

AT = AL + PI * R1 ^ 2 + PI * R2 ^ 2

V = PI * H * (R1 ^ 2 + R2 ^ 2 + R1 * R2) / 3

PRINT "AL="; AL, "AT="; AT

PRINT "V="; V

END

 

Programul 25

10 INPUT "RAZA:"; R

20 LET A = 4 * PI * R ^ 2

30 LET V = 4 * PI * R ^ 3 / 3

40 PRINT "A="; A, "V="; V

50 STOP

 

CONST PI = 3.1415

INPUT "Raza:", R

A = 4 * PI * R ^ 2

V = 4 * PI * R ^ 3 / 3

PRINT "A="; A, "V="; V

END

 

Programul 26

10 INPUT "INTRODUCETI PRIMA VARIABILA:"; A$

20 INPUT "INTRODUCETI A DOUA VARIABILA:"; B$

30 PRINT A$

40 PRINT B$

50 PRINT A$ + B$

60 STOP

 

INPUT "Introduceti prima variabila:", A$

INPUT "Introduceti a doua variabila:", B$

PRINT A$

PRINT B$

PRINT A$ + B$

END

 

Programul 27

10 INPUT "INTRODUCETI VARIABILA:"; A$

20 PRINT "LUNGIMEA VARIABILEI ESTE:"; LEN(A$)

30 STOP

 

INPUT "Introduceti variabila:", A$

PRINT "Lungimea variabilei este:"; LEN(A$)

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