Laba_8 - Кафедра ПО

МИНОБРНАУКИ РФ
Федеральное Государственное бюджетное
учреждение высшего профессионального образования.
Кафедра: Программная инженерия
Лабораторная работа №8
Вариант №3
Выполнил студент 1 курса
ПИН-1206 Волнухин Виктор
Проверил: Мальков
Александр Анатольевич
Тверь 2012
1
Реализация "Циклические
вычислительные процессы" средствами Excel
Постановка задачи:
объявление цел: a(), n, i, strmax, k, g, j, t, max, строк: f
ввод k
ввод n
ввод g
формирование матрицы
если k < n то
ввод массива а
max = a(0, 0)
strmax = 0
для i = 1 дo n - 1
если a(i, i) > max то
max = a(i, i)
strmax = i
всё_если
всё_для i
вывод strmax
вывод max
для j = 0 дo g - 1
t = a(strmax, j)
a(strmax, j) = a(k, j)
a(k, j) = t
всё_для j
для i = 0 дo n - 1
для j = 0 дo g - 1
f = f + CStr(a(i, j)) + " "
всё_для j
f = f + Chr(10)
всё_для i
вывод f
иначе
вывести "номер строки больше, чем размер матрицы"
всё_если
2
Реализация в Visual Basic:
Dim a(), n, i, strmax, k, g, j, t, max As Integer
Dim f As String
f = ""
k = CInt(InputBox("введите номер строки k"))
n = CInt(InputBox("введите кол-во строк в матрице"))
g = CInt(InputBox("введите кол-во столбцов в матрице"))
ReDim a(n, g)
If k < n Then
For i = 0 To n - 1
For j = 0 To g - 1
a(i, j) = InputBox("введите элемент матрицы " + CStr(i + 1) + " строки "
+ CStr(j + 1) + " столбца ")
Next j
Next i
max = a(0, 0)
strmax = 0
For i = 1 To n - 1
If a(i, i) > max Then
max = a(i, i)
strmax = i
End If
Next i
MsgBox strmax
MsgBox max
For j = 0 To g - 1
t = a(strmax, j)
a(strmax, j) = a(k, j)
a(k, j) = t
Next j
For i = 0 To n - 1
For j = 0 To g - 1
f = f + CStr(a(i, j)) + " "
Next j
3
f = f + Chr(10)
Next i
MsgBox f
Else
MsgBox "номер строки больше, чем размер матрицы"
End If
Оглавление
Постановка задачи: ........................................................................................................................2
Реализация в Visual Basic: ............................................................................................................3
4