Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

I.Информ. Программирование языком VB(кр1)

.pdf
Скачиваний:
10
Добавлен:
07.02.2016
Размер:
409.81 Кб
Скачать

 

 

 

41

 

 

 

 

7

Text3

Name

txtA

 

 

Text

порожньо

 

 

MultiLine

True

 

 

ScrollBars

3

8

Text4

Name

txtRez

 

 

Text

порожньо

 

 

MultiLine

True

 

 

ScrollBars

3

9

Command1

Name

cmdRun

 

 

Caption

Пуск

2) Програмний код мовою Visual Basic.

Програмний код для кнопки cmdRun (подія Click):

Private Sub cmdRun_Click() Dim m As Integer

Dim n As Integer

Dim i As Integer

Dim j As Integer

Dim p As Single Dim a() As Single

txtA.Text=””

txtRez.Text=”” m=InputBox(“введи число m”)

txtM.Text=CInt(m) n=InputBox(“введи число n”)

txtN.Text=CInt(n) ReDim a(m,n) As Single For i = 1 To m

For j = 1 To n

a(i,j)=InputBox(“Введи елемент a ” & CStr(i) &CStr(j)) txtA.Text=txtA.Text & CStr(a(i,j)) & vbTab

Next j

txtA.Text=txtA.Text & vbCrlf Next i

For i = 1 To m

42

p=1

For j = 1 To n

If a(i,j)>0 Then p=p*a(i,j)

Next j

txtRez.Text=txtRez.Text & ”номер рядку =” & CStr(i) _ & “добуток p=” & CStr(p)

Next i

End Sub

ІV етап. Результати розрахунку.

43

5 ВАРІАНТИ КОНТРОЛЬНИХ ЗАВДАНЬ

5.1 Завдання 1

Варіант 1

1) x = 0.75 0.5 0.53 4,

y = 100

 

1

0.5 ln 9lg 2 tg

 

 

 

 

3

 

15x

2

21y

2

,

если

x > y

 

 

 

z =

15y2

+ 21x2

 

если

x y

 

,

 

 

 

 

 

 

 

 

2)У Х/2+1,

УХ/2-1,

Х2 2 1.

Варіант 2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1) x = 40.25 (2 2)4 / 3 tg4,

 

 

 

 

 

 

y = cos(2arctg 15 )

ln

 

2x 3y

 

,

 

если

 

x

 

 

 

< 5

 

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

z =

 

2xe2

+ 3y

 

,если

 

 

x

 

5

 

y

 

ln

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)У 1,

У Х .

Варіант 3

1) x = 86.91/ 4 + (20.3 )1/ 3 ,

 

y = 491lg 2 + 5lg 4

sin(5x + 3y ln 3),

если

 

 

x

 

>

 

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

z =

если

 

x

 

 

 

 

y

 

 

 

cos(5x + 3y ln 3),

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)У - Х,

Варіант 4

 

 

Х2 2 1.

 

 

 

 

1)

x =

8.15 3 14.3 ln 2

y = sin(arctg 12 )

 

,

 

24.38 8.7(e2

e2 )

 

 

 

2x 7 y ,

если

min(x, y) < 1

 

 

 

z =

2x + 7 y,

если

min(x, y) 1

 

 

 

 

 

 

 

44

2)Х2 2 1,

Варіант 5

 

 

 

 

 

 

Х2 2 4

.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1) x = 22.51/ 2

7.5(2.83 / 4 )2 cos1,

y = − lg(1.6e3 )

4x + 3y

,

если

 

x

 

>

 

 

y

 

+ 1/ 2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

+ y

2

 

z = x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x y

 

,

 

 

если

 

 

 

x

 

 

y

 

+ 1/ 2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)Х2+(У-1)2 1,

Варіант 6

 

 

 

Х2

У.

 

cos 5

 

sin1

 

 

1) x =

+

,

y = 2(arctg 135 + ln 3)

4

11

3

+

7

 

 

3x2

+ 4y2 ,

если

x 2 y

z =

3x2

4y 2 ,

если

x > 2 y

 

 

 

 

Х 1,

 

2)

 

 

 

 

 

 

У 1 .

 

Варіант 7

 

 

 

 

 

 

 

 

 

 

12.483

5.76 sin 4

 

 

3

 

3 3

 

1

1) x =

 

 

,

y = lg

 

3

 

 

(1.842)4 3

673.8 cos8

 

4

 

 

 

 

 

 

 

 

x 2y

2 , если

xy < 0

 

2x

2

+ 5y

z =

 

 

 

 

xy,

если

xy 0

 

2)У Х,

У- Х, Х2 2 1.

 

 

 

 

 

 

 

 

 

 

 

 

 

45

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Варіант 8

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 2.2

 

1)

x = 0.0271/ 3

 

 

 

ln 3,

y = 3sin1+ cos1

 

 

 

 

 

 

 

 

 

 

 

 

 

6

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tg(x 2y),

 

если

 

 

x + y

 

> 2

 

 

 

 

 

 

 

 

z =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x 2y

 

,

 

 

 

если

 

 

 

x + y

 

2

 

 

 

ln

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)

 

 

 

 

 

 

 

(Х-1) 2 2 1,

 

 

 

 

 

 

 

 

 

 

 

Варіант 9

 

 

 

 

 

 

 

 

 

 

У Х.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1)

x =

25 + 7 136 ,

 

 

 

y = arctg(cos 53 + cos 56 ) ln 5

 

 

 

 

0.00034

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

+ e

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e

 

 

 

 

 

 

,

если

 

 

 

2

 

 

x

 

 

 

< y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

+ 2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

z =

3

x

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

+ y,

 

 

 

 

 

 

если

 

 

 

2

 

x

 

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)У Х,

У- Х, Х2 2 2.5.

Варіант 10

1)

x =

 

2.5913

0.0836 ,

 

 

 

1.147(e2

+ e2 )

 

 

3x 5y

,

если

 

 

 

 

 

 

 

 

 

 

2

+ y

2

 

z =

x

 

 

 

 

 

 

3x + 5y

 

 

 

 

 

,

если

 

 

 

 

2

y

2

 

 

x

 

 

 

 

2)

 

 

 

 

 

 

 

(Х+1 ) 2

 

 

 

 

 

 

 

 

У

Варіант 11

y= 3 lg 0.8 tg4 x < 1 + y

x 1+ y

2 2,

Х2.

1) x = 5 7.0023 0.1 1+ 0.1(e2 + e2 ), y = ln 3(cos 35 + cos 65 )

46

 

 

2

 

+ 7 y

2

),

если

x

2

+ y

2

> 0.1

arctg(5x

 

z =

5x

 

+ 7 y 2 ,

если

x2

+ y2

0.1

arctg

2

 

 

 

 

 

 

 

 

 

 

 

 

 

2)У Х2,

У 1/(1+ Х2).

Варіант 12

 

 

 

 

 

 

 

y = (1+ 5 lg 20)3 / 0.2

1)

x = 10 10 + 10 10 tg1,

 

 

 

z = sin(3x + e y ),

если

 

 

x + y < 5

 

sin(3x + y),

если

 

 

x + y 5

2)

 

 

 

У Х,

 

 

 

 

 

 

 

 

 

У - Х,

 

 

 

 

Варіант 13

 

 

 

У 2.

 

 

 

 

 

 

 

 

 

 

 

 

 

y = sin(0.5arctg(43 )ln 5)

1)

x = 3

4.2

0.1 + 3(e2 + e2 ),

 

 

3x 5y ,

если

 

 

x < 2y

 

z =

3x + 5y ,

если

 

 

 

x 2y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)

 

Х2 +(У-1)2 1.5,

 

 

 

Х+У 2.

Варіант 14

 

 

 

 

 

 

 

y = sin(1+ 3 lg3)4

1)

x = 4 0.01862

tg2,

 

 

 

 

0.1 10

 

 

 

 

 

 

 

 

 

x + y ,

если

x2

+ y 2

> 10

 

z =

 

 

 

 

 

 

 

 

 

 

 

 

 

если

x

 

+ y

 

10

 

x + y,

2

2

 

 

 

 

 

 

 

 

 

 

2)

 

 

 

У Х2/3 ,

 

 

 

 

 

 

 

 

(Х-1) 2

2

1.2.

47

Варіант 15

 

 

 

 

 

y = (ln 3)sin[12 arctg(

 

 

 

)]

1) x = 3.78(e4 e3 ) ,

2

 

2

 

3

 

3

 

4 + 5

3

 

 

 

 

 

 

 

 

 

 

 

x 2y

 

, если

 

x 2y

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

+ 2y

2

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

z =

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

,

 

если

 

x 2y

 

 

> 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

2)У3 Х2/2 ,

У 2 - Х2 .

Варіант 16

 

 

 

 

 

 

 

 

1) x =

 

(ln 5)

5 3 5 lg5

 

= e

2 ctg(12 cos

74 )

1

0.1845(sin1+

,

y

 

2cos1)

 

 

 

 

z =

 

xy ,

если

xy < −0.1

 

 

 

 

x + y ,

если

xy ≥ −0.1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)

 

 

У ln(Х),

 

 

 

 

 

 

 

 

Х e ,

 

 

 

 

 

 

 

 

У - 1.

 

 

 

 

Варіант 17

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x =

12.4e + 0.6e1 3

0.058

 

 

 

 

 

 

y = tg(5arctg

3

1

 

1)

 

 

 

 

 

 

,

 

 

 

)

 

 

 

 

 

 

3

4

 

 

 

0.389(ln 3 + sin1)

 

 

 

 

 

 

3x + y

если

 

 

 

 

 

<

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

,

 

 

x

y

 

 

 

 

 

 

 

2

+ y

2

 

 

 

 

 

 

z = x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

xy,

 

 

 

если

 

 

x

 

 

 

 

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)

 

У 1/Х2,

2Х+3У 6.

 

 

 

 

 

48

Варіант 18

1)

x =

1.5922

 

 

 

 

 

 

 

 

 

4

0.0896

cos 3, y = e2 sin(3arctg 3)

3

0.382

 

sin 3 +

0.5382

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

+ 5

 

y

 

),

если

 

x

2

+ y

2

> 1

 

 

 

 

 

 

 

 

 

ln(

 

 

 

 

 

 

 

 

z =

 

 

 

y

 

,

 

 

 

 

 

 

 

если

 

x2

+ y2

1

 

 

x

 

 

 

 

 

 

 

2)

 

 

 

 

 

 

 

 

 

 

 

 

 

Х2

У ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Х 0 ,

 

 

 

 

 

 

 

Варіант 19

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

У 1.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1)

x =

 

79.8ln 3

 

 

156.3 ln 5,

 

 

y = tg4 cos(3sin 3)

 

 

 

xe

2

 

ye

2

,

если

x y

 

 

 

z =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x y,

 

 

 

 

если

x > y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

У ≤ √

 

2

 

 

2)

 

 

 

 

 

 

- 1+Х

1+Х

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 Х

1 .

 

 

 

 

Варіант 20

1

 

0.207

 

35

 

y = (lg 2)e4arctg (3+ 2 2 )

1) x =

 

 

sin 4

 

cos 4,

 

 

3

 

 

 

49

 

 

 

3 xy ,

если

x y

 

z =

 

 

 

 

 

 

 

 

 

если

x > y

 

x + y,

 

2)-1+ У2 Х ≤ √1+ У2 ,

-1 У 1.

Варіант 21

1) x = 0.1711.16\lg 5+ 2.56 lg 7 ,

y = tg6 earctg 3

49

ln(

 

x

 

+

 

y

 

),

если

 

 

 

 

 

x y + 1

 

 

 

 

 

 

 

 

z =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x y

 

),

если

 

 

 

 

 

x > y + 1

 

 

ln(

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

У х,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

У 1 ,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Варіант 22

 

 

 

 

 

 

 

 

 

 

 

 

Х 1 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

ln 2 + sin(arctg

 

)

1) x = 2.560.76 sin 2 (3e)1 sin 2.3, y =

1

 

7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3

 

 

 

x y

 

 

, если

 

 

x

 

+

 

y

 

> 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

+

4y

2

 

 

z = 3x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x2

 

y 2 ,

 

 

если

 

x

 

+

 

 

 

y

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)Х2 +(У-1)2 1 ,

У 1/(1+ Х2) .

Варіант 23

 

 

 

 

 

 

 

 

 

 

 

 

1) x = lg3.3 2(6

0.6 )3.3 e2 , y = (tg4)cos(arctg

4

)

5

 

 

2xe

3

3ye

2

,

если

xy > 5

 

 

 

 

z =

 

 

 

 

 

 

 

 

 

 

 

 

 

2x + 3y ,

 

 

если

xy 5

 

 

 

 

2)

 

 

 

 

 

 

 

 

У 2х,

 

 

 

 

 

 

 

 

 

 

 

 

У 2+Х/3 ,

Варіант 24

 

 

 

 

 

 

 

 

Х 0.

 

 

 

 

 

 

 

 

 

 

 

 

y = (tg4) 990.5lg 4

1) x = 0.460.46 sin 3 0.350.35 cos3,

 

xe + ye

1

,

если

 

x < 10y

 

 

 

z =

 

 

 

 

 

 

 

 

 

 

 

 

 

x + y ,

 

 

 

если

 

x 10y

 

 

 

 

 

50

2)У Х2/2 ,

У 1- Х2 .

Варіант 25

 

 

 

 

 

 

 

 

 

 

y = arctg((sin1)ln 3)

1) x = (0.273ln 3)1.57 ln 2 ,

 

 

7x 5y

 

,

если

x >

 

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2x

2

+

3y

2

z =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x y

 

,

 

 

 

если

x

 

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2)Х2+(У-2)2 1 ,

Х2+(У-1)2 1 .

Варіант 26

3 123.4

2 ln 2

y = arctg[14 (arctg2 + arctg3)]

1) x =

 

,

1.124 5

0.024 cos1

 

 

x+ y

 

,

если

y > −2x

 

 

e

 

 

 

z =

 

если

y ≤ −2x

xy,

 

2)У 2/(1+ Х2) ,

У1.

Варіант 27

1) x = 3

0.8cos 7 + 4 2.3 sin 7,

y = cos

1

(arctg3 arctg2)

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

ln 3 ln(

 

 

 

 

 

 

 

),

 

 

 

 

x

 

+

 

y

 

если

max(x, y) > 10

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

z =

x+ y

 

 

 

 

 

 

 

 

 

 

max(x, y) 10

 

,

 

 

 

 

 

 

 

 

если

e

 

 

 

 

 

 

 

 

 

2)У ≤ 1- Х/2,

 

Х2 2 ≤ 3.

Варіант 28

1)

x = 810.25 cos 5 20.36 sin 5, y = sin((3tg4)arctg

3

)

2

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]