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

Постройте графическое изображение с использованием графических примитивов

20.04.2013, 16:27. Просмотров 1044. Ответов 2
Метки нет (Все метки)

Изобразите мигающую мишень и летящую в нее стрелу
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.04.2013, 16:27
Ответы с готовыми решениями:

Использование графических примитивов
Используя графические примитивы,задав параметры пера и кисти нарисовать щенка! Скажите как это...

Построение основных графических примитивов
С помощью процедуры нарисовать узор

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

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

графическое изображение
Составить программу для графического изображения делимости чисел от 1 до N (значение N вводится с...

2
Puporev
Модератор
56566 / 43268 / 29912
Регистрация: 18.05.2008
Сообщений: 102,920
20.04.2013, 17:51 2
Лучший ответ Сообщение было отмечено Хардвадус как решение

Решение

Очень дурацкий вариант, на полнейшее безрыбье...
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
uses graphABC;
procedure mishen(x,y,c:integer);
var i,r1,r2:integer;
begin
setpencolor(c);
r1:=40;
r2:=60;
for i:=1 to 10 do
 begin
  ellipse(x-r1,y-r2,x+r1,y+r2);
  r1:=r1-3;
  r2:=r2-5
 end;
floodfill(x,y,c)
end;
procedure strela(x,y,c:integer);
begin
setpencolor(c);
line(x-44,y,x-40,y-2);
line(x-40,y-2,x-3,y-2);
line(x-3,y-2,x+5,y-5);
line(x+5,y-5,x+8,y-5);
line(x+8,y-5,x+6,y);
line(x+6,y,x+8,y+5);
line(x+8,y+5,x+5,y+5);
line(x+5,y+5,x-3,y+2);
line(x-3,y+2,x-40,y+2);
line(x-40,y+2,x-44,y);
floodfill(x-10,y,clBlack);
end;
var x,y,k:integer;
begin
x:=windowwidth-10;
y:=windowheight div 2;
k:=0;
repeat
clearwindow;
k:=k+1;
if odd(k) then mishen(45,y,clWhite)
else mishen(45,y,clBlack);
strela(x,y,clBlack);
sleep(150);
x:=x-15;
until x<80
end.
1
Хардвадус
0 / 0 / 0
Регистрация: 01.04.2013
Сообщений: 29
20.04.2013, 17:56  [ТС] 3
Спасибо!

Добавлено через 15 секунд
Очень даже ничего
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.04.2013, 17:56

Графическое изображение в движении
изображение кота двигающего усами, глазами и хвостом.

Графическое изображение делимости
помогите пожалуйста через два дня надо показать решения задание№1 написать программу для...

Запрограммировать разработанное ранее графическое изображение
Тема: Программирование разработанного графического изображения. Цель: Научиться использовать...


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

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

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