15b65 Visual Basic. B.17. Гнездо задач. Файлы. Сборник задач по программированию Александра Приходько
 

Сборник задач по программированию. Старая версия

 

 Приходько А. Н.

 
задачи, applet, учебник, applet, задачи, xsl, сервлет, класс, servlet, xslt, applet, file, по программированию
 

Visual Basic. B.17. Гнездо задач. Файлы

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.20    Ответы

Определить содержимое файла xxx.zzz после выполнения следующей процедуры.


Sub AA()
    Open "c:\xxx.zzz" For Output As #1
    k = 0
    m = 3
    N = 7
    Do
        k = k + 1
        m = m + k
        N = N + k
        pr = (m Mod 2 = 0) Or (N Mod 5 = 0)
        Print #1, pr
    Loop Until k = 10
    Close #1
End Sub

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.21    Ответы    Паскаль-аналог

Определить значение, выдаваемое функцией AA .


Function AA() As Integer
    Open "c:\xxx.int" For Output As #1
    For I = 1 To 3
        J = I * 2 - 1
        Print #1, J
    Next I
    Close #1
    Sun = 0
    nnn = 100
    Open "c:\xxx.int" For Input As #1
    While Not EOF(1)
        Input #1, I
        k = nnn Mod I
        Sun = Sun + k
    Wend
    Close #1
    AA = Sun
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.22    Ответы    Паскаль-аналог

Какое число будет в переменной Sun в конце выполнения следующей программы.


Function AA() As Integer
    Open "c:\xxx.int" For Output As #1
    For I = 2 To 5
        Print #1, I
    Next I
    Close #1
    Sun = 3
    Open "c:\xxx.int" For Input As #1
    While Not EOF(1)
        Input #1, I
        Sun = Sun + I
    Wend
    Close #1
    AA = Sun
End Function

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.23    Ответы    Паскаль-аналог

Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей процедуры.


Sub AA()
Dim xx As Integer
    Open "c:\aaa.dat" For Input As #1
    Open "c:\bbb.dat" For Output As #2
    While Not EOF(1)
        Input #1, xx
        Print #2, xx
    Wend
    Close #1
    Close #2
End Sub

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.24    Ответы    Паскаль-аналог

Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей процедуры.


Sub AA()
Dim xx As Integer
    Open "c:\aaa.dat" For Input As #1
    Open "c:\bbb.dat" For Output As #2
    While Not EOF(1)
        For n = 1 To 4
            Input #1, xx
        Next n
        Print #2, xx
    Wend
    Close #1
    Close #2
End Sub

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.25    Ответы    Паскаль-аналог

Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей процедуры.


Sub AA()
Dim xx As Integer
    Open "c:\aaa.dat" For Input As #1
    Open "c:\bbb.dat" For Output As #2
    While Not EOF(1)
        Input #1, xx
        For n = 1 To 4
            Print #2, xx
        Next n
    Wend
    Close #1
    Close #2
End Sub

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.26    Ответы    Паскаль-аналог

Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей процедуры.


Sub AA()
Dim xx As Integer
    Open "c:\aaa.dat" For Input As #1
    Open "c:\bbb.dat" For Output As #2
    While Not EOF(1)
        Input #1, xx
        If xx Mod 2 = 1 Then
            Print #2, xx
        End If
    Wend
    Close #1
    Close #2
End Sub

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.27    Ответы    Паскаль-аналог

Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей процедуры.


Sub AA()
Dim xx As Integer
    Open "c:\aaa.dat" For Input As #1
    Open "c:\bbb.dat" For Output As #2
    xx = 0
    While xx < 17
        Input #1, xx
        Print #2, xx
    Wend
    Close #1
    Close #2
End Sub

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.28    Ответы    Паскаль-аналог

Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей процедуры.


Sub AA()
Dim xx As Integer
    Open "c:\aaa.dat" For Input As #1
    Open "c:\bbb.dat" For Output As #2
    While Not EOF(1)
        Input #1, xx
        For n = 1 To xx
            Print #2, xx
        Next n
    Wend
    Close #1
    Close #2
End Sub

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.29    Ответы    Паскаль-аналог

Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей процедуры.


Sub AA()
Dim xx As Integer
    Open "c:\aaa.dat" For Input As #1
    Open "c:\bbb.dat" For Output As #2
    Sum = 0
    While Not EOF(1)
        Input #1, xx
        Sum = Sum + xx
        For n = 1 To Sum
            Print #2, xx
        Next n
    Wend
    Close #1
    Close #2
End Sub

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.30    Ответы    Паскаль-аналог

Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей процедуры.


Sub AA()
Dim xx As Integer
    Open "c:\aaa.dat" For Input As #1
    Open "c:\bbb.dat" For Output As #2
    While Not EOF(1)
        Input #1, xx
        For n = 1 To xx \ 2
            Print #2, xx
        Next n
    Wend
    Close #1
    Close #2
End Sub

 

 

Калькулятор

/ - деление

\ - остаток

S - сумма чисел от и до

P - произведение чисел от и до

B.17.31    Ответы    Паскаль-аналог

Исходный файл ‘aaa.dat’ содержит подряд все числа от 1 до 100. Определить, сколько чисел будет в файле
‘bbb.dat’ после выполнения следующей процедуры.


Sub AA()
Dim xx As Integer
    Open "c:\aaa.dat" For Input As #1
    Open "c:\bbb.dat" For Output As #2
    old = 1
    While Not EOF(1)
        Input #1, xx
        For n = 1 To (xx * xx) \ old
            Print #2, xx
        Next n
        old = xx
    Wend
    Close #1
    Close #2
End Sub


Гнездо B.18. Функции.

 

©   Александр Приходько    1996 - 2006

69 0