Главная | Обратная связь | Поможем написать вашу работу!
МегаЛекции

Самостоятельная работа № 2

 

 

ГлавнаяПобочная

 

 

 

 

 


Образец выполнения работы № 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

Последняя цифра номера зачетной книжки   Начало текста

 

  Определить сумму и количество элементов, больших 6, по абсолютной величине
  Определить сумму и произведение отрицательных четных элементов
  Определить минимальный элемент и его местоположение (№ строки и столбца) среди нечетных положительных элементов
  Определить максимальный элемент среди отрицательных и его местоположение (№ строки и столбца)
  Определить среднее арифметическое всех положительных элементов, кратных 5
  Определить произведение и количество четных элементов, больших 7
  Определить минимальный элемент и его местоположение (№ строки и столбца) среди четных отрицательных элементов
  Определить сумму и количество элементов, попадающих в интервал (0;5)
  Определить максимальный элемент и его местоположение (№ строки и столбца) среди элементов, кратных 3
  Определить произведение и количество элементов, больших 3

 

Предпоследняя цифра номера зачетной книжки   Окончание текста

 

  В первом столбце матрицы произвольного размера
  В последних трех столбцах матрицы произвольного размера
  В каждой строке квадратной матрицы
  В четных столбцах матрицы произвольного размера
  В нечетных строках матрицы произвольного размера
  В каждом столбце матрицы произвольного размера
  Во второй и третьей строках матрицы произвольного размера
  На главной диагонали квадратной матрицы
  Над побочной диагональю квадратной матрицы
  В первых трех строках матрицы произвольного размера

 

Задание № 2

Сформировать матрицу:

Имя[размер] (вариант – последние две цифры номера зачетной книжки)

 

А[7x7] (01, 21, 41, …, 81)   В [7x7] (02, 22, 42, …, 82)
 
С [7x8] (03, 23, 43, …, 83) D [8x8] (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)
 
  2x +20,5x
  cos(4,9 – x)1,5
  sin3 (2,5 + x)
  cos (4 / x)2
  12 / sin (1,6 +x)
  0,7 ln(5x2)
  (4,6 – 3x)3
  0,1 lg (2x +12)
 

 

Предпоследняя цифра номера зачетной книжки

N Начальное значение аргумента Хн Конечное значение аргумента Хк Шаг изменения аргумента h
  -5    
  -3   0,6
      0,4
  -2   0,8
  2,4   0,2
  -2,5 2,5 0,25
      0,3
  -4 -2 0,1
      0,2
  -5   0,5

 

 

Поделиться:





Воспользуйтесь поиском по сайту:



©2015 - 2024 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...