fork download
copy 
  1. program Cantor1;
  2. uses CRT, Graph;
  3. const min = 1;
  4. var gd, gm : Integer;
  5.  
  6. procedure Draw(x, y : Real; Size : Real);
  7. var s : Real;
  8. begin
  9. if size > min then 
  10. begin
  11. s := size / 3;
  12. Draw(x, y + 20, s);
  13. Draw(x + s * 2, y + 20, s);
  14. end;
  15. Bar(Round(x), Round(y), Round(x + size), Round(y + 5));
  16. end;
  17. begin
  18. gd := Detect;
  19. InitGraph(gd,gm,'');
  20. Draw(10,30,500);
  21. ReadKey;
  22. CloseGraph;
  23. end.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.pas:2: error: module/unit interface `CRT' could not be imported
stdout
copy 
Standard output is empty
https://ideone.com/6dtrWT
language:
Pascal (gpc 20070904)
created:
6 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!