Added example program of each main feature

11 files changed, 106 insertions, 15 deletions

diff --git a/src/examples/array.ft b/src/examples/array.ft
new file mode 100644
index 0000000..6f62940
--- /dev/null
+++ b/src/examples/array.ft
@@ -0,0 +1,13 @@
+program array
+int dimension(10)::a
+int::i
+
+do i=0,9
+a(i)=i*2
+end do
+
+do i=0,9
+print*,a(i)
+end do
+
+end program array
\ No newline at end of file
diff --git a/src/examples/conditional.ft b/src/examples/conditional.ft
new file mode 100644
index 0000000..6d3f79d
--- /dev/null
+++ b/src/examples/conditional.ft
@@ -0,0 +1,11 @@
+program conditional
+int::a
+int::b
+a=5
+b=7
+if a>=b then
+print*,a," is greater than or equal to ",b
+else
+print*,a," is less than ",b
+end if
+end program conditional
\ No newline at end of file
diff --git a/src/examples/doStatement.ft b/src/examples/doStatement.ft
new file mode 100644
index 0000000..ddee000
--- /dev/null
+++ b/src/examples/doStatement.ft
@@ -0,0 +1,6 @@
+program doStatement
+int::i
+do i=0,10
+print*,i
+end do
+end program doStatement
\ No newline at end of file
diff --git a/src/examples/doWhileStatement.ft b/src/examples/doWhileStatement.ft
new file mode 100644
index 0000000..a8aa096
--- /dev/null
+++ b/src/examples/doWhileStatement.ft
@@ -0,0 +1,8 @@
+program doWhileStatement
+int::i
+i=0
+do while(i<=10)
+print*,i
+i=i+1
+end do
+end program doWhileStatement
\ No newline at end of file
diff --git a/src/examples/expression.ft b/src/examples/expression.ft
new file mode 100644
index 0000000..c3420fe
--- /dev/null
+++ b/src/examples/expression.ft
@@ -0,0 +1,5 @@
+program expression
+int::a
+a=(5+4)*(10/2)+5**2
+print*,a
+end program expression
\ No newline at end of file
diff --git a/src/examples/example.ft b/src/examples/function.ft
index 571cace..2c6ed7d 100644
--- a/src/examples/example.ft
+++ b/src/examples/function.ft
@@ -2,7 +2,7 @@ program example
 real::a
 real::root
 a=30
-root=sqrt(25+5)
+root=sqrt(a)
 print*,"The square root of ",a," is ",root
 end program example
 
diff --git a/src/examples/iteration.ft b/src/examples/iteration.ft
deleted file mode 100644
index 22a2bfb..0000000
--- a/src/examples/iteration.ft
+++ /dev/null
@@ -1,8 +0,0 @@
-int dimension(5)::test
-int::i
-do i=0,4
-test(i)=i
-end do
-do i=0,4
-print*,test(i)
-end do
\ No newline at end of file
diff --git a/src/examples/selection.ft b/src/examples/selection.ft
deleted file mode 100644
index 21100b2..0000000
--- a/src/examples/selection.ft
+++ /dev/null
@@ -1,6 +0,0 @@
-character (len=10)::hello
-hello="hello"
-if 4==5 then
-hello="goodbye "
-endif
-print *,hello,6," world" endprint
\ No newline at end of file
diff --git a/src/examples/sieve.ft b/src/examples/sieve.ft
new file mode 100644
index 0000000..e771009
--- /dev/null
+++ b/src/examples/sieve.ft
@@ -0,0 +1,48 @@
+!Program to calculate all primes below a certain value
+program sieveOfEratosthenes
+
+	!define variables
+	int::n
+	n=10000
+	int dimension(10000)::checks
+	int::i
+	int::j
+
+	!initialise array
+	do i=2,n
+		checks(i)=1
+	end do
+	i=2
+
+	!search for primes
+	do while(i<root(n))
+		if checks(i)==1 then
+			j=i**2
+			do while(j<n)
+				checks(j)=0
+				j=j+i
+			end do
+		end if
+		i=i+1
+	end do
+
+	!output primes found
+	print*,"Primes below ",n
+	do i=2,n
+		if checks(i)==1 then
+			print*,i
+		end if
+	end do
+end program sieveOfEratosthenes
+
+
+!Function to find the square root of a value
+function real root(int value)
+	real::result
+	result=1
+	int::count
+	do count=0,10
+		result =(result+value/result)/2
+	end do
+	return result
+end
\ No newline at end of file
diff --git a/src/examples/string.ft b/src/examples/string.ft
new file mode 100644
index 0000000..dc7ed08
--- /dev/null
+++ b/src/examples/string.ft
@@ -0,0 +1,5 @@
+program string
+character(len=15)::a
+a="Hello World!"
+print*,a
+end program string
\ No newline at end of file
diff --git a/src/examples/subroutine.ft b/src/examples/subroutine.ft
new file mode 100644
index 0000000..58171b8
--- /dev/null
+++ b/src/examples/subroutine.ft
@@ -0,0 +1,9 @@
+program subroutineExample
+calc(3,4,5)
+end program subroutineExample
+
+subroutine calc(int a,int b,int c)
+int::total
+total=a*b*c
+print*,total
+end
\ No newline at end of file