!HELP! 2 графика по данным из файлов !HELP!, мозг кипит...помогите Опции

[Zopaa]

program gjhg;
uses graph;
const n=100;
      h=10;
      g=9.8;
      m=4;
      l=15;
      v=10;
      p=1000;
      c=2;
      k=3;
var driver,mode,i,,j:integer;
var tm,fi0,fi1,w1,w0,t,dt:real;
f,e:text;
begin
dt:=0.00001;
tm:=20;
fi0:=pi/6;
w0:=0;
assign(f,'dta');
rewrite(f);
assign(e,'atd');
rewrite(e);
while t<tm do
begin
if sin(fi0)<=(h/l) then
           begin
           w1:=w0+(dt/sqr(l)/m)*(-c*fi0-m*g*sin(fi0)*l);
           fi1:=fi0+w0*dt;
           fi0:=fi1;
           w0:=w1;
           t:=t+dt;
           end
           else begin
                w1:=w0+(dt/m/sqr(l))*(-c*fi0-m*g*sin(fi0)*l-k*w0*sqr(l));
                fi1:=fi0+w0*dt;
                fi0:=fi1;
                w0:=w1;
                t:=t+dt;
                end;
                j:=j+1;
                if j mod 1000=0 then
                  begin
                     writeln(e,t,fi1);
                     writeln(f,t,w1);
                     j:=0;
                 end;
end;
close(f);
close(e);
end.
 

далее нужно строить график, помогите разобраться...если можно то прям щас

Сообщение отредактировано: Zopaa - 29.05.2009 15:51

[Krjuger]

Вообще главная задача программы,чтобы работала,насчет красиво,тогда поясни,что в твоем понимании красиво.Цифры как раз те по которым стоится.

Максимальный номер цвета, воспринимаемый адаптером в текущем графическом режиме, может быть получен при помощи функции GetMaxColor : Word
На экране всегда различаются цвет фона и цвет пера. Все процедуры изображения фигур, если не содержат в себе явной установки цвета, рисуют эти фигуры цветом пера, который устанавливается процедурой SetColor(Color : Word).
Константа Число Цвет
Black 0 Черный
Blue 1 Синий
Green 2 Зеленый
Cyan 3 Голубой
Red 4 Красный
Magenta 5 Фиолетовый
Brown 6 Коричневый
LightGray 7 Ярко-серый
DarkGray 8 Темно-серый
LightBlue 9 Ярко-синий
LightGreen 10 Ярко-зеленый
LightCyan 11 Ярко-голубой
LightRed 12 Ярко-красный
LightMagena 13 Ярко-фиолетовый
Yellow 14 Желтый
White 15 Белый
Захочеш фон поменять.SetBkColor( Color :Word)

Какой второй график?Ты как раз и строиш второй график.Лап скрин привел даже с результатом,или тебе надо время от скорости?,а вообще я бы посовеловал создать процедуру начертания графиков и дальше в зависимости от параметров строить,в твоем слушае, как параменты, поменяются файлы и значения осей.

Сообщение отредактировано: Krjuger - 30.05.2009 16:37