Új hozzászólás Aktív témák

• #1284 yksz aktív tag ViragL #1283

  Új Válasz 2006-10-10 17:39:53 #1284

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  yksz

  aktív tag

  válasz ViragL #1283 üzenetére

  az egész így néz ki:
  var
  Form1: TForm1;
  n, i, l, s, r, h: integer;
  p: string;
  
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
  p:=Edit1.Text;
  h:=length(p);
  l:=0;
  Click;
  end;
  
  procedure click;
  begin
  while h>1 do
  begin
  for i:=1 to h do
  begin
  r:=strtoint(p);
  l:=l+r;
  end ;
  p:=inttostr(l);
  h:=length(p);
  end ;
  edit2.Text:=p;
  end;
  csak nem akartam beírni, mert hosszú. Ebbol már láthatod h elméletileg nem kéne végtelenitodenie, pedig mégis sikerul neki. Mit csináltam rosszul? Edit1-be írok 1 számot és ha a számjegyei osszege nagyobb mint 9 akkor csinálja, amíg kisebb mint 10 muxik normálisan

Új hozzászólás Aktív témák