Надо перевести с турбопаскаль на ПаскальАBC или на Пайтон. Помгите , программа старая, но очень прикольная. program rabotanomer5;
uses crt,graph;
var fi,alfa:real;
x,y,gd,gm:integer;
vyhod:boolean;
simbol:char;
procedure road;
begin
setcolor(14);
line(400,100,100,400);
line(400,100,320,100);
line(320,100,20,400);
line(100,400,20,400);
setfillstyle(1,140);
floodfill(322,101,14);
readkey;
end;
procedure circ;
begin
x:=100;y:=200;
setcolor(8);
outtextxy(20,450,'click Enter');
setcolor(2);
circle(x,y,50);
readln;
while x<590 do begin
cleardevice;circle(x,y,50);
x:=x+1;
end;
setcolor(8);
outtextxy(20,450,'click Enter');
readkey;
end;
procedure cub;
var a:byte;
x0,y0,a1x,a1y,a2x,a2y,b1x,b1y,b2x,b2y,c1x,c1y,c2x,c2y,d1x,d1y,d2x,d2y:integer;
a1z,a2z,b1z,b2z,c1z,c2z,d1z,d2z:integer;
r1,r2,prsf,prsa,prcf,prca:real;
begin
a:=80;
x0:=320;y0:=240;
r1:=sqrt(2)a;r2:=a;
fi:=0;alfa:=0;
repeat
prsf:=sin(fi);prcf:=cos(fi);
prsa:=sin(alfa);prca:=cos(alfa);
a1x:=round(r1prsfprsa+r2prca)+x0;
a1y:=round(r1prsfprca+r2prsa)+y0;
a1z:=round(r1prcf)+x0;
a2x:=round(r1prsfprsa-r2prca)+x0;
a2y:=round(r1prsfprca-r2prsa)+y0;
a2z:=round(r1prcf)+x0;
b1x:=round(r1prcfprsa+r2prca)+x0;
b1y:=round(r1prcfprca+r2prsa)+y0;
b1z:=round(-prsfr1)+x0;
b2x:=round(r1prcfprsa-r2prca)+x0;
b2y:=round(r1prcfprca-r2prsa)+y0;
b2z:=round(-prsfr1)+x0;
c1x:=round(-r1prsfprsa+r2prca)+x0;
c1y:=round(-r1prsfprca+r2prsa)+y0;
c1z:=round(-r1prcf)+x0;
c2x:=round(-r1prsfprsa-r2prca)+x0;
c2y:=round(-r1prsfprca-r2prsa)+y0;
c2z:=round(-r1prcf)+x0;
d1x:=round(-r1prcfprsa+r2prca)+x0;
d1y:=round(-r1prcfprca+r2prsa)+y0;
d1z:=round(r1prsf)+x0;
d2x:=round(-r1prcfprsa-r2prca)+x0;
d2y:=round(-r1prcfprca-r2prsa)+y0;
d2z:=round(r1*prsf)+x0;
line(a1z,a1y,a2z,a2y);
line(b1z,b1y,b2z,b2y);
line(c1z,c1y,c2z,c2y);
line(d1z,d1y,d2z,d2y);
line(a1z,a1y,b1z,b1y);
line(a2z,a2y,b2z,b2y);
line(d2z,d2y,c2z,c2y);
line(d1z,d1y,c1z,c1y);
line(a1z,a1y,d1z,d1y);
line(b1z,b1y,c1z,c1y);
line(b2z,b2y,c2z,c2y);
line(a2z,a2y,d2z,d2y);

fi:=fi+0.005;alfa:=alfa+0.003;
cleardevice;
until alfa>10;
end;
begin
gd:=detect;
initgraph(gd,gm,'');
vyhod:=false;
repeat
cleardevice;
setcolor(6);
outtextxy(100,100,'1:yellow road');
outtextxy(100,120,'2:green circle');
outtextxy(100,140,'3:my picture');
outtextxy(100,160,'vyberite cifru ot 1 do 3: ');
simbol:=readkey;
cleardevice;
case simbol of
'1':road;
'2':circ;
'3':cub;
else vyhod:=true;
end;
until vyhod;
closegraph;
end.

248

443

Посмотреть ответы 1

Ответы на вопрос:

БомБонУтыЙ

Информатика

4,8(45 оценок)

Var b: array [1..100] of integer; s,i: integer; begin for i: =1 to 100 do begin b[i]: =random(-100,100); if odd(b[i]) then s: =s+b[i]; end; write(s); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.