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


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

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

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


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

Пшик > ололо  7 апреля 2012 г. 08:12:32


ололо

Тристин. 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.


Категории: Инфа.
Прoкoммeнтировaть
Обратите внимание на:
Program factorial;uses crt;var n,f,... 12 декабря 2011 г. Dafna Audron
error #8 29 декабря 2009 г. stue. just live.
error #4 27 декабря 2009 г. stue. just live.
Тристин. 30 января 2013 г. 11:51:36 постоянная ссылка ]
не буду даже углубляться.
спасибо, конечно. но если мне будет нужно, я найду где проверить.
Прoкoммeнтировaть
 

Дoбавить нoвый кoммeнтарий

Как:

Пожалуйста, относитесь к собеседникам уважительно, не используйте нецензурные слова, не злоупотребляйте заглавными буквами, не публикуйте рекламу и объявления о купле/продаже, а также материалы, нарушающие сетевой этикет или законы РФ. Ваш ip-адрес записывается.


Пшик > ололо  7 апреля 2012 г. 08:12:32

читай на форуме:
пройди тесты:
ты в мире наруто 27
"Кто сказал,что Неки добрые"
читай в дневниках:
Выкладывайте картинки с кексом и...
Блич рулит!
ВсЕм ПрИв!Немного обо мне:Цумуги К...

  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.
Если Вы хотите пожаловаться на содержимое этой страницы, пожалуйста, напишите нам.

↑вверх