Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.05.2015, 19:36   #1
Flint_Morgan
Новичок
Джуниор
 
Регистрация: 12.05.2015
Сообщений: 1
По умолчанию Помогите решить графическую задачу по информатике на паскале abc. И если можно объяснить.

Суть такова. Нужно сделать так, сначала вводишь число и программа строит фигуру с этим количеством вершин (допустим ввел число 5 и построилась фигура в которой пять вершин и все соединены друг с другом). Каждая вершина должна находиться в круге, а внутри круга номер вершины (от 1 до числа которое ты задал). А так же в программе нужно ввести еще два числа (не превышающие кол-во вершин) и в фигуре отрезок который находится между этими двумя вершинами должен выделиться особым цветом. Пока есть такой вариант.
вот код:
Код:
uses graphabc;
var
graph:array[1..2,1..10000] of integer;
i,j,x,y,n:integer;
begin
readln(n);
for i:=1 to n do begin
graph[1,i]:=random(600);
graph[2,i]:=random(400);
circle(graph[1,i],graph[2,i],10);
end;
for i:=1 to n do
for j:=1 to n do 
begin
moveto(graph[1,i],graph[2,i]);
lineto(graph[1,j],graph[2,j]);
end;
for i:=1 to n do
begin
textout(graph[1,i],graph[2,i], ' ');
end;
end.
Flint_Morgan вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно решить задачу в паскале ABC в трех циклах Denis866 Паскаль, Turbo Pascal, PascalABC.NET 0 18.12.2011 12:04
помогите решить задачи на паскале, если можно с полным решением вадимкО Помощь студентам 4 13.12.2009 13:04
Помогите, умоляю, решить задачу по информатике в SciLab Elfinho555555 Помощь студентам 1 15.05.2009 20:11
Завтра зачет по информатике..,помогите решить задачу на поскале. Ivan357 Помощь студентам 6 18.12.2008 10:55