Даны два целых числа I, J и файл вещественных чисел, содержащий элементы прямоугольной матрицы - VB

Узнай цену своей работы

Формулировка задачи:

Даны два целых числа I, J и файл вещественных чисел, содержащий элементы прямоугольной матрицы (по строкам), причем первый элемент файла содержит количество столбцов матрицы. Вывести элемент матрицы, расположенный в I-й строке и J-м столбце (строки и столбцы нумеруются от 1). Если требуемый элемент отсутствует, то вывести 0.

Решение задачи: «Даны два целых числа I, J и файл вещественных чисел, содержащий элементы прямоугольной матрицы»

textual
Листинг программы
Option Explicit
 
Dim a As Double
Dim s As String, j As Long
Dim n As Long, i As Long, m As Long, k As Long
 
Private Sub cmdD_Click()
    Open "1.txt" For Input As #1
        i = 3
        j = 5
        Input #1, s
        n = Val(s)
        m = n * (i - 1) + j + 1
        k = 0
        Do
            Line Input #1, s
            k = k + 1
        Loop Until EOF(1)
        Close #1
        If k < m Then
            Print "0"
            GoTo 100
        End If
    Open "1.txt" For Input As #1
        k = 0
        Do
            Line Input #1, s
            k = k + 1
            If k = m Then Print s
        Loop Until EOF(1)
100
    Close #1
End Sub

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы