Пшик
Пшик-пшик
Привет, Гость
  Войти…
Регистрация
  Сообщества
Опросы
Тесты
  Фоторедактор
Интересы
Поиск пользователей
  Дуэли
Аватары
Гороскоп
  Кто, Где, Когда
Игры
В онлайне
  Позитивки
Online game О!
  Случайный дневник
MindMix
Ещё…↓вниз
Отключить дизайн


Зарегистрироваться

Логин:
Пароль:
   

Забыли пароль?


 
yes
Получи свой дневник!

Пшик > Инфа.


Тесты c категорией "Инфа.".

суббота, 7 апреля 2012 г.
ололо Тристин. 08:12:32
Program Graphika10;
Uses crt, Graph;
var i:integer;
Procedure Graphinterface;
Var gd, gm, error:Integer;
s:String;
Begin
gd:=detect;
s:=' ';
Initgraph(gd,gm,s);­
error:=GraphResult;­
if error<>GrOk then
begin
writeln(GraphErrorM­sg(Error));
Halt(error)
end
end;
begin
Graphinterface;
SetLineStyle (3,0,3);
Rectangle (100, 100,400,500);
for i:=0 to 11 do
begin
SetFillStyle (i,3);
bar (500, 100,900,500);
delay(1000);
end;
readln;
closegraph
end.


Категории: Инфа.
комментировать 1 комментарий | Прoкoммeнтировaть
Тристин. 07:49:30
Запись только для зарегистрированных пользователей.
Тристин. 07:44:15
Запись только для зарегистрированных пользователей.
тантантан. Тристин. 07:40:06
Процедура Line - отображает прямую линию между двумя точками, координаты которых заданы в качестве параметров.
Общий вид:

Line(x1,y1,x2,y2);

Процедура LineTo - проводит прямую от текущего положения указателя до точки заданной координатами.
Общий вид:

LineTo(X,Y);
X иY - координаты точки.

Категории: Инфа.
Прoкoммeнтировaть
иу. Тристин. 07:38:40
Процедура MoveRel - перемещает указатель на заданное расстояние, определяемое приращением координат Х и Y, относительно его текущего местоположения.
Общий вид:

MoveRel(Dx,Dy);
Пример, пусть указатель находится в точке (10,44).
...
MoveRel(5,8);(*пере­местит указатель в точку (15,52)*)
...
MoveRel(-10,-2):(*п­ереместит указатель из тоски (15,52) в точку (5,50)*)
...

Категории: Инфа.
Прoкoммeнтировaть
точно. Тристин. 07:37:59
Процедура MoveTo - перемещает указатель текущей позиции в точку с заданными координатами.
Общий вид:

MoveTo(x,y);
x и y - координаты точки на экране, куда будет перемещен указатель.
Пример.
...
MoveTo(10,30);
...

Категории: Инфа.
Прoкoммeнтировaть
Тристин. 07:37:24
Запись только для зарегистрированных пользователей.
о да детка. главное все понимать Тристин. 07:36:00
Процедура SetRGBPalette - изменяет компоненты палитры при использовании драйверов VGA и IBM 8514.
Общий вид:

SetRGBPalette(ColNu­m,RedVal, GreenVal, BlueVal);

ColNum - код цвета из палитры.
RedVal, GreenVal, BlueVal - определяют интенсивность соответственно красной, зеленой и синей составляющей для цвета с номером ColNum. ColNum,RedVal, GreenVal, BlueVal - значения типа Integer.
Для драйвера IBM 8514 ColNum может изменяться в пределах от 0 до 255, для VGA от 0 до 15.
Процедура SetFillStyle - определяет шаблон и цвет заполнения.

Общий вид:

SetFillStyle(Patter­n,Color);
Pattern - шаблон заполнения, Color - цвет заполнения
Шаблоны заполнения:

Константакодзаполне­ние
EmptyFill0
Сплошное заполнение цветом фона(без узора)

SolidFill1
Сплошное заполнение текущим цветом,который устанавливается процедурой SetColor.

LineFill2
LtSlashFill3
SlashFill4
BkSlashFill5
LtBkSlashFill6
HatchFill7
XhatchFill8
InterleaveFill9
WideDotFill10
CloseDotFill11
UserFill12
Шаблон заполнения,определе­нный пользователем.


Категории: Инфа.
Прoкoммeнтировaть
свалим все на майндмикс. Тристин. 07:33:07
Процедура SetBkColor - устанавливает цвет фона из палитры. Устанавливается для всего экрана.
Общий вид:

SetBkColor(Color); Color - Значение типа Word -
новый цвет фона.

SetBkColor(6);

Категории: Инфа.
Прoкoммeнтировaть
Тристин. 07:31:15
Запись только для зарегистрированных пользователей.


Пшик > Инфа.

читай на форуме:
Тест: какой ты будешь в волшебном мире...
Где ты живешь?
пройди тесты:
Ты какая....
читай в дневниках:
Объявление.Нашему сообществу требую...
Привет всем!За картинками и блестяш...
приветик всем...

  Copyright © 2001—2018 MindMix
Авторами текстов, изображений и видео, размещённых на этой странице, являются пользователи сайта.
Задать вопрос.
Написать об ошибке.
Оставить предложения и комментарии.
Помощь в пополнении позитивок.
Сообщить о неприличных изображениях.
Информация для родителей.
Пишите нам на e-mail.
Разместить Рекламу.
If you would like to report an abuse of our service, such as a spam message, please contact us.
Если Вы хотите пожаловаться на содержимое этой страницы, пожалуйста, напишите нам.

↑вверх