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

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: кнопка Button, область рисования

PaintBox.

3. Выполнить следующие действия:

			Таблица 26.
Выделенный объект	Вкладка окна	Имя свойства/	Действие
Object Inspector	имя события
Form1	Properties	Caption	Установка имени формы «График
			функции»
Button1	Properties	Caption	Введите название «График»
	Events	Onclick	Написать процедуру, рисующую
			график по точкам
PaintBox1	Properties	Canvas	Соединение линиями получаемых
			точек
Button2	Properties	Caption	Введите название «Выход»
	Events	Onclick	Close;

4. Сохраните проект, запустите и протестируйте его.

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

procedure TForm1.Button1Click(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

PaintBox1.Canvas.LineTo(0,150);

PaintBox1.Canvas.LineTo(410,150);

x:=0;

for x:=0 to 350 do begin

PaintBox1.Canvas.LineTo(x, f(x)+150);

end; end;

procedure Tform1.Button2Click(Sender: Tobject); begin

Close; end; end.

Практическая работа № 16 «Градусник»

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

1. Поместите на форму два поля ввода Edit и четыре кнопки.

Рис. 59.

2. Ввести число в левое поле. По нажатию на кнопку «по Фаренгейту» в правом поле выводится преобразованное число. По нажатию кнопки «Очистить» очищаются поля ввода.

3. Ограничьте вводимые температуры диапазоном от 0°C до 100°C (если введено значение, превышающее 100°C или 212°F, то при нажатии кнопки в полях ввода должно отобразиться 100 и 212 соответственно).

4. Отобразить столбик термометра графически. Добавьте компоненты Image.

5. Сделать видимой только ту кнопку, которая необходима для преобразования.

Рис. 60.

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

unit Unit1; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

Дата добавления: 2017-02-01