summaryrefslogtreecommitdiff
path: root/659/CH9/EX9.2/exm9_2.sci
blob: 692ad40e862e2927a6116a6ba9f42eef749420c3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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');