Построение графика. 
Программирование: delphi

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

Описание плана разработки программы

• 1. Откройте новый проект.
• 2. Разместите на форме экземпляры компонентов: кнопка Button, область рисования PaintBox.
• 3. Выполните действия, перечисленные в табл. 46.
• 4. Сохраните проект, запустите и протестируйте его.

Таблица 46

Рис. 87. Построение графика

Листинг программы

procedure TForml. ButtonlClick (Sender: TObject); function f (x: integer): integer; var

c: integer; begin

c := round (10 * sin (0.1 * x)); f := c; end;

var

x: integer; begin

PaintBoxl.Canvas.LineTo (0j 150);

PaintBoxl.Canvas. 1ЛпеТо (410, 150); x: = 0;

for x := 0 to 350 do begin

PaintBoxl.Canvas.LineTo (Xj f (x) + 150); end; end;

procedure TForml. Button2Click (Sender: TObject); begin Close; end;

end.

Графическое изображение перевода температуры

Цель работы — создать программу, которая переводит значение температуры по Цельсию в значения температуры по Фаренгейту. Введите графический объект изображения значения температуры.

• 1. Поместите на форму два поля ввода Edit и четыре кнопки.
• 2. Введите число в левое поле. По нажатию на кнопку «по Фаренгейту» в правом поле выводится преобразованное число. По нажатию кнопки «Очистить» очищаются поля ввода.
• 3. Ограничьте вводимые температуры диапазоном от О °С до 100 °C (если введено значение, превышающее 100 °C или 212 °F, то при нажатии кнопки в полях ввода должно отобразиться 100 и 212 соответственно).

Рис. 88. Окно разработанной программы до ввода данных

Рис. 89. Окно разработанной программы после ввода данных

• 4. Отобразите столбик термометра графически. Добавьте компоненты Image.
• 5. Сделайте видимой только ту кнопку, которая необходима для преобразования.

Листинг программы

unit Unitl;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

type

Forml = class (TForm).

Editl: TEdit;

Edit2: TEdit;

Buttonl: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Imagel: TImage;

Image2: TImage;

Labell: TLabel;

Label2: TLabel;

procedure FormCreate (Sender: TObject); procedure Button2Click (Sender: TObject); procedure ButtonlClick (Sender: TObject); procedure Button3Click (Sender: TObject); procedure Button4Click (Sender: TObject); private

{ Private decLarations } public

{ Public declarations } end;

var

Forml: TForml; implementation

{$R *.dfm}.

procedure TForml. FormCreate (Sender: TObject); begin

Editl.Text := «;

Edit2.Text := '';

Imagel.Canvas.Pen.Color := clRed;

Imagel.Canvas.Brush.Color := clWhite;

Imagel.Canvas.Rectangle (10, 1, 23, 360);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

Image2.Canvas.Rectangle (10, 1, 23, 360); end;

procedure TForml. Button2Click (Sender: TObject); var

a, b, c: real;

begin

a := StrToFloat (Editl.Text); if (a > 0) or (a < 100) then b := 1.8 * a + 32; и a > 100 then b := 212; if a < 0 then b := 32;

Edit2.Text := FloatToStr (b);

Imagel.Canvas.Pen.Color := clRed;

Imagel.Canvas.Brush.Color := clWhite;

Imagel.Canvas.Rectangle (10, 1, 23, 360);

Imagel.Canvas.Pen.Color := clRed;

Imagel.Canvas.Brush.Color := clRed;

Imagel.Canvas.Rectangle (10, round (360 — a), 23, 360); Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

Image2.Canvas.Rectangle (10, 1, 23, 360);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clBlue;

Image2.Canvas.Rectangle (10, round (360 — b), 23, 360); end;

procedure TForml. ButtonlClick (Sender: TObject); var

a, c, d: real; begin

c := StrToFloat (Edit2.Text); if (c > 32) or (c < 212) then d := (c — 32) / 1.8; if c < 32 then d := 0;

if c > 212 then

d := 100;

Editl.Text := FloatToStr (d);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

Image2.Canvas.Rectangle (10, 1, 23, 360);

Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clBlue;

Image2.Canvas.Rectangle (10, round (360 — c), 23, 360); Imagel.Canvas.Pen.Color := clRed;

Imagel.Canvas.Brush.Color := clWhite;

Imagel.Canvas.Rectangle (10, 1, 23, 360);

Imagel.Canvas.Pen.Color := clRed;

Imagel.Canvas.Brush.Color := clRed;

Imagel.Canvas.Rectangle (10, round (360 — d), 23, 360); end;

procedure TForml. Button3Click (Sender: TObject); begin

Editl.Text := «;

Edit2.Text := '';

Imagel.Canvas.Pen.Color := clRed;

Imagel.Canvas.Brush.Color := clWhite;

Imagel.Canvas.Rectangle (10, 1, 23, 360); Image2.Canvas.Pen.Color := clBlue;

Image2.Canvas.Brush.Color := clWhite;

Image2.Canvas.Rectangle (10, 1, 23, 360); end;

procedure TForml. Button4Click (Sender: TObject); begin Close; end;

procedure TForml. EditlEnter (Sender: TObject); begin

Button2.Visible := true;

Buttonl.Visible := False; end;

procedure TForml. Edit2Enter (Sender: TObject); begin

Buttonl.Visible := true;

Button2.Visible := False; end;

end.