fork download
copy 
  1. program lab4;
  2. uses crt, graphabc;
  3. const a=0;
  4.       b=10;
  5.       c=0.05;
  6.       m=10;
  7.       d=250;
  8.  
  9. var y,r,e:real;
  10.     n:integer;
  11.     dy: array[1..100] of real;
  12.     dx: array[1..100] of real;
  13.  
  14. function f(x,y:real):real;
  15. begin
  16. //f:=2*x+y-1;
  17. f:=sin(x);
  18. end;
  19.  
  20. procedure euler(n:integer; var y:real);
  21. var x,h:real;
  22.     i:integer;
  23. begin
  24.      x:=0;
  25.      y:=1;
  26.      h:=(b-a)/n;
  27.      for i:=1 to n do begin
  28.          y:=y+h*f(x,y);
  29.          x:=x+h;
  30.          dy[i]:= y;
  31.          dx[i]:= x;
  32.      end;
  33. end;
  34.  
  35.  
  36. procedure draweuler;
  37. var i:integer; xc, yc:integer;
  38. begin
  39.      xc:= trunc(dx[1]*m);
  40.      yc:= trunc(dy[1]*m);
  41.      moveto(xc+d, d-yc);
  42.      for i:= 2 to n do begin
  43.          xc:= trunc(dx[i]*m);
  44.          yc:= trunc(dy[i]*m);
  45.          lineto(xc+d, d-yc);
  46.      end;
  47. end;
  48.  
  49.  
  50. procedure drawaxis;
  51. var i,j:integer;
  52. begin
  53.      moveto(trunc(dx[1]*m+d), trunc(d-dy[1]*m));
  54.      lineto(trunc(dx[1]*m+d), 5);
  55.      moveto(trunc(dx[1]*m+d), trunc(d-dy[1]*m));
  56.      lineto(400, trunc(d-dy[1]*m));
  57. end;
  58.  
  59.  
  60.  
  61. begin
  62.  
  63. clrscr;
  64. write('n=');
  65. readln(n);
  66. write('e=');
  67. readln(e);
  68. euler(n,y);
  69. clrscr;
  70. draweuler;
  71. setpencolor(clred);
  72. drawaxis;
  73.  
  74.  
  75.  
  76. end.
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas(2,11) Fatal: Can't find unit graphabc used by lab4
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
stdout
copy 
Standard output is empty
https://ideone.com/cq368M
language:
Pascal (fpc 3.0.4)
created:
9 years 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!