Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
iCaesar
1 / 1 / 1
Регистрация: 25.10.2011
Сообщений: 42
1

Простая графика.

03.12.2011, 12:28. Просмотров 649. Ответов 2
Метки нет (Все метки)

Кто может помогите, паскаль был, но графику не учили, а тут дали задание по графике:

Простая графика.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.12.2011, 12:28
Ответы с готовыми решениями:

Графика.Цена деления графика.
Нужно доделать сие творение!Не хватает цены деления хотя бы 3 засечки по иксу в право и по игреку в...

Простая задача
Написать программу для вычисления значения у, не используя логические операции(использофать IF)....

Простая математика
Вася в школе изучил квадратные уравнения и понял, как они легко решаются путем вычисления...

простая матрица
как вывести число на экран введённое с клавиатуры в простой матрице

простая и классическая
Читается число N. Дальше читается масив A1..An. На следующей строке читается число M. Далее массив ...

2
iCaesar
1 / 1 / 1
Регистрация: 25.10.2011
Сообщений: 42
03.12.2011, 15:46  [ТС] 2
что никто не может ?
0
Puporev
Модератор
56882 / 43457 / 30044
Регистрация: 18.05.2008
Сообщений: 103,541
03.12.2011, 18:19 3
Лучший ответ Сообщение было отмечено iCaesar как решение

Решение

1.

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
uses graph;
{рисование осей параметры центр и половина длины}
procedure Osi(x,y,d:integer);
begin
setcolor(1);
line(x-d,y,x+d,y);
outtextXY(x+d-10,y-15,'X');
line(x,y-d,x,y+d);
outtextXY(x+5,y-d,'Y');
end;
{рисование фигур, параметры центр, отклонение вершин от центра, коэффициенты
направления и координаты точек закрашивания}
procedure Fig(x,y,w,kx1,ky1,kx2,ky2,kx3,ky3,kx4,ky4,f1,f2:integer);
begin
setcolor(8);
line(x-kx1*w,y-ky1*w,x-kx2*w,y-ky2*w);
line(x-kx2*w,y-ky2*w,x+kx3*w,y+ky3*w);
line(x+kx3*w,y+ky3*w,x+kx4*w,y+ky4*w);
line(x+kx4*w,y+ky4*w,x-kx1*w,y-ky1*w);
setfillstyle(3,8);
floodfill(f1,f2,8);
end;
var x,y,i,d,w:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 4;
y:=getmaxY div 2;
d:=x div 2-10;
w:=d-15;
setbkcolor(15);
{3 фигуры}
Fig(x,y,w,0,0,0,1,1,-1,1,0,x+2,y-2);
Fig(2*x,y,w,0,0,1,0,-1,1,0,1,2*x-2,y+2);
Fig(3*x,y,w,1,0, 0,1, 1,0, 0,1,3*x,y);
{оси к ним}
for i:=1 to 3 do
Osi(x*i,y,d);
readln
end.
Добавлено через 34 минуты
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
uses crt,graph;
type Rect=object
          x1,y1,x2,y2,c:integer;
          procedure Init(xc,yc,w,h,cv:integer);
          procedure Move;
          end;
procedure Rect.Init;
begin
x1:=xc-w;
y1:=yc-h;
x2:=xc+w;
y2:=yc+h;
c:=cv;
end;
procedure Rect.Move;
begin
setcolor(c);
rectangle(x1,y1,x2,y2);
end;
 
var k:Rect;
    x,y,i,h,w,d:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
w:=50;
h:=30;
d:=10;
for i:=1 to 10 do
 begin
  k.init(x,y,(w div 2)+(i-1)*d,(h div 2)+(i-1)*d,i+1);
  k.move;
 end;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.12.2011, 18:19

Простая программа
Здравствуйте ! Помогите создать простейшую программу. вот содержание: Дается натуральное число Н...

Простая графика
Кто может напишите с помощью каких функций в C++ можно начертить линию (из заданной точки экрана в ...

Простая графика
Недавно решил попробовать написать свою собственную игру на c++. С языком знаком хорошо (...


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

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

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