[kate_miss]

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!

НАПИСАЛА программу...
условие:
Дано натуральное число n. Выяснить, входит ли цифра 3 в запись числа n2(в квадрате).
считает только числа от 0 до 9....не могу сделать чтобы считал любое натуральное)))))

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Image1: TImage;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
n,k,m,i,l,f:word;

begin
n:=StrToInt(Edit1.Text);
Memo1.Lines.Add('число - '+Edit1.Text);
n:=sqr(n);
Memo1.Lines.Add('число n в квадрате (n2) = '+IntToStr(n));
for i:=1 to n do
l:=n div 100;
f:=n mod 100;
k:= n div 10;
m:= n mod 10;
if (l=3) or (f=3) or (k=3) or (m=3) then Memo1.Lines.Add('Число 3 входит в запись числа n2')
else Memo1.Lines.Add('Число 3 не входит в запись числа n2');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add('Лаб. раб №3 Шеметовец Е. гр.417329');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;

end.

[kate_miss]

+ еще надо сделать с помощью подпрограммы))))....вот что получилось...но не работает))))))

КОД UNIT

Код:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
n,i,l,k,f,m:word;

begin
n:=StrToInt(Edit1.Text);
Memo1.Lines.Add('число - '+Edit1.Text);
n:= sqr(n);
Memo1.Lines.Add('число n в квадрате (n2) = '+IntToStr(n));
for i:=1 to n do
myfunc(i,n,l,k,f,m);
if (k=3) or (m=3) or (l=3) or (f=3) then Memo1.Lines.Add('Число 3 входит в запись числа n2')
else Memo1.Lines.Add('Число 3 не входит в запись числа n2');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add('Лаб. раб №3 Шеметовец Е. гр.417329');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;

end.

КОД ПОДПРОГРАММЫ

Код:

unit proc;

interface
 function myfunc(i,n,l,k,f,m:word):word;

implementation
 function myfunc;
 begin
 l:=n div 100;
 f:=n mod 100;
 k:= n div 10;
 m:= n mod 10;
 end;

 end.

помогите кто чем может))))))......

[ChinYan]

А не проще так:

Код:

unit proc;

interface
 function myfunc(i:word):boolean;

implementation

 function myfunc(i:word):boolean;
   var
    e,d,s,t :integer;
   begin
      e:= i mod 10; //Получение единиц
      t:= i div 1000;//Получение тысяч (если нет, то будет равно 0)
      d:=(i mod 100) div 10; //Получение десятков
      s:=(i mod 1000) div 100;//Получение сотен

Result:= (e=3) or (d=3) or (s=3) or (t=3);

   end;

 end.

[lmikle]

Извращенцы

Код:

function Is3InN2(n : integer) : Boolean;
begin
  Result := Pos('3',IntToStr(n*n)) > 0;
end;

[_Антон_]

солидарен с lmikle

[ChinYan]

Мда, слона то я и не заметил

[kate_miss]

Сообщение от lmikle

Извращенцы

Код:

function Is3InN2(n : integer) : Boolean;
begin
  Result := Pos('3',IntToStr(n*n)) > 0;
end;

прошу прощения а тогда что в unit1 писать???..подскажите , не могу что-то доделать)))))