Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на языке Pascal

Выпуск № 307
от 03.07.2004, 17:20

Администратор:
Имя: Sensey
URL: Информационный ресурс
ICQ: 105679124
Украина, Харьков
О рассылке:
Задано вопросов: 501
Отправлено ответов: 1879
Активность: 375.0 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Tancho
Статус: Профессиональный
Общий рейтинг: 144.97
Телефон: сл. 0359 0391 65 631; 0359 0391 53 105
[Подробней >>]
КиберТварь
Статус: Начальный
Общий рейтинг: 157.14
[Подробней >>]
Strory
Статус: Опытный
Общий рейтинг: 155.37
URL: МУАТ
[Подробней >>]
 
Student
Статус: Начальный
Общий рейтинг: 150
[Подробней >>]
Александр Шлыков
Статус: Опытный
Общий рейтинг: 153.6
URL: Программный комплекс "Абонент +"
[Подробней >>]
sir henry
Статус: Профессиональный
Общий рейтинг: 164.71
[Подробней >>]
 
vova#
Статус: Начальный
Общий рейтинг: 166.66
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 501. Здравствуйте уважаемые эксперты, Пожалуйста, напишите мне пример рисования одной точки на графическо... (ответов: 7)

Вопросов: 1, ответов: 7


 Вопрос № 501

Здравствуйте уважаемые эксперты,
Пожалуйста, напишите мне пример рисования одной точки на графическом экране,
используя процедуры модуля GRAPH.TPU(Borland Pascal for MS-DOS)...
Заранее благодарю...




Вопрос отправлен: 30.06.2004, 17:10
Отправитель: Serega

[Следующий вопрос >>] [Список вопросов]

Отвечает Tancho

Доброе время суток, Serega!
Смотри Приложение!

Приложение:

Ответ отправлен: 01.07.2004, 18:14
Отправитель: Tancho


Отвечает КиберТварь

Приветствую Вас, Serega!
procedure PutPixel();

Ответ отправлен: 01.07.2004, 10:58
Отправитель: КиберТварь


Отвечает Strory

Здравствуйте, Serega!
Запускаешь Pascal, нажимаешь Shift-F1, находишь "PutPixel", открываешь страничку с описанием и снизу - о чудо! - example...

Ответ отправлен: 30.06.2004, 21:58
Отправитель: Strory


Отвечает Student

Добрый день, Serega!
Пример рисования точки в приложении.
С ув. Student.
P.S. в процедуре InitGraph должен быть указан правильный путь к драйверам дисплея ( в примере 'c:pgi').
Удачи.


Приложение:

Ответ отправлен: 30.06.2004, 23:17
Отправитель: Student


Отвечает Александр Шлыков

Доброе время суток, Serega! Стандартный пример. Выводит случайным образом точки на экран с задержкой в 10 мс до нажатий любой клавиши на клавиатуре. Соответсвенно просто точка выводится процедурой PutPixel с параметрами (ее координаты по х и по у , и цвет)
uses Crt, Graph;
var
Gd, Gm: Integer;
Color: Word;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then
Halt(1);
Color := GetMaxColor;
Randomize;
repeat
PutPixel(Random(100), Random(100), Color); Delay(10);
until KeyPressed;
Readln;
CloseGraph;
end.


Ответ отправлен: 30.06.2004, 23:18
Отправитель: Александр Шлыков


Отвечает sir henry

Добрый день, Serega!
Пожалуйста:
Uses Graph;
var
md, dr: integer;
PathToBGI: string;
Begin
dr:=detect;
{В переменную PathToBGI заносите путь, где у Вас лежит гр драйвера}
initgraph(dr,md,PathToBGI);
{Точка с координатами 100, 100 и белым цветом}
PutPixel(100, 100, White);
End.

Ответ отправлен: 01.07.2004, 05:07
Отправитель: sir henry


Отвечает vova#

Приветствую Вас, Serega!
Line (x1,y1,x2,y2:integer) - рисует линию из (x1,y1) к (x2,y2);
PutPixel (a,b,S:integer) - рисует точку с цветом S и координатами (a,b)...
Но это то, что каcается твоего вопроса... Рисуется же это так (смотри приложение)

Приложение:

Ответ отправлен: 02.07.2004, 00:06
Отправитель: vova#



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (25)
C / C++ (14)
Perl (3)
Builder / Delphi (20)
Pascal (28)
Basic / VBA (6)
Java / JavaScript (4)
PHP (13)
Криптография (8)
WinAPI (12)
Радиоэлектроника (13)
Пользователю
Windows 95/98/Me (37)
Windows NT/2000/XP (53)
"Железо" (37)
Поиск информации (16)
Администратору
Windows NT/2000/XP (30)
Linux / Unix (14)
Юристу
Гражданское право (10)
Семейное право (8)
Трудовое право (9)
КоАП (7)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.


Яндекс цитирования
© 2001-2004 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться

В избранное