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

Купить рекламу на форуме 15-35 тыс рублей в месяц

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 05.04.2011, 02:21   #1
~Леди~
 
Регистрация: 27.03.2011
Сообщений: 7
Вопрос Обьясните, что делает это программа???

Помогите!!! обясните, пожалуйсто что выполняе эта программа...
Я понимаю, что стороит график... но там очень много условий...
Есои можете от напишите просто словами что делает это программа...
по сути она должна строить прямоугольный график... только мне нужно написать на другом языке... а я не пойму что решается в этой задаче...

(если не трудно то обьясните максимально доступно ... например так: т.е. если такое условие... то выполняет эту формулу если другон то другую... я хочу понять эту задачу...)

Код:
implementation
 var t,p,a,tn,tk:real;
    e,k:integer;
    h,sw:array [0..1000] of real;

  procedure graphic;
label 10;
var yy,tt,s,dt,ttt:real;
    i:integer;
begin
tt:=tn;
dt:=t/30;
Form1.Chart1.Series[0].Clear;
Form1.Chart1.Series[1].Clear;
Form1.Chart1.Series[2].Clear;
Form1.Chart1.Series[3].Clear;
Form1.Chart2.Series[0].Clear;
Form1.Chart2.Series[1].Clear;
Form1.Chart2.Series[2].Clear;
Form1.Chart3.Series[0].Clear;
while tt<tk do
begin
s:=0;
for i:=0 to k do
begin
if i>0 then h[i]:=2*a*sin(i*pi*t/p)/(i*pi)
else
begin
h[i]:=a*t/p;
goto 10;
end;
s:=s+h[i]*cos(2*i*pi*tt/p);
10: Form1.Chart1.Series[2].AddXY(i/p,abs(h[i]),' ',Clblack);
Form1.Chart1.Series[1].AddXY(i/p,abs(h[i]),' ',Clblack);
if i=0 then sw[i]:=h[i]*2
else
sw[i]:=2*a*sin(i*pi*t/p)/(i*pi);
end;
Form1.Chart2.Series[0].AddXY(tt,s+a*t/(p),' ',Clred);
Form1.Chart2.Series[1].AddXY(tt,h[1]*cos(2*pi*tt/p),' ',Clred);
Form1.Chart2.Series[2].AddXY(tt,h[3]*cos(3*2*pi*tt/p),' ',Clred);
tt:=tt+dt;
end;
for i:=0 to k do
  begin
    ttt:=i*p;
    while ttt<(i+1)*p do
      begin
        if ((ttt>=i*p) and (ttt<=i*p+t)) then
             yy:=a
           else yy:=0;
         Form1.Chart3.Series[0].AddXY(ttt-t/2,yy,' ',clblue);
         ttt:=ttt+dt;
       end;
   end;
end;
end;
Заранее спасибо!!!

Буду рада любой помощи =)))




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 05.04.2011 в 08:34.
~Леди~ вне форума
Старый 05.04.2011, 02:41   #2
Sparkman
220400
Форумчанин
 
Аватар для Sparkman
 
Регистрация: 21.05.2010
Сообщений: 726
По умолчанию

У меня она ничего не делает, так как обработчик не заходит в цикл
Вы бы хоть сказали, что в глобальных переменных находится.
Cерьёзной помощи не ждите - помогаю в перерывах на "перекур".
Не существует ничего невозможного для человека, который не собирается ничего делать сам.
Не учите человека, если вы не его учитель.
Sparkman вне форума
Старый 05.04.2011, 10:47   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,803
По умолчанию

Кросспост наказуем!
I'm learning to live...
Stilet вне форума
Закрытая тема
Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Что делает программа (забыл) С\С++ Айдар Помощь студентам 6 27.06.2010 12:39
Как работает программа и что делает dragun4ik Помощь студентам 0 23.05.2010 15:51
Печать. Что делает MS и не делает Delphi Влад12 Общие вопросы Delphi 8 05.05.2010 20:04
что делает эта программа и где ошибка? дангер Паскаль, Turbo Pascal, PascalABC.NET 27 28.01.2008 13:38