Call a function: Difference between revisions

=={{header|FreeBASIC}}==

<lang freebasic>

Sub Saludo()

Print "Hola mundo!"

End Sub

Function Copialo(txt As String, siNo As Short, final As String = "") As String

Dim nuevaCadena As String

For cont As Short = 1 To siNo

nuevaCadena &= txt

Next

Return Trim(nuevaCadena) & final

End Function

Sub testNumeros(a As Integer, b As Integer, c As Integer = 0)

Print a, b, c

End Sub

Sub testCadenas(txt As String)

For cont As Byte = 0 To Len(txt)

Print Chr(txt[cont]); "";

Next cont

End Sub

Saludo

Print Copialo("Saludos ", 6)

Print Copialo("Saludos ", 3, "!!")

?

testNumeros(1, 2, 3)

testNumeros(1, 2)

?

testCadenas("1, 2, 3, 4, cadena, 6, 7, 8, \'incluye texto\'")

</lang>

{{out}}

<pre>Hola mundo!

Saludos Saludos Saludos Saludos Saludos Saludos

Saludos Saludos Saludos!!

1 2 3

1 2 0

1, 2, 3, 4, cadena, 6, 7, 8, \'incluye texto\'</pre>