Создан заказ №3060582
25 мая 2018
Сделать блок схему для программы, язык Delphi.
Как заказчик описал требования к работе:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Edit1KeyPress(Sender: TObject;
var Key: Char);
procedure Button1Click(Sender: TObject);
private
function CalcSumDigits(d: Integer): Integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// Защита от некорректного ввода числа
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
// Если не цифра или кнопка Backspace
if not (Key in ['0'..'9', #8]) then
Key:= #0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
d: Integer;
begin
if Edit1.Text = '' then
MessageBox(Self.Handle, 'Введите число', 'Ошибка', MB_ICONERROR)
else
begin
d:= StrToInt(Edit1.Text);
Edit2.Text:= IntToStr(CalcSumDigits(d));
end;
end;
// Функция расчета суммы цифр натурального числа
function TForm1.CalcSumDigits(d: Integer): Integer;
var
rest: Integer; // Число после вычита поледней цифры
begin
Result:= d mod 10;
rest:= d div 10;
if rest > 0 then
Result:= Result + CalcSumDigits(rest);
end;
end
подробнее
Заказчик
заплатил
заплатил
200 ₽
Заказчик не использовал рассрочку
Гарантия сервиса
Автор24
Автор24
20 дней
Заказчик принял работу без использования гарантии
26 мая 2018
Заказ завершен, заказчик получил финальный файл с работой
5
Сделать блок схему для программы, язык Delphi..jpg
2019-01-18 03:32
Последний отзыв студента о бирже Автор24
Общая оценка
5
Положительно
Работу зачли,автор отличный,сделал раньше срока,который я указывала и без единой ошибки!!!Спасибо большое ему!
Хочешь такую же работу?
300 ₽
