Вопрос № 129405: Понятие програмной единицы.Локальные и глобальные переменные.Правила их использования и применения в системе программирования BASIC....Вопрос № 129406: Написать программу поиска номеров строки и столбца минимального и максимального элемента в заданном двухмерном массиве вещественных чисел.Ответьть на вопрос - не находятся ли найденые минимальный и максимальный элемент на основной диагонали матрицы....Вопрос № 129407: использование процедур и функций пользователя в системе программирования Basic. Внутренние и внешние подпрограммы....Вопрос № 129408: Срочно нужны 2 программы:
1) Написать программу поиска номера строки и столбца заданой квадратной матрицы, содержащий минимальный элемент.
2)Дан текст. Заменить все буквы - строчными буквами....Вопрос № 129409: написать программу поиска минимального и максимального элемента заданного одномерного массива. найти сумму элементов массива,расположенных между минимальным и максимальными элементами (включительно)....
Вопрос № 129.405
Понятие програмной единицы.Локальные и глобальные переменные.Правила их использования и применения в системе программирования BASIC.
Отправлен: 28.03.2008, 09:07
Вопрос задала: Наталья (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Наталья !
http://woodash.ifolder.ru/4469396
VB6.0_знакомство.rar 2.00 Мб
Евгений.
P.S. конечно если это вопрос, а не названия глав книги.:)
Отвечает: Черников Игорь Владимирович
Здравствуйте, Наталья !
Понятие програмной единицы:
http://www.infocity.kiev.ua/db/content/db125_3.phtml
Локальные и глобальные переменные
http://www.sseu.ru/edumat/ei/pascal/4.htm
http://www.codenet.ru/progr/cpp/5/07.php
--------- От каждого по способностям, каждому по труду
Написать программу поиска номеров строки и столбца минимального и максимального элемента в заданном двухмерном массиве вещественных чисел.Ответьть на вопрос - не находятся ли найденые минимальный и максимальный элемент на основной диагонали матрицы.
Отправлен: 28.03.2008, 09:11
Вопрос задала: Наталья (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Черников Игорь Владимирович
Здравствуйте, Наталья !
Вещественное число - в информатике - тип данных, содержащий числа, записанные с десятичной точкой и/или с десятичным порядком.
Программа написана на VBA
Sub Макрос1()
Dim a() As Double ' Объявляем массив
Y = InputBox("Ведите размерность массива по вертикали (кол-во столбцов)", "Ввод данных", 10)
X = InputBox("Ведите размерность массива по горизонтали (кол-во строк)", "Ввод данных", 10)
ReDim a(Y - 1, X - 1) 'Объявляем размерность массива
от = -1.6 * (10 ^ 300) 'Заполняем массив случайными числами
до = 1.7 * (10 ^ 300)
For i = 0 To Y - 1
For j = 0 To X - 1
a(i, j) = ((до - от) * Rnd) + от
Next j
Next i 'Конец заполнения массива
минимум = до
For i = 0 To Y - 1 'Ищем минимальное значение
For j = 0 To X - 1
If минимум > a(i, j) Then ' Если минимальное число больше, чем в ячейке массива,
минимум = a(i, j) 'то минимальное число = ячейке массива
СтрокаМин = i + 1 'запоминаем в какой строке
СтолбецМин = j + 1 'запоминаем в каом столбце
End If 'Конец условия
Next j 'Конец цикла
Next i 'Конец цикла
максимум = от
For i = 0 To Y - 1 'Ищем максимальное значение
For j = 0 To X - 1
If максимум < a(i, j) Then
максимум = a(i, j)
СтрокаМакс = i + 1
СтолбецМакс = j + 1
End If
Next j
Next i
For i = 0 To Y - 1 'Выводим результат в окно отладки, чтобы убедиться, что всё правильно
For j = 0 To X - 1
массив = массив & " " & a(i, j)
Next j
массив = массив & Chr(10)
Next i
Debug.Print массив
Debug.Print "Минимальное значение = " & минимум & " столбец №" & СтолбецМин & ", строка №" & СтрокаМин
Debug.Print "Максимальное значение = " & максимум & " столбец №" & СтолбецМакс & ", строка №" & СтрокаМакс
If СтрокаМин = СтолбецМин Then
Debug.Print "Минимальное число " & минимум & " лежит на основной диагонали"
Else
Debug.Print "Минимальное число " & минимум & " не принадлежит основной диагонали"
End If
If СтрокаМакс = СтолбецМакс Then
Debug.Print "Максимальное число " & максимум & " лежит на основной диагонали"
Else
Debug.Print "Максимальное число " & максимум & " не принадлежит на основной диагонали"
End If
End Sub
Удачи!
--------- От каждого по способностям, каждому по труду
Отвечает: Черников Игорь Владимирович
Здравствуйте, Дегтярь Игорь Геннадиевич!
Ответ на первый вопрос:
Sub Макрос1()
Dim a() As Double ' Объявляем массив
X = InputBox("Ведите размерность квадратного массива", "Ввод данных", 5)
ReDim a(X - 1, X - 1) 'Объявляем размерность массива
от = -100 'Заполняем массив случайными числами
до = 100
For i = 0 To X - 1
For j = 0 To X - 1
a(i, j) = ((до - от) * Rnd) + от
Next j
Next i 'Конец заполнения массива
минимум = до
For i = 0 To X - 1 'Ищем минимальное значение
For j = 0 To X - 1
If минимум > a(i, j) Then ' Если минимальное число больше, чем в ячейке массива,
минимум = a(i, j) 'то минимальное число = ячейке массива
СтрокаМин = i + 1 'запоминаем в какой строке
СтолбецМин = j + 1 'запоминаем в каком столбце
End If 'Конец условия
Next j 'Конец цикла
Next i 'Конец цикла
For i = 0 To X - 1 'Выводим результат в окно отладки, чтобы убедиться, что всё правильно
For j = 0 To X - 1
массив = массив & " " & a(i, j)
Next j
массив = массив & Chr(10)
Next i
написать программу поиска минимального и максимального элемента заданного одномерного массива. найти сумму элементов массива,расположенных между минимальным и максимальными элементами (включительно).
Отправлен: 28.03.2008, 09:16
Вопрос задала: Лиза (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Черников Игорь Владимирович
Здравствуйте, Лиза!
Вот Ваша программа (написана на VBA)
Sub Макрос1()
Dim a() As Integer ' Объявляем массив
X = InputBox("Ведите размерность массива", "Ввод данных", 10)
ReDim a(X - 1) 'Объявляем размерность массива
от = -1000 'Заполняем массив случайными числами
до = 1000
For i = 0 To X - 1
a(i) = ((до - от) * Rnd) + от
Next i 'Конец заполнения массива
минимум = до
For i = 0 To X - 1 'Ищем минимальное значение
If минимум > a(i) Then ' Если минимальное число больше, чем в ячейке массива,
минимум = a(i) 'то минимальное число = ячейке массива
Мин = i + 1 'запоминаем в какой ячейке минимальное число
End If 'Конец условия
Next i 'Конец цикла
максимум = от
For i = 0 To X - 1 'Ищем максимальное значение
If максимум < a(i) Then
максимум = a(i)
Макс = i + 1
End If
Next i
If Мин < Макс Then 'Вычисляем сумму если Мин < Макс
For i = Мин - 1 To Макс - 1
Сумма = Сумма + a(i)
Next i
Else 'Вычисляем сумму если Мин > Макс
For i = Макс - 1 To Мин - 1
Сумма = Сумма + a(i)
Next i
End If
For i = 0 To X - 1 'Выводим результат на экран, чтобы убедиться, что всё правильно
массив = массив & Chr(10) & "Ячейка №" & (i + 1) & " = " & " " & a(i)
Next i
MsgBox (массив & Chr(10) & "Минимальное значение = " & минимум & ", ячейка №" & Мин & Chr(10) & _
"Максимальное значение = " & максимум & ", ячейка №" & Макс & Chr(10) & _
"Сумма значений от минимального до максимального = " & Сумма)
End Sub
Удачи!
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 9-ый класс)
Ответ отправлен: 29.03.2008, 20:21 Оценка за ответ: 5 Комментарий оценки: спасибо большое
