IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Построение графика любой функции, Создание программы построения графика любой функции в Delphi 7
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Мужской

Репутация: -  0  +


Люди помогите преобразовать программу из Turbo Pascal в Delphi. PLZZZ.
Вот исходный код программы:
Код

Program BFGD;
Uses graph;
Var dg,dm:integer;
Function F(x:real):real;
begin
F:=x;
end;
procedure grafik(a,b:real);
var x,dx,max,min,koef:real;
k,xo,yo:integer;
begin
     dx:=(b-a)/639;
     x:=a;
     max:=f(a); min:=f(a);
for k:=1 to 640 do
     begin
          if f(x)>max then max:=F(x);
          if f(x)<min then min:=f(x);
          x:=x+dx;
     end;
     koef:=479/(max-min);
     x:=a;
     moveto(0,round(479-koef*(f(a)-min)));
     for k:=1 to 639 do
     begin
          x:x+dx;
          lineto(k,round(479-koef*(f(x)-min)));
    end;
    xo:=round(639*a/(a-b));
    line (xo,0,xo,479);
    yo:=round(479-479*(min/(min-max)));
    line(0,yo,639,yo);
end;
Begin
dg:=detect; initgraph(dg,dm,' ');
grafik(-2,2);
readln;
closegraph;
end.


Вот помогите его в Delphi преобразовать!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.09.2020 12:41
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name