fork download
copy 
  1. program ComputeFunction;
  2. var
  3.   A, B, H, x, F: Real;
  4.   M, i: Integer;
  5. begin
  6.   A := Pi / 3;
  7.   B := 2 * Pi / 3;
  8.   M := 20;
  9.   H := (B - A) / M;
  10. for i := 0 to M do
  11.   begin
  12.     x := A + i * H;
  13.     F := Cos(x);
  14.     Writeln('x(', i, ')= ', x:0:2, '  F(x(', i, '))= ', F:0:4);
  15.   end;
  16.   readln
  17. end.
  18.  
Success #stdin #stdout 0s 5292KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
x(0)= 1.05  F(x(0))= 0.5000
x(1)= 1.10  F(x(1))= 0.4540
x(2)= 1.15  F(x(2))= 0.4067
x(3)= 1.20  F(x(3))= 0.3584
x(4)= 1.26  F(x(4))= 0.3090
x(5)= 1.31  F(x(5))= 0.2588
x(6)= 1.36  F(x(6))= 0.2079
x(7)= 1.41  F(x(7))= 0.1564
x(8)= 1.47  F(x(8))= 0.1045
x(9)= 1.52  F(x(9))= 0.0523
x(10)= 1.57  F(x(10))= -0.0000
x(11)= 1.62  F(x(11))= -0.0523
x(12)= 1.68  F(x(12))= -0.1045
x(13)= 1.73  F(x(13))= -0.1564
x(14)= 1.78  F(x(14))= -0.2079
x(15)= 1.83  F(x(15))= -0.2588
x(16)= 1.88  F(x(16))= -0.3090
x(17)= 1.94  F(x(17))= -0.3584
x(18)= 1.99  F(x(18))= -0.4067
x(19)= 2.04  F(x(19))= -0.4540
x(20)= 2.09  F(x(20))= -0.5000
https://ideone.com/PfsUV8
language:
Pascal (fpc 3.0.4)
created:
12 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!