freebasic.net

ganache

I know that FB doesn't have any built-in syntax for list comprehensions like python or
some functional programming languages.
But can they be simulated. Examples would be nice.

ganache

Here is some code from a golf code challenge, that I translated to FB.

Code: Select all


  Dim As Integer i, j, k
  for i=-8 to 8
  for j=-8 to 9
  k=abs(i)+abs(j)
  if k > 8 then
  print " ";
  else
  print chr(57-k); 
  end if 
  next j
  print
  next i
  Sleep
  End
  
[code]

Run it!

ganache

Hi, how do I translate this to FB with messagebox

Code: Select all

num1=Cint(InputBox("Enter the no. of rotten apples: "))
num2=Cint(InputBox("Enter the total no. of apples: "))
msgbox ( "The percentage is:" & num1/num2*100 &"%")

ganache

thanks guys for the suggestions. But it seems that the log method is incorrect. Tried it in c. The code below works for numbers that fit into the largest numeric data type supported by FB. After that I guess the integers start to overflow... Dim As Ulongint number Dim As Integer count input "En...

ganache

here is some code works in c language function countDigit(n As Ulongint) As Integer return INT(log(10(n)) + 1) end function Dim As Integer n input "Enter number: ";n print countDigit(n) Sleep But compiler says expected '' ( " in return statement. No matter how i try to balance the bra...

ganache

Got it!

ganache

Very nice work JJFlash!
But how to control the white asterix? Pressing arrow keys does not affect the movement. It is random movement, right?

ganache

Thank you fxm. But suppose I want the second string (i.e. s2) to be appended with * (asterix or star character) to indicate that the rest of the characters are duplicates.How do i do that ? I tried adding a print "*" after If s1[i] = s2[j] Then duplicate = True But that didn't work. by the...

ganache

Hi, how to remove duplicates from a string?
What if string is randomly generated?
see code

Code: Select all

Dim As String s(49) ' string has 50 characters
Dim As Integer i, c
Randomize Timer
for i=0 to 49
c=INT(RND(1) +26 
list(i)=CHR(c+65) 'upper case letters
print list(i);
next i
Sleep

ganache

Thanks, srvaldez. The sub and printPattern seem to be throwing up a few errors. But anyways, thanks. I'll see if I can resolve the issues.

ganache

My attempt Dim As String s Dim As Integer i, j Input " enter string with odd no of characters:",s For i = 0 to len(s)-1 For j = 0 to len(s) - 1 If i = j or i + j =len(s) - 1 then Print chr(i), ' semicolon Else Print " ", End if Next j Next i Sleep There will be a point of interse...

ganache

In fact, knowing the GCD, we can also find the LCM(Least Common Multiple) Here is a complete program that will find both GCD and LCM of two numbers. declare function gcd(p As Integer, q As Integer) As Integer declare function lcm(p As Integer, q As Integer) As Integer Dim As Integer p, q ' recursive...

ganache

' Program to find GCD(Greatest Common Divisor) of two numbers.

Code: Select all

declare function gcd(p As Integer, q As Integer) As Integer
Dim As Integer p, q

' recursive Euclidean algorithm
function gcd(p As Integer, q As Integer) As Integer
if q = 0 then
return p
end if
return gcd(q, p mod q)
end function

ganache

Add arguments together as numbers(integers)... Dim As Integer i=0, sum=0 Do Dim As String arg = Command(i) If Len(arg) = 0 Then Exit Do print "command line argument " & i & " = """ & arg & """" i += 1 sum+= val(Command(i)) ' val is us...

ganache

argc and argv are macros in FreeBASIC Joshy Yes, those are macros. But I am talking of non-macro usage perhaps. An example: Dim As Integer i = 0 Dim As String arg = command(1) print "Hello ";command(1); " how are you?" Sleep Run like this: if program name is helloarg.exe then ty...

Search found 47 matches

list comprehensions in FB?

Guess what the output of this code is?

Convert vbscript to FB

Re: count of digits in large number

count of digits in large number

Re: remove duplicates (repeat) characters/letters from a string

Re: Chaze in the Maze (Demo)

Re: remove duplicates (repeat) characters/letters from a string

remove duplicates (repeat) characters/letters from a string

Re: Print string as x pattern

Print string as x pattern

Re: GCD(Greatest Common Divisor) of two numbers

GCD(Greatest Common Divisor) of two numbers

Re: Passing command line arguments to FB programs

Re: Passing command line arguments to FB programs