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

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

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

Ответ
 
Опции темы
Старый 18.05.2018, 15:47   #1
Illtry
Пользователь
 
Регистрация: 09.02.2018
Сообщений: 19
Репутация: 10
По умолчанию [Delphi] В архиве программа, которая строит граф. Как убрать веса с ребер?

Здравствуйте. В архиве программа, которая строит граф. Как убрать веса с ребер? Помогите, пожалуйста.
Вложения
Тип файла: rar graph_bild.rar (180.7 Кб, 1 просмотров)
Illtry вне форума   Ответить с цитированием
Старый 18.05.2018, 15:52   #2
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 12,022
Репутация: 2028

icq: 216409213
По умолчанию

Скопипастили код так хоть прочтите или статью посмотрите. Уберите
Код:

if (X[i] > X[j]) then
text_X := X[j] + ((X[i]-X[j]) div 2) — (Length(IntToStr(A[i, j]))*3)
else
text_X := X[i] + ((X[j]-X[i]) div 2) — (Length(IntToStr(A[i, j]))*3);
if (Y[i] > Y[j]) then
text_Y := Y[j] + ((Y[i]-Y[j]) div 2) — 6
else
text_Y := Y[i] + ((Y[j]-Y[i]) div 2) — 6;
Image.Canvas.TextOut(text_X, text_Y, IntToStr(A[i, j]));

__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x на форуме   Ответить с цитированием
Старый 18.05.2018, 22:33   #3
Illtry
Пользователь
 
Регистрация: 09.02.2018
Сообщений: 19
Репутация: 10
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
Скопипастили код так хоть прочтите или статью посмотрите. Уберите
Код:

if (X[i] > X[j]) then
text_X := X[j] + ((X[i]-X[j]) div 2) — (Length(IntToStr(A[i, j]))*3)
else
text_X := X[i] + ((X[j]-X[i]) div 2) — (Length(IntToStr(A[i, j]))*3);
if (Y[i] > Y[j]) then
text_Y := Y[j] + ((Y[i]-Y[j]) div 2) — 6
else
text_Y := Y[i] + ((Y[j]-Y[i]) div 2) — 6;
Image.Canvas.TextOut(text_X, text_Y, IntToStr(A[i, j]));

Спасибо большое)) Я разберусь
Illtry вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Начертите неориентированный связный граф, со-держащий пять вершин и семь ребер.В текстовом файле подготовьте матрицу смежн Nika1997 Общие вопросы Delphi 0 06.03.2015 20:17
Простой неориентированный граф задан списком ребер, выведите его представление в виде матрицы смежности. Pomogi Помощь студентам 1 03.11.2013 17:29
Подвисает программа на Delphi, которая считывает данные с COM-порта(весы), строит график SonicBob Помощь студентам 19 07.09.2011 03:08
Разработать программу, которая строит график Функция y =Cos x. bajge Общие вопросы Delphi 2 16.06.2011 18:55
В МИРЕ ЕСТЬ ПРОГА, КОТОРАЯ СТРОИТ ПО ТОЧКАМ СПЛАЙНЫ В 3D??? Дипломник Общие вопросы Delphi 4 15.04.2010 09:40


17:26.


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

RusProfile.ru


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