99-CE COMPUTER STUDIES  ---PAPER  II

Solutions:
1.a)

LINE	CORRECTED STATEMENT
100	 read(table1[i,j]);
120	 deleted
180	 read(table2[i,j]);
190	 table1[i,j]:=table2[i,j]+table1[i,j];
200	 end; writeln;
245	 begin for j:=1 to 4 do
250	 write(table[i,j], ' '); writeln; end;


b)
       program bank(input, output);
       uses wincrt;
       var    P, RAMT, I, N, FLAG: real;
       begin
           write('Enter the principle: $');
           readln(P);
           write('Enter the monthly amount that needs to be',
                    'returned: $');
           readln(RAMT);
           write('Enter the interest rate: ');
           readln(I);
           N:=0;
           FLAG:=0;
           while  (FLAG=0)  do
           begin 
               P:=P+P*I;
               if  (P<=RAMT)  then
               FLAG:=1
               else  begin
                           P:=P-RAMT;
                           N:=N+1
                        end
           end;
           writeln('The number of repayment installments',
                        'required is',  N+1)
end.