Форма для решения задачи

Алгоритм решения задачи.

Первых цифр числа и сумму двух последних цифр в записи числа.

Рис. 9

Рис. 10

Текст программы:

unit Summa_1_n;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label2: TLabel;

Label3: TLabel;

Order: TButton;

Summa: TButton;

Button3: TButton;

Label4: TLabel;

Edit4: TEdit;

procedure OrderClick(Sender: TObject);

procedure SummaClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

k, n:integer; // Это глобальные переменные, значения которых будут видны во всех событиях // данного модуля

implementation

{$R *.dfm}

procedure TForm1.SummaClick(Sender: TObject);

var j,i,s1,s2:integer;

begin

s1:=0;

s2:=0;

i:=1;

While n<>0 do

begin

while i<=2 do

begin

j:=n mod 10;

n:=n div 10;

s1:=s1+j;

i:=i+1;

end;

if i<=(k-2) then

begin

n:=n div 10;

i:=i+1;

end

else

begin

j:=n mod 10;

s2:=s2+j;

n:=n div 10;

i:=i+1;

end;

end;

Edit2.Text:=Inttostr(s1);

Edit3.Text:=Inttostr(s2);

Summa.Enabled:=false;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);.// Это событие позволяет установить свойства

// компонент, которые необходимы для решения конкретной задачи

begin

Summa.Enabled:=false;// Кнопка события для вычисления заданных сумм будет неактивна (см. // рисунок с результатами решения)

Edit1.clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

end;

procedure TForm1.OrderClick(Sender: TObject); //Этот метод вычисляет количество цифр в записи // числа

var m:integer;

begin

Edit2.Clear;

Edit3.Clear;

n:=strtoint(Edit1.Text);

m:=n; // Исходное число в памяти сохраняем, чтобы можно было его использовать без //повторного преобразования, которое выполняется всегда при чтении числа из окна компонента

k:=0;

while m<>0 do

begin

m:=m div 10;

k:=k+1;

end;

Edit4.Text:=inttostr(k);

Summa.Enabled:=true;

end;

end.

Окно работающей программы с результатами решения: представлено на рис. 11

Рис. 11

Дата добавления: 2014-12-27