Исправь код unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure CheckBox4Change(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Label1Click(Sender: TObject);
private

public

end;

var
Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Label1Click(Sender: TObject);
begin

end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.CheckBox4Change(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
var a, b, c:real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
if CheckBox1.Checked=True then
begin
c:=a+b;
Label3.Caption:= 'Сума = ' +FloatToStr(c) ;
end;
if CheckBox2.Checked=True then
begin
c:=a+b;
Label3.Caption:= 'Різниця = ' +FloatToStr(c) ;
end;
if CheckBox3.Checked=True then
begin
c:=a+b;
end;
Label3.Caption:= 'Добуток = ' +FloatToStr(c) ;
end;
if CheckBox4.Checked=True then
begin
c:=a+b;
Label3.Caption:= 'Частка = ' +FloatToStr(c) ;
end.

Популярно: Информатика

• 

  Yury28

  17.02.2023 14:34
  Каким, на ваш взгляд, может быть компьютер будущего? напишите...
• 

  sergei66284

  13.01.2021 14:23
  Каким на ваш взгляд может быть компьютер будущего? напишите эссе...
• 

  мангл63

  31.05.2021 07:57
  Что будет напечатано на экране в результате выполнения следующей...
• 

  kolakao

  30.11.2021 01:40
  Составить программу s треугольника по формуле герона, если известны...
• 

  hcunvakjb

  04.06.2020 16:35
  3. a) Укажите редактирования электронной таблицы: 1. Изменение...
• 

  Fashion258

  02.04.2023 11:51
  Рассмотри изображение определи вид графике​...
• 

  moȗnuk

  30.01.2022 03:43
  1-на листе а2 помещается 146 строк текста, в строке по 238 символов.каков...
• 

  akozhametova

  07.05.2020 05:41
  Как округлять числа в pascal, допустим ввели 4722, а должно получиться...
• 

  Messi1444

  01.05.2021 07:19
  Объём сообщения равен 5 кб. определить мощность алфавита, с которого...
• 

  mishaikatya

  28.03.2020 03:27
  Переведите число 10111011 из двоичной системы в десятичную, используя...