Помощь - Поиск - Пользователи - Календарь
Полная версия: Как исправить ошибку?
Форум «Всё о Паскале» > Delphi, Assembler и другие языки. > Delphi
V.k.l.chr.by
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    RadioGroup1: TRadioGroup;
    Memo1: TMemo;
    Button1: TButton;
   
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin
   Edit1.text:='23';
   Edit2.text:='0.356';
   Edit3.text:='1';
   Memo1.Clear;
   Memo1.Lines.Add('Peз-ты ст. гр. 920201 Петрова И.И.');

end;

procedure TForm1.Button1Click(Sender: TObject);
var x,y,u, z,ma:  extended;
begin
     x := StrToFloat(Edit1.Text);
   Memo1.Lines.Add('x='+Edit1.Text);
   Y := StrToFloat(Edit2.Text);
   Memo1.Lines.Add('y='+Edit2.Text);
   Z := StrToFloat(Edit3.Text);
   Memo1.Lines.Add('z='+Edit3.Text);
// Проверка номера нажатой кнопки и выбор соответствующей ей функции
   case RadioGroup1.ItemIndex  of
     0: u:= cos(x);
     1: u:= sin(x);
     2: u:= sin(x)/cos(x);
   end;
// Проверка состояния кнопки CheckBox1
   if CheckBox1.Checked then
   begin
     x:= abs (x);
     y:= abs (y);
     z:= abs (z);
   end;
// Нахождение максимального из трех чисел
if x>y then ma := x else ma := y;
if z>ma then ma := z;
if Checkbox1.checked then
Memo1.Lines.Add('maxabs='+FloatToStrf(ma,ffFixed,8,2))
   else
memo1.lines.add('max='+FloatToStrf(ma, ffFixed,8,2));

end;

end.


М
При публикации кода просьба использовать теги!
Lapp

Lapp
"Как исправить ошибку?"
- возможно, поможет родиться вторично. В следющий раз, пожалуйста, говори в чем состоит ошибка. Уважай собеседников и экономь их время.

 ! 
Тема закрыта в соответствии с Правилами Форума, п.4

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.