PureBasic Forums - English

Code: Select all

/*
 Simple prime number generator
 */
count = 1;
n = 1;
limit = 100;
while (n < limit) {
    k=3;
    p=1;
    n=n+2;
    while ((k*k<=n) && (p)) {
        p=n/k*k!=n;
        k=k+2;
    }
    if (p) {
        print(n, " is prime");
        count = count + 1;
    }
}
print("Total primes found: ", count ); 

Code: Select all

a.f = 22 / 7;
b.f = 23 / 7.1;
c = 22/7;
d = 22/7.1;

print( a, " , ", b, " , ", c, " , ", d );

//macro
#mypi (22.01/7.01 - 0.001)#

print((22.01/7.01 - 0.001));
print(#mypi,"++");

f1.f = #pi;
f2.f = #mypi;

print("pi=", f1, " , ", #pi, " , ", f2 );

if( (f1>0.0) == #True ) {
	print("True works.");
}

Code: Select all

/*
 * Linked Lists objects
 */

//Macro
#ObjPrint		i = 0; ForEach(obj) { i = i + 1; print("[",i,"] --> ", obj.get);	}#
 
declare listtest(0);

pub.o NEW object;

ret = listtest();

print("--main--");

i = 0; ForEach(pub) 
{ 
	i = i + 1; 
	print("[",i,"] --> ", pub.get);	
}

func	listtest()
{
	obj.o NEW list;
	dim str$(1);
	
	obj.add("Kilo", "Lima", "Mike", "November");
	#ObjPrint
	obj.add("Alfa", "Bravo", 16, "Charlie", "Delta", "Echo", #pi, "Foxtrot","Juliet","Hotel");
	#ObjPrint
	pos = obj.pos(#CurrentPosition);
	print( "Pos=", pos );
	pos = obj.pos(4);
	print( "Pos(4)=", pos );
	pos = obj.pos();
	print( "Pos(4)=", pos );

	pos = obj.delete();
	pos = obj.delete(6);
	#ObjPrint
	obj.replace(1,15.1);
	obj.replace(2,"Inserted");
	#ObjPrint
	
	obj.convert(STR$());
	count = SizeOf(str$());
	i = 0;

	while( i < count){
		print("[",i+1,"] -- ",str$(i));
		i = i + 1;
	}
	
	obj2.o NEW obj;
	i = 0; ForEach(obj2) 
	{ 
		i = i + 1; 
		print("[",i,"] --> ", obj2.get);	
	}
	
	pub NEW obj;
}

Code: Select all

/*
 * Parameters by reference
 */
 
 declare		Main(0);
 declare	 	@@Test1(3);
 
 InitTimer();
 
 print("====[Start]==================");
 r = Main();
 
 i = 0;
 while(i++ < 4000);
 
 InitTimer();
 i = 0;
 while(i++ < 4000);
 
 /*
  * Eval is a runtime math evaluator and has math functions not available in code
  * Eval has its own variables, and will keep track of them until the command CLEAR is issued
  * Unlike other commands Eval will return all types in a variable (STR, INT and FLT)
  */
 
 //f.f = eval("CLEAR");
 t = EndTimer();
 print("Elapsed = ",t);
 f.f = eval("a=$t$");
 t = EndTimer();
 print("Elapsed = ",t);
 f = eval("b=$t$");
 t = EndTimer();
 print("Elapsed = ",t);
 
 f.f = eval("c=$t$ : a+b+c :c=c*1.611");
 print("f=",f);
 print(eval("9*7+11-6"));
 print(eval("DEG(3.14159/4)"));
 print(eval("Log10(a)"));
 print(eval("Log10(b)"));
 print(eval("Log10(a+b)"));
 
 
 print("====[End]==================");
 //Logical code end
 
 func				Main()
 {
	rnd.f = #pi;
	temp.s = "A typical string";
	obj.o NEW list;
	obj.Add("Alfa","Bravo","Charlie");
	
	print(TypeOf(rnd));
	
	print( "Main: ",temp, " , ", rnd);
	r = Test1(rnd,temp,obj);
	print( "Main: ",temp, " , ", rnd);
	
	foreach(obj) {
		print(obj.get);
	}
	
 }
 
 func				Test1(ff.f,ss$,fobj.o)
 {
	print( "Test1: ",ss$, " , ", ff);
	ss$ = "Hello";
	ff = 100.0/7.11;
	fobj.Add("Delta");
	print( "Test1: ",ss$, " , ", ff);
	print("eval=",eval("$test1-ff$*2"));
 }
 

Code: Select all

a.f = 22 / 7;
b.f = 23 / 7.1;
c = 22/7;
d = 22/7.1;

print( a, " , ", b, " , ", c, " , ", d );

Code: Select all

dim  ar$(12);
ar$(3) = "10.77654";
print( ar$(3) );

dim fl.f(12);

fl.f(3) = 10.77654;
fl.f(6) = 91.023;

print( fl.f(3) );
print( fl.f(6) );

//Automatic conversion to float
print( fl(6) + ar$(3));

f1.f = 1.41;
m = 8;

fl.f(4) = f1.f;

fl.f(7) = 6.8741;
fl.f(4/m + m) = 21.6;
l = 4/m + m;

print( fl.f(4), " , ", fl.f(7) + fl.f(l) );