Главная › Графика и псевдографика в Паскале

Процедура Line. “Звезды на экране”

ср, 02/09/2011 - 12:54 — tech 

uses
    graph;
 
var
    g, h, i, j, x, y, x2, y2: integer;
 
begin
    g := detect;
    initgraph(g,h,'');
 
    randomize;
    for i := 1 to 12 do begin
        setcolor(random(15));
        x := random(400) + 100;
        y := random(400) + 100;
        for j := 1 to 10 do begin
            x2 := x + random(40)-20;
            y2 := y + random(40)-20;
            line(x,y, x2, y2);
        end;
    end;
 
readln
end.

Программа выводит на экран 12 «звездочек», каждая из которых содержит по 10 линий.

Координаты центральной точки каждой звездочки задаются случайным образом в диапазоне от 100 до 500 (400 + 100) пикселей.

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

Длина линий может быть до 20 пикселей и меньше.

Для вывода линии на экран используется процедура Line.

  • Версия для печати
  • Добавить комментарий

Комментарии

пт, 11/15/2013 - 16:48 — Гость

Для паскаля абс графику

Для паскаля абс графику изучать здесь не стоит, там все совсем по другому и упрощено, в турбо паскале ошибка "graph.tpu" которая легко решается: надо зайти в папку паскаля, затем в папку"units" и достать от туда файл по имени graph.tpu, поместя его в папку где сохраняются все программы, тогда ошибку турбо паскаль выдавать не будет, возможно появится проблема с открытием программы( окно открывается и закрывается, либо совсем не открывается, там связано с командой кнопок) во free paskal графика работает норм, так же как и в турбо паскале найти graph.tpu, перенести в папку с сохраненными программами и он откроется. Но free pascal для решения задач мне ненравится, выдает очень много ошибок, очень непонятная"проблема со связью"

  • ответить
ср, 12/07/2011 - 18:29 — Гость

Модуль graph

Пишет, что "Модуль graph не найден". По-подробней, пожалуйста, - где его взять и куда поставить?..

  • ответить
сб, 04/09/2011 - 19:50 — Гость

Здравствуйте! Когда я набираю

Здравствуйте!Когда я набираю в программе graph; то он выдаёт ошибку. Помогите пожайлуста!!!

  • ответить
вс, 04/10/2011 - 14:29 — tech

Какую именно ошибку?

Какую именно ошибку?

  • ответить
Пнд, 07/11/2011 - 18:51 — Гость

А вот такую...

Error15: File not found TPU>

Как подключить его? Как я понял это библиотека графическая...

  • ответить
Втр, 07/12/2011 - 23:59 — tech

Может быть стоит установить

Может быть стоит установить среду прогаммирования freepascal.
Там модуль graph есть по умолчанию.

  • ответить
чт, 07/14/2011 - 14:23 — Гость

И тут он есть...

модуль, она же графическая библиотека, есть и в Турбо 7.1, файл находится в директории Units, но сам Паскаль найти его не может... вопрос куда его запихнуть что бы он определил его...
Freepascal может компилировать программу в .exe?

  • ответить
чт, 07/14/2011 - 16:57 — plustilino

Для Turbo Pascal 7.1 под

Для Turbo Pascal 7.1 под Windows

  1. Скопируйте файл graph.tpu из каталога units в каталог bin.
  2. Укажите путь к драйверу. Например, так:
    initgraph(g,h,'C:\TP7\BGI');
    Обратите внимание, это путь не к модулю graph, а к совершенно иному компоненту.

Примечания:

  • По умолчанию Turbo Pascal устанавливается в каталог 'Program Files'. При указании пути к драйверу он не находится. Возможно из-за наличия пробелов в адресе. Поэтому пришлось переместить каталог с Turbo Pascal на диск C и переименовать его так, чтобы в пути не было пробелов.
  • В результате удалось запустить графический режим. Однако он имеет низкое разрешение. Для получения лучшего результата возможно требуется указывать конкретный драйвер, а не тот который будет подгружен по умолчанию.

FreePascal

Среда FreePascal почти не отличима от Turbo Pascal и, конечно, включает компилятор (вы сможете создавать exe-файлы). Модуль graph входит в состав среды, и ничего настраивать не требуется. Графический режим имеет высокое разрешение по умолчанию. Программа, написанная выше, тестировалась как раз во FreePascal.

  • ответить
вс, 11/13/2011 - 15:11 — Гость

Скопировал Граф в Бин...

Дальше-то что? Откомпилировало без ошибок, но не показывается на экран. КАК??

  • ответить
пт, 07/15/2011 - 11:13 — Гость

Разобрался...

Спс все сделал и заработало как нужно... Freepascal визувльно ничем не отличается от Борланда, так что пока пробую себя в нем...
Спс за помощь...

  • ответить
Втр, 11/22/2011 - 14:09 — Гость

Как?????

Помогите мне, когда запускаю эту программу, пишет ошибку: UNIT Expected. Я пробовал поставить его рядом, а пишет другую ошибку. Помогите...

  • ответить