Advertisement
Alex_Fomin

Untitled

Nov 29th, 2015
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.51 KB | None | 0 0
  1. uses
  2.   system;
  3.  
  4. var
  5.   v, f: real;
  6.  
  7. begin
  8.   Console.WriteLine('--------------------------');
  9.   Console.WriteLine('|     v     |    F(v)    |');
  10.   Console.WriteLine('--------------------------');
  11.   v := 0;
  12.   for var i := 0 to 16 do
  13.   begin
  14.     if (0 <= v) and (v <= 0.5) then f := sqr(v) + power(v, 1 / 3)
  15.     else if (0.5 < v) and (v <= 8) then f := ln(v + sin(v));
  16.     Console.WriteLine('|   {0:0.000}   |  {1:0.000000}  |', v, f);
  17.     v += 0.5;
  18.   end;
  19.   Console.WriteLine('--------------------------');
  20. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement