Лабораторная работа "Строки. Задания первого уровня сложности"

Скачать: 4-variant-tema-6.rar [235,54 Kb] (cкачиваний: 0)  

Строки. Задания первого уровня сложности

Задание:

Интерфейс реализации приложения:

Блок схема:

Текстпрограммы:

Private Sub Command1_Click()

st = Text1

For i = 1 To Len(st)

If Mid(st, i, 1) = ":" Then k = i - 1: Exit For

Next i

Picture1.Print k & " символов(а) предшествует :"

End Sub

Строки. Задания второго уровня сложности

Задание:

Интерфейс реализации приложения:

Блок схема:

Текстпрограммы:

Private Sub Command1_Click()

Picture1.Cls

str1 = Text1

word = Split(Text1)

Max = Len(word(0))

For i = 0 To UBound(word)

If Max < Len(word(i)) Then

Max = Len(word(i))

ind = i

End If

Next i

p = Split(str1, word(ind))

Picture1.Print "Самое длинное слово " & word(ind) & ", встречается " & UBound(p) & " раз(а)"

End Sub

Файлы. Задания первого уровня сложности

Задание:

Интерфейс реализации приложения:

Блок схема:

Текстпрограммы:

Private Sub Command1_Click()

Picture1.Cls

sl = Text1

Dim text As String

k = FreeFile()

Open App.Path + "\" + "data.txt" For Input As #k

Do

Input #1, t$

n = n + 1

Loop Until EOF(k)

n = n - 1

Seek (k), 1

For i = 0 To n

Input #k, txt

text = text & txt & vbCrLf

Next i

Close #k

Picture1.Print "Текст:"

Picture1.Print text

a = Split(text, sl)

Picture1.Print UBound(a); " раз(а) встречается слово " & sl

End Sub

Файлы. Задания второго уровня сложности

Задание:

Блок схема:

Интерфейс реализации приложения:

Текст программы:

Dim a() As Integer

Dim mas_tmp() As Integer

Dim n, m As Integer

Function ins(k1 As Integer)

For i1 = n - 1 To k1 + 1 Step -1

For j1 = 0 To m - 1

a(i1 + 1, j1) = a(i1, j1)

Next j1, i1

For j1 = 0 To m - 1

a(k1 + 1, j1) = a(0, j1)

Next j1

End Function

Private Sub Command1_Click()

ReDim a(10, 10)

Picture1.Cls

Picture2.Cls

Dim str1 As String

Dim b(10, 10) As Integer

Dim indi, indj As Integer

Dim prompt As String

k = FreeFile()

Open App.Path + "\" + "data.txt" For Input As #k

Seek (k), 1

Input #k, str1

n = Val(str1)

Input #k, str1

m = Val(str1)

For i = 2 To n + 1

Dim st As String

Input #k, str1

For j = 0 To m - 1

a(i - 2, j) = Split(str1, " ")(j)

Next j

Next i

Close #k

prompt = ""

For i = 0 To n - 1

For j = 0 To m - 1

prompt = prompt & a(i, j) & vbTab

Next j

prompt = prompt & Chr(13)

Next i

Picture1.Print prompt

i = 0

Do

Max = Abs(a(i, 0))

indi = i

indj = 0

For j = 0 To m - 1

If Abs(a(i, j)) > Max Then

Max = Abs(a(i, j))

indi = i

indj = j

End If

Next j

a(indi, indj) = -1 * a(indi, indj)

i = i + 1

Loop While i <= n - 1

prompt = ""

For i = 0 To n - 1

For j = 0 To m - 1

prompt = prompt & a(i, j) & vbTab

Next j

prompt = prompt & Chr(13)

Next i

Picture2.Print prompt

For i = 1 To n

If (i Mod 2) = 0 Then kol = kol + 1

Next i

t = 1

For i = 1 To kol

ins (t)

n = n + 1

t = t + 3

Next i

prompt = ""

For i = 0 To n - 1

For j = 0 To m - 1

prompt = prompt & a(i, j) & vbTab

Next j

prompt = prompt & Chr(13)

Next i

Picture3.Print prompt

k = 0

ReDim mas_tmp(n - 1, m - 1)

For i = 0 To n - 1

For j = 0 To m - 1

mas_tmp(i - k, j) = a(i, j)

If a(i, j) = 0 Then k = k + 1: Exit For

Next

Next

ReDim a(n - 1 - k, m - 1)

a = mas_tmp

For i = 0 To n - 1 - k

t = ""

For j = 0 To m - 1

t = t & a(i, j) & vbTab

Next

Picture4.Print t

Next

If (m Mod 2) <> 0 Then

Picture5.Print "Нету среднего столбца"

Else

o = m \ 2

End If

For i = 0 To n - 1

temp1 = a(i, o - 1)

a(i, o - 1) = a(i, o)

a(i, o) = temp1

Next i

For i = 0 To n - 1 - k

t = ""

For j = 0 To m - 1

t = t & a(i, j) & vbTab

Next

Picture5.Print t

Next

End Sub