fork download
copy 
  1. PROGRAM LAB4A (INPUT,OUTPUT);
  2. VAR
  3.    S:real;
  4.    Si:real;
  5.    y:real;
  6.    x:real;
  7.    eps:real;
  8.    A:real;
  9.    V:real;
  10.    i:real;
  11.    j:integer;
  12.  
  13. BEGIN
  14.    x:=0.5;
  15.    eps:=0.01;
  16.    i:=x*x*x; 
  17.    j:=3;
  18.    Si:=(-1)*(i/j);
  19.    S:=x+Si;
  20.  
  21.    while abs(Si)>eps DO
  22.    begin 
  23.    i:=i*x*x;
  24.    j:=j+2;
  25.    Si:=Si*(-1)*(i/j);
  26.    S:=S+Si;
  27.    end;
  28.  
  29.  
  30.  
  31.    y:=arctan(x);
  32.    A:=abs(y-S);
  33.    V:=A/abs(y)*100;
  34.    writeln('y=',y:10:6,'S=',S:10:6);
  35.    writeln('A=',A:8:5,'V=',V:8:5,'%');
  36.    end.
  37.  
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
y=  0.463648S=  0.458594
A= 0.00505V= 1.09002%
https://ideone.com/rkmgRm
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!