Как сделать в turbo pascal которая запрашивает с клавиатуры 2 произвольных числа x и y. если разность - id252451620230308 от Anna4455 08.03.2023 20:53

Question

Информатика: Как сделать в turbo pascal которая запрашивает с клавиатуры 2 произвольных числа x и y. если разность x и y больше 0, то вычисляет и выводит на экран сумму всех целых чисел от y до x, иначе вычесляет и выводит на экран разность всех целых чисел от y до x

Anna4455 · Accepted Answer

Unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.

MOGZ ответил