|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.03.2017, 21:14 | #1 |
Пользователь
Регистрация: 27.09.2016
Сообщений: 66
|
Нужно сделать так, чтобы фигура перемещалась слева на право.
Помогите с кодом. Нужно сделать так чтобы фигура перемещалась слева на право
Код программы вот: Program Primer; Uses graphABC; Var x,y:integer; Begin maximizewindow; setpenwidth(3); line(600,100,250,100); line(600,250,600,100); line(400,250,600,250); line(400,250,400,400); line(250,400,400,400); line(250,400,250,100); FloodFill(253, 153,clBlue); setpenwidth(1); //Вертикальные линии x:=50; repeat line(x,50,x,800); x:=x+50 until x>850; //горизонтальные линии y:=50; repeat line(50,y,850,y); y:=y+50; until y>800; setpenwidth(3); line(50,450,850,450); line(450,50,450,800); TextOut(440,55,'y'); TextOut(840,460,'x'); TextOut(440,460,'0'); TextOut(440,430,'1'); TextOut(455,460,'1'); END. Фигура вот: Последний раз редактировалось Vladislav125; 08.03.2017 в 03:06. |
08.03.2017, 07:41 | #2 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,950
|
Код:
|
10.03.2017, 17:14 | #3 |
Пользователь
Регистрация: 27.09.2016
Сообщений: 66
|
Нужно выявить ошибку в паскале.
Вот код программы: нужно чтобы она перемещалась полностью а не как в программе Program Primer1; Uses graphABC,crt; Var x,y,x2,y2:integer; // procedure primerno(k:integer); Begin setpenwidth(3); line(x2+600,50,y2+250,50); line(x2+600,200,y2+600,50); line(x2+400,200,y2+600,200); line(x2+400,200,y2+400,350); line(x2+250,350,y2+400,350); line(x2+250,50,y2+250,350); FloodFill(x2+253, 153,clBlue); end; // // procedure Primer; Begin; Setfontsize(15); TextOut(440,55,'y'); TextOut(840,460,'x'); TextOut(440,460,'0'); TextOut(440,430,'1'); TextOut(455,460,'1'); // setpenwidth(1); // x:=50; lockdrawing; repeat line(x,50,x,800); x:=x+50; lockdrawing; until x>850; y:=50; lockdrawing; repeat line(50,y,850,y); y:=y+50; until y>800; setpenwidth(3); line(50,450,850,450); line(450,50,450,800); end; // // Begin maximizewindow; x2:=-200; y2:=-200; lockdrawing; Repeat x2:=x2+50; primerno (clBlue); primer; delay (10); redraw; clearwindow; Until x2>200; // lockdrawing; repeat y2:=y2+50; Primerno (clBlue); primer; delay (10); redraw; clearwindow; until y2>200; end. Заранее спасибо Последний раз редактировалось Vladislav125; 10.03.2017 в 18:51. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с кодом! Нужно сделать так чтобы матрица шла против часовой стрелки | Ирина112 | Помощь студентам | 0 | 30.11.2016 19:30 |
нужно сделать так чтобы в Edit1 вводишь Код клиента и после этого в БД остался только этот один клиент | Alexander1997 | БД в Delphi | 9 | 19.06.2015 04:23 |
нужно сделать, чтобы в программе можно вводить какие строки сравнивать, у какой строки определить длину и так далее, по всем задан | Евгения Е | Общие вопросы C/C++ | 0 | 18.12.2014 20:13 |
С++, делала задачу по примеру, нужно сделать так чтобы числа которые выводятся рандомно писались буквами, | anabel123123 | Помощь студентам | 12 | 15.12.2014 10:13 |
Тема:Модуль граф,-нужно чтобы получилась фигура и чтобы она двигалась | Gulnaz379 | Помощь студентам | 6 | 27.10.2012 17:38 |