Школоло / Говнокод #23945 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
program bio;
uses crt, graphABC;
const y1=200; r1=20;
var
x2,x3,r:real;

procedure del (x1,x11:integer);
begin
circle (x1,y1,r1); 
sleep(1000); 
ClearWindow();
r:=r1/2;
x2:=x1-(r);
circle (Trunc(x2),y1,Trunc(r));
x3:=x11+(r);
circle (Trunc(x3),y1,Trunc(r));
sleep(1000); 
r:=r*2;
x2:=x1-(r);
circle (Trunc(x2),y1,Trunc(r));
x3:=x11+(r);
circle (Trunc(x3),y1,Trunc(r));
del(Trunc(x2),Trunc(x3));
end;


begin
SetWindowSize(600,400);
setBrushColor(clGreen);
del(300,300);
end.

Симулятор деления клеток на паскале, который не работает.

Запостил: SewerSurfer SewerSurfer, (Updated )

Комментарии (2) RSS

  • ava Steve_Brown # Ссылка на оригинал 0

    writeln("O");
    sleep(2000); clrscr;
    writeln("0");
    sleep(1000); clrscr;
    writeln("8");
    sleep(1000); clrscr;
    writeln("o"); writeln("o");
    Ответить

Добавить комментарий

Где здесь C++, guest?!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓