Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
43
Task/Abstract-type/FreeBASIC/abstract-type.freebasic
Normal file
43
Task/Abstract-type/FreeBASIC/abstract-type.freebasic
Normal file
|
|
@ -0,0 +1,43 @@
|
|||
' FB 1.05.0 Win64
|
||||
|
||||
Type Animal Extends Object
|
||||
Declare Abstract Sub MakeNoise()
|
||||
End Type
|
||||
|
||||
Type Bear Extends Animal
|
||||
name As String
|
||||
Declare Constructor(name As String)
|
||||
Declare Sub MakeNoise()
|
||||
End Type
|
||||
|
||||
Constructor Bear(name As String)
|
||||
This.name = name
|
||||
End Constructor
|
||||
|
||||
Sub Bear.MakeNoise()
|
||||
Print name; " is growling"
|
||||
End Sub
|
||||
|
||||
Type Dog Extends Animal
|
||||
name As String
|
||||
Declare Constructor(name As String)
|
||||
Declare Sub MakeNoise()
|
||||
End Type
|
||||
|
||||
Constructor Dog(name As String)
|
||||
This.name = name
|
||||
End Constructor
|
||||
|
||||
Sub Dog.MakeNoise()
|
||||
Print name; " is barking"
|
||||
End Sub
|
||||
|
||||
Dim b As Animal Ptr = New Bear("Bruno")
|
||||
b -> MakeNoise()
|
||||
Dim d As Animal Ptr = New Dog("Rover")
|
||||
d -> MakeNoise()
|
||||
Delete b
|
||||
Delete d
|
||||
Print
|
||||
Print "Press any key to quit program"
|
||||
Sleep
|
||||
Loading…
Add table
Add a link
Reference in a new issue