Delphi

        Delphi (Дельфи) - среда программирования, в основе которой лежит язык Object Pascal, разработанный фирмой Borland и изначально реализованный в ее пакете Delphi, от которого и получил в 2003 году свое нынешнее название.

        По сути, является наследником языка Pascal с объектно-ориентированными расширениями.  Изначально язык был предназначен исключительно для разработки приложений Microsoft Windows, но теперь реализован также платформ Linux и Microsoft.NET. Посредством реализации проекта Free Pascal язык Delphi будет также ориентирован на такие платформы, как Mac OS X и Windows CE.

Пример программы

 Построение графика функции y=sin x

В данном примере используются графические методы языка Delphi (сравните синтаксис с аналогичной программой на языке Visual Basic).

1. На форме размещено графическое поле Image1, в котором будет производиться построение графика.

2. К кнопке Button1 создана событийная процедура построения графика, в которой устанавливается масштаб, в цикле осуществляется построение графика функции, рисуются оси координат и выводятся на них числовые шкалы.

     var X:real; Y:real; N:integer; procedure TForm1.Button1Click(Sender: TObject); begin with Image1.Canvas do begin X := 0; while X<500 Do begin X:=X+0.1 ; Y:=200-100*(Sin(X/20)); Pixels[Round(X),Round(Y)]:=clBlack; end; MoveTo(0,200); LineTo(500,200); //ось X MoveTo(250,0); LineTo(250,500); //ось Y //шкала оси X N:=0; while N<500 do begin N:=N+100; MoveTo (N, 190); LineTo (N,210); TextOut (N,200,IntToStr(Round((N-250)/20))); end; // шкала оси Y N:=0; while N<400 do begin N:=N+100; MoveTo (245, 400 - N); LineTo (255, 400 - N); TextOut(245, 400 - N,IntToStr(Round((N-200)/100))); end; end; end; end.

Результат выполнения программы

Скачать