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
27
Task/Pangram-checker/FreeBASIC/pangram-checker.freebasic
Normal file
27
Task/Pangram-checker/FreeBASIC/pangram-checker.freebasic
Normal file
|
|
@ -0,0 +1,27 @@
|
|||
' FB 1.05.0 Win64
|
||||
|
||||
Function isPangram(s As Const String) As Boolean
|
||||
Dim As Integer length = Len(s)
|
||||
If length < 26 Then Return False
|
||||
Dim p As String = LCase(s)
|
||||
For i As Integer = 97 To 122
|
||||
If Instr(p, Chr(i)) = 0 Then Return False
|
||||
Next
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Dim s(1 To 3) As String = _
|
||||
{ _
|
||||
"The quick brown fox jumps over the lazy dog", _
|
||||
"abbdefghijklmnopqrstuVwxYz", _ '' no c!
|
||||
"How vexingly quick daft zebras jump!" _
|
||||
}
|
||||
|
||||
For i As Integer = 1 To 3:
|
||||
Print "'"; s(i); "' is "; IIf(isPangram(s(i)), "a", "not a"); " pangram"
|
||||
Print
|
||||
Next
|
||||
|
||||
Print
|
||||
Print "Press nay key to quit"
|
||||
Sleep
|
||||
Loading…
Add table
Add a link
Reference in a new issue