Advertisement
earine

Untitled

Apr 24th, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.44 KB | None | 0 0
  1. program p238;
  2.  
  3. uses crt;
  4. var
  5.   i: integer;
  6.   y, x, a, b: real;
  7.  
  8. begin
  9.  
  10.   for i := 1 to 9 do
  11.   begin
  12.     write(i, '. x = ');
  13.     readln(x);
  14.     write('   a = ');
  15.     readln(a);
  16.     write('   b = ');
  17.     readln(b);
  18.     if x <  b then
  19.     begin
  20.       y := abs(sqrt(x*x*x) + sin(a + x));
  21.       writeln('   y = ', y);
  22.     end
  23.     else
  24.     begin
  25.       y := sqrt(x) + cos(x );
  26.       writeln('   y = ', y);
  27.     end;
  28.   end;
  29. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement