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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.03.2009, 13:58   #1
vakyla
Пользователь
 
Регистрация: 24.03.2009
Сообщений: 40
По умолчанию проблема с оператором for

Проблема в том что график строится по последне значению оператора for,
а я хочу чтоб стоился по промежуточным значениям тоже.
vakyla вне форума Ответить с цитированием
Старый 24.03.2009, 14:03   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ну и код где?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 24.03.2009, 14:03   #3
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Приведите код вашего цикла FOR..DO.
У нас экстрасенсы в отпуске.
mihali4 вне форума Ответить с цитированием
Старый 24.03.2009, 14:07   #4
vakyla
Пользователь
 
Регистрация: 24.03.2009
Сообщений: 40
По умолчанию

Код:
for i:=1 to 10 do
m:=abs((2*v)/i*3,14);
в тчарете строю эти значения м виде вертикальных прямых,но сторится только последнее а промежуточных нет!

Последний раз редактировалось Квэнди; 24.03.2009 в 14:31.
vakyla вне форума Ответить с цитированием
Старый 24.03.2009, 14:10   #5
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

В цикле вы ничего не строите, а,очевидно, надо бы.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 24.03.2009, 14:15   #6
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Засуньте построение в цикл:
Код:
for i:=1 to 10 do
begin
m:=abs((2*v)/i*3,14);
//тут строим очередную прямую
chart1.serieslist[0],addxy(2*i,m);
end;
И не забывайте про обязательное оформление кода тэгом, как я вам только что показал...

Последний раз редактировалось mihali4; 24.03.2009 в 14:19.
mihali4 вне форума Ответить с цитированием
Старый 24.03.2009, 14:17   #7
vakyla
Пользователь
 
Регистрация: 24.03.2009
Сообщений: 40
По умолчанию

Код:
for i:=1 to 10 do
m:=abs((2*v)/i*3,14);
for i:=1 to 10 do
chart1.serieslist[0],addxy(2*i,m);
сторится последнее значение промежуточных нет!

Последний раз редактировалось Квэнди; 24.03.2009 в 14:31.
vakyla вне форума Ответить с цитированием
Старый 24.03.2009, 14:20   #8
Levsha100
Заблокирован
Старожил
 
Регистрация: 20.07.2008
Сообщений: 4,032
По умолчанию

to vakyla
Цитата:
Сообщение от mihali4 Посмотреть сообщение
И не забывайте про обязательное оформление кода тэгом, как я вам только что показал...
Так ложно нажать кнопочку?
******
И еще для добавления сообщений пользуйтесь ПРАВКОЙ
P.S. Вы правила форума читали?

Код:
for i:=1 to 10 do
begin
   m:=abs((2*v)/i*3,14);
   chart1.serieslist[0],addxy(2*i,m);
end;
*************
В Delphi есть константа(Pi), содержащая число Pi.

Последний раз редактировалось Levsha100; 24.03.2009 в 14:25.
Levsha100 вне форума Ответить с цитированием
Старый 24.03.2009, 14:27   #9
vakyla
Пользователь
 
Регистрация: 24.03.2009
Сообщений: 40
По умолчанию

спасибо!
я нашел свою ошибку все получилось!

Последний раз редактировалось vakyla; 24.03.2009 в 14:42.
vakyla вне форума Ответить с цитированием
Старый 24.03.2009, 20:07   #10
Inara
 
Регистрация: 24.03.2009
Сообщений: 5
По умолчанию

Используй while ... do
Напрмер:
Код:
var
 p : real;
begin
  p := 0.1; 
  while p <= 5.0 do begin
    { Твой код }
    p := p + 0.5;
  end;
end.
From Stilet: Во-первых цензурьте слова, во вторых код оформояйте иначе баня

Последний раз редактировалось Stilet; 25.03.2009 в 08:53.
Inara вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проблемы с оператором Length Picaso18 Паскаль, Turbo Pascal, PascalABC.NET 1 21.01.2009 18:40
Помогите пожалуйста с оператором Random IDDQD Помощь студентам 6 13.01.2008 20:37
как оператором insert вставить данные сразу в две таблицы? furstenberg БД в Delphi 2 18.10.2007 16:39
Джентльмены, помогите, пжлст. каким оператором высчитать корень 5-ой степени числа? Osi@ Помощь студентам 32 03.10.2007 19:52