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

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

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

Изобразите мигающую мишень и летящую в нее стрелу
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.04.2013, 16:27
Ответы с готовыми решениями:

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

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

Изображение или анимация из графических примитивов
Может у кого завалялось любое изображение(домики, флажки, машинки, что угодно) или анимация из...

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

2
Модератор
60278 / 45383 / 31318
Регистрация: 18.05.2008
Сообщений: 109,018
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.04.2013, 17:56

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Рисование графических примитивов
Приложение, которое читает данные из файла о координатах и размерах различных графических...

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

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

Построение графических примитивов
Ребята помогите пожалуйста нужно две программы вообщем задание такое :1) Построение графичнных...


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

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

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