Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
NikitaLitvinkov
-1 / 0 / 0
Регистрация: 11.12.2013
Сообщений: 30
1

Задача в графическом режиме

14.12.2013, 18:06. Просмотров 831. Ответов 2
Метки нет (Все метки)

Треугольник целиком перемещается по экрану нажатием на клавиши Up и Down в соответствующем направлении (одно нажатие — сдвиг на один пиксель на экране).

Очень нужен код, желательно для PascalABC.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2013, 18:06
Ответы с готовыми решениями:

Гистограмма в графическом режиме.
ВВести три числа.Построить по ним гистограмму на языке Pascal.

Движение в графическом режиме
Подскажите, как сделать движение прямоугольника вокруг точки, вводимой пользователем в графическом...

Меню в графическом режиме
Как в графе создать меню по которому можно перемещаться с помощью указательных клавиш.Оно должно...

Ввод числа в графическом режиме
Нужно ввести число, обработать его и вывести в графическом режиме его и результат. Вот задание и...

Ввод данных в графическом режиме
Есть ли какие либо процедуры или функции для организации пользовательского ввода и вывода в...

2
NikitaLitvinkov
-1 / 0 / 0
Регистрация: 11.12.2013
Сообщений: 30
16.12.2013, 19:10  [ТС] 2
Вверх

Добавлено через 14 часов 49 минут
Вверх

Добавлено через 8 часов 58 минут
Вверх
0
Puporev
Модератор
55045 / 42318 / 29224
Регистрация: 18.05.2008
Сообщений: 100,003
16.12.2013, 21:52 3
Лучший ответ Сообщение было отмечено NikitaLitvinkov как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
uses graphABC,crt;
procedure Trg(x,y:integer);
var x1,y1,x2,y2,x3,y3:integer;
    u:real;
begin
u:=pi/2;
x1:=x+round(20*cos(u));
y1:=y-round(20*sin(u));
u:=u+2*pi/3;
x2:=x+round(20*cos(u));
y2:=y-round(20*sin(u));
u:=u+2*pi/3;
x3:=x+round(20*cos(u));
y3:=y-round(20*sin(u));
setpencolor(clBlue);
line(x1,y1,x2,y2);
line(x2,y2,x3,y3);
line(x3,y3,x1,y1);
floodfill(x,y,clBlue);
end;
var x,y,r,d:integer;
    k:char;
begin
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
textout(x-90,0,'Управление клавиши Up-Down');
textout(x-50,20,'   Выход - Esc');
Trg(x,y);
lockdrawing;
repeat
if keypressed then
  begin
    k:=readkey;
    if k=#0 then k:=readkey;
    case k of
    #81:begin //вниз
         clearwindow;
         textout(x-90,0,'Управление клавиши Up-Down');
         textout(x-50,20,'   Выход - Esc');
         if y>windowheight-10 then d:=0
         else d:=1; //1 пиксель, но это очень мало, нормально 10
         y:=y+d;
         Trg(x,y);
         delay(50);
         redraw;
        end;
    #73:begin
         clearwindow ;
         textout(x-90,0,'Управление клавиши Up-Down');
         textout(x-50,20,'   Выход - Esc');
         if y<50 then d:=0
         else d:=1;
         y:=y-d;
         Trg(x,y);
         delay(50);
         redraw
        end;
    #27:exit;
  end;
 end;
until k=#27;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.12.2013, 21:52

Нарисовать узор в графическом режиме
Здравствуйте! Нужно написать программу в графическом режиме, которая выводит изображенный ниже...

вывод результатов в графическом режиме
Всем доброго времени суток! Ребят, у меня задана функция, и в графичском режиме, в виде таблицы мне...

Горизонтальное меню в графическом режиме
Помогите пожалуйста с задачей! помогите с задачей) Решить задачу с помощью рекурсии. Составить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru