diff options
Diffstat (limited to '659/CH9/EX9.2/exm9_2.sci')
-rwxr-xr-x | 659/CH9/EX9.2/exm9_2.sci | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/659/CH9/EX9.2/exm9_2.sci b/659/CH9/EX9.2/exm9_2.sci new file mode 100755 index 000000000..692ad40e8 --- /dev/null +++ b/659/CH9/EX9.2/exm9_2.sci @@ -0,0 +1,25 @@ +// Example 9.2
+//Modify Example 9.1 to include arguments in function calls.
+
+funcprot(0);
+function []=printline(ch) //function with argument ch
+ for i=1:52
+ printf("%c",ch);
+ end
+ printf("\n");
+endfunction
+function []=value(p,r,n) //function with argument p,r,n
+ sum1=p;
+ year=1;
+ while(year<=n)
+ sum1=sum1*(1+r);
+ year=year+1;
+ end
+ printf("%f\t%f\t%d\t%f\n",p,r,n,sum1);
+endfunction
+printf("Enter principal amount,interest rate,and period \n[Enter in single line seperated by space]");
+[principal,inrate,period]=scanf("%f %f %d"); //read from standard input
+//Calling functions
+printline('z');
+value(principal,inrate,period);
+printline('c');
\ No newline at end of file |