| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

объясните пожалуйста, что значит каждая из процедур? [D7]

Страницы:   < 1 2 >

tango ©   (2008-06-03 21:41:00) 

Number1:=StrToInt(Edit1.Text);
  Number2:=StrToInt(Edit2.Text);
   LenN1:=0;
   LenN2:=0;
   Edit3.Text:=' ';
    Edit4.Text:=' ';
    repeat
    ModN:=Number1 mod Systemofn;
    Number1:=Number1 div Systemofn;
    Inc(LenN1);
    SetLength (vNamber1, LenN1);
    VNamber1[LenN1-1]:=ModN;
    Edit3.Text:=IntToStr(modN)+Edit3.text;
    Until Number1=0;
    repeat
    ModN:=Number2 mod Systemofn;
    Number2:=Number2 div Systemofn;
    Inc(LenN2);
    SetLength(Vnamber2, LenN2);
    VNamber2[LenN2-1]:=ModN;
    Edit4.Text:=IntToStr(ModN)+Edit4.Text;
    Until Number2=0;
    if LenN1>LenN2 then LenN:=LenN1 else LenN:=LenN2;
    SetLength(VNamber1, LenN);
    SetLength(VNamber2, LenN);
    for i:=0 to LenN-1 do begin
    if i>LenN1-1 then VNamber1[i]:=0;
       if i>LenN2-1 then VNamber2[i]:=0;

end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var  c, ModN:integer;
begin
 Number1:=StrToInt(Edit1.Text);
  Number2:=StrToInt(Edit2.Text);
Edit5.Text:=' ';
   c:=Number1-Number2;
   if c>0 then
    repeat
    ModN:=c mod Systemofn;
    c:=c div Systemofn;
    Inc(LenN1);
    SetLength (vNamber1, LenN1);
    VNamber1[LenN1-1]:=ModN;
    Edit5.Text:=IntToStr(modN)+Edit5.text;
    Until c=0;
   if c<0 then
    Edit5.Text:='nevernie chisla';

end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var  c, ModN:integer;
begin
 Number1:=StrToInt(Edit1.Text);
  Number2:=StrToInt(Edit2.Text);
Edit6.Text:=' ';
   c:=Number1+ Number2;
    repeat
    ModN:=c mod Systemofn;
    c:=c div Systemofn;
    Inc(LenN1);
    SetLength (vNamber1, LenN1);
    VNamber1[LenN1-1]:=ModN;
    Edit6.Text:=IntToStr(modN)+Edit6.text;
    Until c=0;

end;

end.

---

Игорь Шевченко   (2008-06-03 23:46:00) [21]

Плохиш ©   (03.06.08 23:34) [12]

Я вообще-то тебя ждал, думал, ты help по SetLength выложишь на родном языке :)

"Чтоб засыпало и раздавило"

---

Плохиш   (2008-06-03 23:34:00) [22]

> tango   (03.06.08 22:10) [7]
> да я уже и сам понимаю что к чему мне значение некоторых
> слов не ясно
> а ни учебника ни методички под рукой нет

опять побираться пришёл?

---

Игорь Шевченко   (2008-06-03 22:30:00) [23]

> что за код
> SetLength?


длина множества ?

---

Ляпа   (2008-06-03 22:25:00) [24]

F1 на незнакомом слове не пробовал нажать?

---

Игорь Шевченко   (2008-06-03 22:23:00) [25]

> а ни учебника ни методички под рукой нет....


а F1 есть под рукой ? (под левой обычно)

---

tango   (2008-06-03 22:16:00) [26]

что за код
SetLength?

---

tango   (2008-06-03 22:10:00) [27]

да я уже и сам понимаю что к чему мне значение некоторых слов не ясно
а ни учебника ни методички под рукой нет....

---

Игорь Шевченко   (2008-06-03 22:08:00) [28]

Код надо оформлять так:

Number1:=StrToInt(Edit1.Text); Number2:=StrToInt(Edit2.Text); LenN1:=0;   LenN2:=0; Edit3.Text:=' '; Edit4.Text:=' '; repeat ModN:=Number1 mod Systemofn; Number1:=Number1 div Systemofn; Inc(LenN1); SetLength (vNamber1, LenN1); VNamber1[LenN1-1]:=ModN; Edit3.Text:=IntToStr(modN)+Edit3.text; Until Number1=0; repeat ModN:=Number2 mod Systemofn;
Number2:=Number2 div Systemofn; Inc(LenN2); SetLength(Vnamber2, LenN2);
VNamber2[LenN2-1]:=ModN; Edit4.Text:=IntToStr(ModN)+Edit4.Text; Until Number2=0; if LenN1>LenN2 then LenN:=LenN1 else LenN:=LenN2; SetLength(VNamber1, LenN); SetLength(VNamber2, LenN); for i:=0 to LenN-1 do begin
if i>LenN1-1 then VNamber1[i]:=0; if i>LenN2-1 then VNamber2[i]:=0;end;

procedure TForm1.BitBtn2Click(Sender: TObject); var  c, ModN:integer;
begin Number1:=StrToInt(Edit1.Text); Number2:=StrToInt(Edit2.Text);
Edit5.Text:=' ';  c:=Number1-Number2; if c>0 then repeat ModN:=c mod Systemofn; c:=c div Systemofn; Inc(LenN1); SetLength (vNamber1, LenN1);
VNamber1[LenN1-1]:=ModN; Edit5.Text:=IntToStr(modN)+Edit5.text; Until c=0;
if c<0 then Edit5.Text:='nevernie chisla'; end;

procedure
TForm1.BitBtn3Click(Sender:
TObject); var c, ModN:
integer; begin
Number1:=StrToInt(
Edit1.Text); Number2:=
StrToInt(Edit2.Text);
Edit6.Text:=' '; c:=
Number1+ Number2; repeat
ModN:=c mod Systemofn; c:=c
div Systemofn; Inc(LenN1);
SetLength (vNamber1, LenN1);
VNamber1[LenN1-1]:=ModN;
Edit6.Text:=IntToStr(modN)+Edit6.
text; Until c=0; end;

Тогда всем станет сразу понятно.

---

Правильный_Вася   (2008-06-03 21:59:00) [29]

автору виднее
с таким форматированием и без комментариев - только к нему
можешь F1  понажимать на незнакомых словах

---

Игорь Шевченко   (2008-06-03 21:58:00) [30]

> ну а что происходит при выполнении данных процедур?


Очевидно их код выполняется.

---

tango   (2008-06-03 21:52:00) [31]

из этой программы

---

tango   (2008-06-03 21:52:00) [32]

не спорю
ну а что происходит при выполнении данных процедур?

---

Правильный_Вася   (2008-06-03 21:43:00) [33]

процедура - логически законченная последовательность действий

---

Страницы:   < 1 2 >

Наверх