Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 12.05.2015, 20:36   #1
Flint_Morgan
Новичок
 
Регистрация: 12.05.2015
Сообщений: 1
Репутация: 10
По умолчанию Помогите решить графическую задачу по информатике на паскале 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 вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


21:33.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru