subalgoritm task .....

.




  my task : 1-3 (use procedure of subalgoritm)

1)


                   n         2
f(x) = 2x + 3y + 4y
use procedure of subalgoritm


2) create algorithms to display the number pacal

3) create algorithms to display the prime numbers 
      prime numbers (2, 3, 5, 7, 11, 13, 17, 19, 23 ,29, . . .. )





 example with if - then
question :
find out the y-value from given x-value of :


                       3          2
f (x) = 3x - 5x + 2x -6 

answer : 
var
   x,f : integer ;

begin 
   write ('insert the value of x : ') ;
   readln (x) ;
   if x > 0 then
   begin
     f : 3*x*x*x - 5*x*x + 2* - 6
     readln ;
   end
   else
     writeln (' x value mustn't be 0');
   end
end


example for "procedure"
3 x 5 = 3 x 3 x 3 x 3 x 3


proc . multiple (x , y , result )
  a + x = a
  b + 1 = b
    while b < y do
       a + x = a
       b + 1 = b
    end while
end proc