2
1
1
.
Sub Zadanie_1()
Const N=6
Dim A(N,N) as Integer, I as Integer, J as Integer
Dim Min as Integer, Imin as Integer, Jmin as Integer
Randomize
For I=1 To N
For J=1 To N
A(I,J) = Int(Rnd*10 5)
Cells(I,J) = A(I,J)
Next J,I
Min = 32000
For I=1 To N
For J=1 To N
If (A(I,J)<=Min) And (A(I,J) Mod 2<>0) And (I>J) Then
Min = A(I,J)
Imin = I 蠠
Jmin = J
End If
Next J,I
Cells(N+2,1) = Min =
Cells(N+2,2) = Min
Cells(N+3,1) = IMin =
Cells(N+3,2) = IMin
Cells(N+4,1) = JMin =
Cells(N+4,2) = JMin
End Sub
2
.
Sub Zadanie_1a()
Const N=6, M=5
Dim A(N,M) as Integer, I as Integer, J as Integer
Dim K as Integer
For I=1 To N
For J=1 To M
A(I,J) = Int(Rnd*10 5)
Cells(I,J) = A(I,J)
Next J,I
For J=1 To M
K = 0
For I=1 To N
If A(I,J) = 0 Then K = K+1
Next I
Cells(N+2,J) = K = & K J
Next J
End Sub
2
B(8,9) :
4 5 5 5 5 5 5 5 1
4 0 5 5 5 5 5 2 2
4 0 0 5 5 5 3 3 3
4 0 0 0 5 4 4 4 4
4 0 0 0 5 5 5 5 5
4 0 0 6 6 6 6 6 6
4 0 7 7 7 7 7 7 7
4 8 8 8 8 8 8 8 8
Sub Zadanie_2()
Const N = 8, M = 9
Dim B(8,9) as Integer, I as Integer, J as Integer
WorkSheets(2).Select
For I=1 To N
For J=1 To M
If I+J>M+1 Then B(I,J) = I
If (I<J) And (I+J < M+1) Then B(I,J) = 5 5
|
|
|
If J = 1 Then B(I,J) = 4 4
Cells(I,J) = B(I,J)
Next J,I
End Sub
3
3 5 h=0,3 .
Function f(x as Single) as Single -
f = (Sin(x+2))^2/(x-6)
End Function
Sub Zadanie_3()
Dim x as Single, Y as Single
WorkSheets(3).Select 3-
Cells(1,1) = X
Cells(1,2) = Y
I = 2 2
For x = -3 To 5 Step 0.3
Y = f(x)
Cells(I,1) = x x
Cells(I,2) = Y Y
I = I + 1 -
Next x
End Su
1
|
| 0 | , 6, |
| 1 | |
| 2 | ( ) |
| 3 | ( ) |
| 4 | , 5 |
| 5 | , 7 |
| 6 | ( ) |
| 7 | , (0;5) |
| 8 | ( ) , 3 |
| 9 | , 3 |
|
| 0 | |
| 1 | |
| 2 | |
| 3 | |
| 4 | |
| 5 | |
| 6 | |
| 7 | |
| 8 | |
| 9 |
2
:
[] ( )
| [7 x 7] (01, 21, 41, , 81) | [7 x 7] (02, 22, 42, , 82) |
| 
|
| [7 x 8] (03, 23, 43, , 83) | D [8 x 8] (04, 24, 44, , 84) |
| 
|
| E [5x9] (05, 25, 45, , 85) | F [5x5] (06, 26, 46, , 86) |
| 
|
| G [5x5] (07, 27, 47, , 87) | H [5x9] (08, 28, 48, , 88) |
| 
|
| I [8x8] (09, 29, 49, , 89) | J [8x8] (10, 30, 50, , 90) |
| 
|
| K [5x5] (11, 31, 51, , 91) | L [5x9] (12, 32, 52, , 92) |
| 
|
| M [5x5] (13, 33, 53, , 93) | N [5x9] (14, 34, 54, , 94) |
| 
|
| O [8x8] (15, 35, 55, , 95) | P [8x8] (16, 36, 56, , 96) |
| 
|
| R [8x8] (17, 37, 57, , 97) | S [8x8] (18, 38, 58, , 98) |
| 
|
| T [8x8] (19, 39, 59, , 99) | U [8x8] (20, 40, 60, , 100) |
| 
|
|
|
|
3
y=F(x), X X X X h, - F(x).
|
| N | Y=F(x) |
| 0 | 
|
| 1 | 2x +20,5x |
| 2 | cos(4,9 x)1,5 |
| 3 | sin3 (2,5 + x) |
| 4 | cos (4 / x)2 |
| 5 | 12 / sin (1,6 +x) |
| 6 | 0,7 ln(5x2) |
| 7 | (4,6 3x)3 |
| 8 | 0,1 lg (2x +12) |
| 9 | 
|
| N | h | ||
| 0 | -5 | 5 | 1 |
| 1 | -3 | 3 | 0,6 |
| 2 | 4 | 8 | 0,4 |
| 3 | -2 | 6 | 0,8 |
| 4 | 2,4 | 4 | 0,2 |
| 5 | -2,5 | 2,5 | 0,25 |
| 6 | 3 | 9 | 0,3 |
| 7 | -4 | -2 | 0,1 |
| 8 | 1 | 5 | 0,2 |
| 9 | -5 | 0 | 0,5 |
