Задача Deiphi

Практическое занятие  .

Тема занятия: Разработка кода прикладной программы на основе

готовых спецификаций на уровне модуля с применением  компонентов для создания диалога.

Цель занятия:  Приобретение навыков создания и отладки прикладных программ  с компонентами – диалогами.

Задание № 1. Разработать проект, в модуле которого подключить Math. Установить на форму компоненты: Edit, Memo, FontDialog, ColorDialog, кнопки. Создать обработчики OnClick для кнопок «Вычислить» и «Сброс». Задавать в компоненте Edit разные вещественные числа, и при нажатии на кнопку «Вычислить» выполнить математическую процедуру SinCos(x, s, c) – для вычисления синуса и косинуса угла одновременно, где s, c – это результаты: Sin – синус угла, заданного в Edit, а Cos – косинус угла, x - это угол в радианах, заданный в Edit. Переменные S,C:extended определить в обработчике кнопки «Вычислить». Создать обработчик события OnKeyPress для компонента Edit, в котором производить анализ на ввод запрещенных. Применяя функции преобразования, записать результаты вычисления в компонент Memo в следующем виде: X = значение , sin = значение, cos = значение. В дробной части чисел оставить 2 знака после запятой. Для компонента Memo выбрать имя шрифта, его стиль (начертание), размер и другие атрибуты. Выбрать Цвет формы и компонента Memo.

unit Unit445;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm4 = class(TForm)

    Edit1: TEdit;

    Memo1: TMemo;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

S,C:extended;

x:real;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

x:=strtofloat(edit1.text);

SinCos(x, s, c);

Memo1.Lines.Add(('x= ' + edit1.text + ' sin= ' + (floattostrF(s,Fffixed,4,2)) +' , ' + ' cos= ' + (floattostrF(c,Fffixed,4,2))));

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Edit1.text:=' ';

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

Memo1.Lines.Clear;

end;

end.