profile
Опубликовано 5 лет назад по предмету Информатика от sshepelyap1byzc

Напишіть алгоритм розрахунку S по формулі S=(x+2)/5 Значення х вводить людина

  1. Ответ
    Ответ дан alaxbabax1234g

    unit Unit1;

    interface

    uses

     System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

     FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit,

     FMX.Controls.Presentation, FMX.StdCtrls;

    type

     TForm1 = class(TForm)

       Button1: TButton;

       Edit1: TEdit;

       procedure Button1Click(Sender: TObject);

     private

       { Private declarations }

     public

       { Public declarations }

     end;

    var

     Form1: TForm1;

      x, s: integer;

    implementation

    {$R *.fmx}

    procedure TForm1.Button1Click(Sender: TObject);

    begin

     x:=StrToInt(Edit1.Text);

     s:=(x+2)/5;

     Showmessage(IntTostr(s)+'ответ');

    end;

    end.


Самые новые вопросы