Мини-чат

Запрещается мат, реклама в любом её виде, оскорбления. За любое нарушение будет бан или наказание как в чате, так и на форуме.
Загрузка...
Очистить поле ввода
Запрещается мат, флуд, реклама в любом её виде, оскорбления. За любое нарушение будет бан как в чате, так и на форуме.
Основная справка
Чат MGC Chatbox Evo очень легок в использовании
Вы можете:
  1. Отправлять сообщения: введите текст в поле ввода и нажмите Enter, или кнопку OK в чате.
  2. Форматировать сообщения: открыв панель форматирования нажатием кнопки BBCode, вы получаете доступ к различным настройкам форматирования текста ваших сообщений.*
  3. Общаться в разных комнатах: в зависимости от настроек группы пользователей, в которой вы состоите, либо настроек чата вы можете оставлять сообщения в разных комнатах. Выбор комнаты осуществляется нажатием соответствующей кнопки в левой части чата.*
  4. Редактировать свои сообщения (или сообщения других): редактирование осуществляется двойным нажатием на сообщение.*
  5. Использовать команды: команды позволяют пользоваться новыми опциями форматирования, управления и т.д... Информация о доступных вам командах будет расположена ниже. Вы можете не вводить префикс команды (/название_команды) в связанной с ней комнате (исключение составляет основная комната).*
* в зависимости от настроек выбранных администрацией форума для вашей группы.
Показано с 1 по 7 из 7

Тема: Помогите с Pascal очень срочно

  1. #1
    Новичок
    Регистрация
    06.06.2008
    Адрес
    Новодвинск
    Сообщений
    2
    Получено (+/-): 0/0

    По умолчанию Помогите с Pascal очень срочно

    Последний раз имел дело с Паскалем 5 лет назад, на данный момент в голове пусто. Как назло у жены сессия и проблемы с Паскалем. Имеется две программы которые требуют небольшой доработки и описания. Если имеются люди свободно владеющие данным вопросом прошу отозваться, сессия горит!!!!!!!!!!!!!!! Заранее благодарен!!!!!!!!!!

    0 Not allowed! Not allowed!

  2. # ADS
    ООО "Рекламная реклама"
    Регистрация
    Always
    Адрес
    Advertising world
    Сообщений
    Many
     

  3. #2
    Главный вредитель
    Регистрация
    10.02.2008
    Адрес
    Северная 12
    Сообщений
    853
    Получено (+/-): 5/0

    По умолчанию

    Выкладывайте задания и наработки все вместе может что решим.

    0 Not allowed! Not allowed!

  4. #3
    KENNY
    Регистрация
    19.04.2008
    Адрес
    Северодвинск
    Сообщений
    698
    Получено (+/-): 2/0

    По умолчанию По теме...

    Советую попросить помощи вот на этом форуме _http://www.sexnarod.ru/index.php?showforum=502 это не реклама а просто вариант помощи, там уже с этим помогали...

    0 Not allowed! Not allowed!
    Последний раз редактировалось Admin; 06.06.2008 в 09:36.
    I'm not here for your entertainment
    You don't really want to mess with me tonight
    Just stop and take a second
    I was fine before you walked into my life

  5. #4
    Главный вредитель
    Регистрация
    10.02.2008
    Адрес
    Северная 12
    Сообщений
    853
    Получено (+/-): 5/0

    По умолчанию

    или на _http://programmersforum.ru/

    0 Not allowed! Not allowed!

  6. #5
    Новичок
    Регистрация
    06.06.2008
    Адрес
    Новодвинск
    Сообщений
    2
    Получено (+/-): 0/0

    По умолчанию

    В данной программе имеется кристал, необходимо чтобы он вращался по своей горизонтальной оси. Вращение требуют выполнить в процедуре.

    program Kristall;
    uses
    Graph, crt;
    var
    x,y,R,i: integer;
    Procedyre kris (x:integer; y:integer; R:integer; i: integer);
    begin
    Circle (x,y,R);
    line;
    line(469,238,320,464);
    line(320,4604,170,238);
    line(170,238,320,15);
    line(320,15,320,464);
    line(320,15,400,260);
    line(400,260,469,238);
    line(400,260,320,464);
    line(239,260,320,15);
    line(170,238,239,260);
    line(239,260,320,464);
    line(400,260,320,270);
    line(320,270,239,260);
    repeat
    for x := 0 to 3 do
    for y := 0 to 1 do
    begin
    setfillstyle(1,random(15));
    {setfillstyle(1,random(2)*8+x*2+y);}
    floodfill(240+65*x,240+40*y,15);
    end;
    until keypressed;
    readln;
    Closegraph;
    end.

    0 Not allowed! Not allowed!

  7. #6
    KENNY
    Регистрация
    19.04.2008
    Адрес
    Северодвинск
    Сообщений
    698
    Получено (+/-): 2/0

    По умолчанию

    notacat
    Я тебе серьезно говорю, лучше ты ещё там по ссылкам которые дали напиши, ибо не факт что здесь ответят быстро...Яб помог но сам в таких задачах профан...Я только по html...

    0 Not allowed! Not allowed!
    I'm not here for your entertainment
    You don't really want to mess with me tonight
    Just stop and take a second
    I was fine before you walked into my life

  8. #7

    По умолчанию

    Это ты только часть кода выложил? процедура начата и незакончена... как кристал будет вращаться если линии очерчивают его по статическим координатам не зависящим от переменных? От переменных у тебя зависит только цвет заивки

    Помог бы даже, но где счас "Турбо Паскаль" взять не представляю

    0 Not allowed! Not allowed!

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  
Внести пожертвование на развитие!