Напишите в турбо паскале движение объекта, квадрата пожалуйста! не очень сложно
Напишите в турбо паскале движение объекта, квадрата пожалуйста! не очень сложно для класса 6-8
Задать свой вопрос1 ответ
Полина Зюбина
Uses crt,graphABC;
var
x,y: integer;
procedure Go(n,m: integer);
begin
clearwindow;
setpenwidth(4);
setbrushcolor(clyellow);
rectangle(150,150,550,350);
setpenwidth(2);
setbrushcolor(clgreen);
rectangle(x-50,y-50,x+50,y+50);
x:=x+n;
y:=y+m;
sleep(1);
redraw;
end;
beginlockdrawing;
setwindowsize(700,500);
hidecursor;
repeat x:=150;
y:=150;
while xlt;=550 do Go (1,0);
while ylt;=350 do Go (0,1);
while xgt;=150 do Go (-1,0);
while ygt;=150 do Go (0,-1);
until keypressed;
end.
Так сойдет? :)
var
x,y: integer;
procedure Go(n,m: integer);
begin
clearwindow;
setpenwidth(4);
setbrushcolor(clyellow);
rectangle(150,150,550,350);
setpenwidth(2);
setbrushcolor(clgreen);
rectangle(x-50,y-50,x+50,y+50);
x:=x+n;
y:=y+m;
sleep(1);
redraw;
end;
beginlockdrawing;
setwindowsize(700,500);
hidecursor;
repeat x:=150;
y:=150;
while xlt;=550 do Go (1,0);
while ylt;=350 do Go (0,1);
while xgt;=150 do Go (-1,0);
while ygt;=150 do Go (0,-1);
until keypressed;
end.
Так сойдет? :)
Оленька Кутивашвили
На данный момент взгляну :)
Света Мафесидова
var x,y: integer;procedure Go(n,m: integer);beginclearwindow;setpenwidth(4);setpenwidth(2);setbrushcolor(clgreen);rectangle(x-50,y-50,x+50,y+50);x:=x+n;y:=y+m;sleep(1);redraw;end; beginlockdrawing;setwindowsize(700,500);hidecursor;repeat x:=150;y:=150;while x<=550 do Go (1,0);while y<=350 do Go (0,1);while x>=150 do Go (-1,0);while y>=150 do Go (0,-1);until keypressed;end.Вот так к примеру воспитанник твоего уровня сделает)
Ева
Можешь сказать, что немного попросил подмоги :3
Leha Karobach
Это разрешается :)
Эльвира Осовец
Мы же не Энштейны
Лементуева
Василиса
Да не за что :3
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов