1. Pascal / Говнокод #23945

    +1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    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, 17 Марта 2018

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

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