Другие языки программирования и технологии

нарисовать лестницу в паскале элементарную! нарисовать лестницу в паскале элементарную!

BR
Bagiev Rashid
387
program a3;
uses graphabc,crt;
var
x,x1,x2,x3,x4,x5,x6,x7,x8,y,y2,y1,y3,y4,y5,y6,y7,y8,r,i:integer;
begin
x:=0;
x1:=90;
x2:=90;
x3:=90;
x4:=45;
y:=60;
y1:=60;
y2:=60;
y3:=120;
y4:=40;
r:=20;
setbrushcolor(clgreen);
for i:=1 to 5 do
begin
circle(x4,y4,r);
line(x,y,x1,y1);
line(x2,y2,x3,y3);
x:=x+90;
x1:=x1+90;
x2:=x2+90;
x3:=x3+90;
y:=y+60;
y1:=y1+60;
y2:=y2+60;
y3:=y3+60;
end;

for i:=1 to 40 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4-1;
end;
for i:=1 to 50 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4+2;
end;
for i:=1 to 40 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4-1;
end;
for i:=1 to 50 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4+2;
end;
for i:=1 to 40 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4-1;
end;
for i:=1 to 50 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4+2;
end;
for i:=1 to 40 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4-1;
end;
for i:=1 to 50 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4+2;
end;
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
end.
АР
Андрей Рожко
95 951
Лучший ответ
А. Т Не вздумай платить «Зотикову» - который тебе ответил: https://otvet.mail.ru/profile/id14126244/ - ВОТ ЕГО ПОЧТА: ggzot@mail.ru или 19.40@mail.ru который тебе ответил, будет у тебя деньги выпрашивать за решения– кидает тут всех тупо на бабки! Сидит на даче безработный старпёр беззубый С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга кинул на 320 руб – денег не вернул!!! У этого мошенника Зотикова – есть еще страницы http://otvet.mail.ru/profile/id85810161/answers/all/ и https://otvet.mail.ru/profile/id233013994/answers/all/ - ИХ УЖЕ ЗАБЛОКИРОВАЛИ ЗА МОШЕННИЧЕСТВО - он с трёх страниц кидает одновременно!!! Имя сменил только.
есть лестница со ступенями, есть с перекладинами.
в обоих случаях достаточно начертить вертикальные и горизонтальные линии.

в чём сложность?
Игорь Черкасов
Игорь Черкасов
44 389
PROGRAM q198044475;
BEGIN

WriteLn('| |');
WriteLn('| |');
WriteLn('| |');
WriteLn('|----|');
WriteLn('| |');
WriteLn('| |');
WriteLn('| |');
WriteLn('|----|');
WriteLn('| |');
WriteLn('| |');
WriteLn('| |');

END.
MT
Munisjon Tadjiev
24 825
Bagiev Rashid Бл че это
Андрей Рожко переделай немного эту программу
program a3;
uses graphabc,crt;
var
x,x1,x2,x3,x4,x5,x6,x7,x8,y,y2,y1,y3,y4,y5,y6,y7,y8,r,i:integer;
begin
x:=0;
x1:=90;
x2:=90;
x3:=90;
x4:=45;
y:=60;
y1:=60;
y2:=60;
y3:=120;
y4:=40;
r:=20;
setbrushcolor(clgreen);
for i:=1 to 5 do
begin
circle(x4,y4,r);
line(x,y,x1,y1);
line(x2,y2,x3,y3);
x:=x+90;
x1:=x1+90;
x2:=x2+90;
x3:=x3+90;
y:=y+60;
y1:=y1+60;
y2:=y2+60;
y3:=y3+60;
end;

for i:=1 to 40 do
begin
setpencolor(clblack);
setbrushcolor(clgreen);
circle(x4,y4,r);
delay(10);
setpencolor(clwhite);
setbrushcolor(clwhite);
circle(x4,y4,r);
x4:=x4+1;
y4:=y4-1;
end;
for i:=1 to 50 do
begin
все не поместилось, пришл

Похожие вопросы