Перевод программы с Паскаля на Питон

@rudolf618 · Регистрация: 01.02.2017

Author24 — интернет-сервис помощи студентам

Pascal

uses crt,graphABC;
var vx,vy: integer;
 
procedure Vzlet(x,k: integer);
var i,y: integer;
begin
y:=500;
for i:=1 to 100 do
    begin
    setbrushcolor(clwhite);
    setpencolor(clwhite);
    circle(x,y,5);
    if i>10 then
       begin
       setbrushcolor(clblack);
       setpencolor(clblack);
       circle(x-(k*10),y+(4*10),5);
       end;
    y:=y-4;
    x:=x+k;
    sleep(10);
    end;
end;
 
procedure Bach (x,y: integer);
var i,j,kx,ky: integer;
begin
for j:=1 to 6 do
    begin
    clearwindow(clblack);
    for i:=1 to 100 do
        begin
        setbrushcolor(rgb(random(255),random(255),random(255)));
        setpencolor(rgb(random(255),random(255),random(255)));
        repeat
        kx:=random(200)-100;
        ky:=random(200)-100;
        until sqr(kx)+sqr(ky)<sqr(100);
        circle(x+kx,y+ky,6-j);
        sleep(1);
        end;
    y:=y+10;
    sleep(50);
    end;
end;
 
begin
hidecursor;
setwindowsize(800,500);
clearwindow(clblack);
repeat
vx:=random(400)+200;
vy:=random(6)-3;
Vzlet(vx,vy);
Bach (vx+(vy*100),random(100)+100);
until keypressed;
end.

@t1m0n · 01.02.2017, 20:35

и в чем у вас проблема?

для работы с gui есть библиотека tk

@t1m0n 637 / 415 / 27 Регистрация: 03.11.2009 Сообщений: 1,855
	01.02.2017, 20:35	2
	и в чем у вас проблема? для работы с gui есть библиотека tk 1