Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Misha12
2 / 2 / 0
Регистрация: 31.01.2012
Сообщений: 16
1

Нарисовать прицел

01.02.2012, 17:54. Просмотров 1048. Ответов 4
Метки нет (Все метки)

Всем привет,вот я хочу написать программу,когда её запустить,будет такой красный крестик по центру экрана(как прицел) ,возможно ли сделать это в паскале?

Если что вот мой код,но ничего не получается из него

Delphi
1
2
3
4
5
6
7
8
9
10
11
Program pricel;
uses graph;
var grdriver,grmode:integer;
begin
Grdriver:=detect;
Initgraph(grdriver,grmode,'evavga.bgi');
setcolor(4); line(x1,y1,x2,y2);
setcolor(4); line(x1,y1,x2,y2);
readln;
closegraph;
end.
Добавлено через 1 минуту
помогите дописать координаты,чтобы получился крестик параллельный к y и параллельный к иксу

Добавлено через 12 секунд
помогите дописать координаты,чтобы получился крестик параллельный к y и параллельный к иксу
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.02.2012, 17:54
Ответы с готовыми решениями:

Нарисовать флаг, нарисовать график y=ctg x Нарисовать анимацию
Дело таково у меня сейчас практика, где я очень не успиваю сделать все свои...

небо и прицел
Помогите объединить две программы так, чтобы при движении прицела по небу,...

Написать прицел
Доброе время суток.. Нашёл хорошую игру но в ней нету прицела ... Попробовал...

Лазерный прицел
Доброго времени суток! Хочу сделать на пушку лазерный прицел, но не понимаю,...

Снайперский прицел
Как сделать снайперский прицел на Visual Baic 6.0

4
Puporev
Модератор
54992 / 42295 / 29206
Регистрация: 18.05.2008
Сообщений: 99,928
01.02.2012, 17:59 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program pricel;
uses graph;
var grdriver,grmode,xc,yc:integer;
begin
Grdriver:=detect;
Initgraph(grdriver,grmode,'evavga.bgi');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
setcolor(4);
line(xc-20,yc,xc+20,yc);
line(xc,yc-20,xc,yc+20);
readln
end.
1
Gorev
135 / 132 / 30
Регистрация: 08.12.2009
Сообщений: 565
Записей в блоге: 3
01.02.2012, 18:00 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
Program pricel;
uses graph;
var grdriver,grmode:integer;
begin
Grdriver:=detect;
Initgraph(grdriver,grmode,'evavga.bgi');
setcolor(4); line(500,300,510,310);
setcolor(4); line(500,310,510,300);
readln;
closegraph;
end.
P.S. Вы забыли про ввод координат.
1
Misha12
2 / 2 / 0
Регистрация: 31.01.2012
Сообщений: 16
01.02.2012, 19:20  [ТС] 4
кому не трудно,можете скомпилировать это всё в exe файл,а то паскаль глючит у меня
0
Puporev
Модератор
54992 / 42295 / 29206
Регистрация: 18.05.2008
Сообщений: 99,928
01.02.2012, 19:25 5
Скачай другой, у нас.
Скачать Паскаль
0
Вложения
Тип файла: rar 3.rar (11.7 Кб, 7 просмотров)
01.02.2012, 19:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.02.2012, 19:25

Прицел вместо курсора
Имею программу написанную на java, функционально которая похожа на Paint....

Как сделать прицел?
Хочу сделать прицел для игры, накинул на форму png, а саму форму сделал...

Как сделать прицел?
Нужно сделать прицел для 3D шутера что бы всегда был по центру экрана,...


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

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

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