35 lines
935 B
Text
35 lines
935 B
Text
'Task
|
|
'Take a combined set of elements and apply a function to each element.
|
|
'UDT
|
|
Type Friend
|
|
Names As String * 8
|
|
Surnames As String * 8
|
|
Age As Integer
|
|
End Type
|
|
|
|
Dim Friends(1 To 6) As Friend
|
|
Restore
|
|
FillArray
|
|
SearchForAdult Friends(), LBound(friends), UBound(friends)
|
|
|
|
End
|
|
|
|
Data "John","Beoz",13,"Will","Strange",22
|
|
Data "Arthur","Boile",16,"Peter","Smith",21
|
|
Data "Tom","Parker",14,"Tim","Wesson",24
|
|
|
|
Sub FillArray
|
|
Shared Friends() As Friend
|
|
Dim indeX As Integer
|
|
For indeX = LBound(friends) To UBound(friends) Step 1
|
|
Read Friends(indeX).Names, Friends(indeX).Surnames, Friends(indeX).Age
|
|
Next
|
|
End Sub
|
|
|
|
Sub SearchForAdult (F() As Friend, Min As Integer, Max As Integer)
|
|
Dim Index As Integer
|
|
Print "Friends with more than 18 years old"
|
|
For Index = Min To Max Step 1
|
|
If F(Index).Age > 18 Then Print F(Index).Names; " "; F(Index).Surnames; " "; F(Index).Age
|
|
Next Index
|
|
End Sub
|