Deplhi 7 : О жизни : Форум : На печать : Для Sony Ericsson патчи эльфы моддинг прошивка

Deplhi 7 : О жизни : Форум

Страница 1 из 2: [1] 2 »

zapret:	16.11.10, 21:57
вопросы о Deplhi 7

flips:

16.11.10, 22:00

Вот в этом куске нужно сделать вывод в Memo, но нужно выводить sum+2, тоесть должно выводить типо само число; сумма этих чисел +2, но что б не каждый раз добавлялось, а только один раз и что нужно прописать и где, чтоб колличество знаков выводилось согласно eps?

Код:

procedure TfrmWhileRepeat.Button2Click(Sender: TObject);
var u,sum,eps:real; i:integer; s:string;
begin
  Memo1.Clear;
  eps:=strtofloat(edtEps2.Text);
  u:=1/2;
  sum:=1/2;
  i:=1;
  while u>eps do
  begin
   i:=i+1;
   u:=u/(i+1);
   sum:=sum+u;
   if CheckSteps.Checked then
    begin
     s:=format('%10.7f %10.7f',[u,sum]);
     Memo1.Lines.Add(s);
    end;
   end;
   sum:=2+sum;
   edtResult2.Text:=floattostr(sum);
   edtControl2.Text:=floattostr(exp(1));
end;

Вот картинка для того что б понять какая помощь мне нужна от вас

[ Редактировано flips в 3.11.10 22:20 ]

[ Редактировано flips в 3.11.10 22:25 ]

Сообщение скопировал zapret из темы: Выполнение цикла в Delphi

mmcorp:

16.11.10, 22:00

flips писал:

sum:=1/2;

тут вроде как должно sum:=2+1/2;

Добавлено 4.11.10 05:24

flips писал:

sum:=2+sum;

а это убрать в конце

Добавлено 4.11.10 05:28

flips писал:

format('%10.7f %10.7f',[u,sum]);

здесь меняешь кол-во цифр после запятой

Сообщение скопировал zapret из темы: Выполнение цикла в Delphi

flips:

16.11.10, 22:01

MoneyMasteR,
За первый пункт Спасибо.
MoneyMasteR писал:

flips писал:
format('%10.7f %10.7f',[u,sum]);

здесь меняешь кол-во цифр после запятой

Мне нужно выводить кол-во знаков после запятой согласно введенному eps.
Тоесть я ввожу eps 0,01 и выводится только 2 знака после запятой ну так далее. То что количество знаков после запятой которое должно выводится меняется здесь

%10.7f

это я знаю.

[ Редактировано flips в 4.11.10 16:49 ]

Сообщение скопировал zapret из темы: Выполнение цикла в Delphi

mmcorp:	16.11.10, 22:01
а что ее находить то?)) умножаешь в цикле eps на 10, пока она не станет больше 1) Добавлено 4.11.10 22:21 кол-во интераций и будет равняться кол-ву знаков после запятой Сообщение скопировал zapret из темы: Выполнение цикла в Delphi

flips:	16.11.10, 22:01
MoneyMasteR, А можешь написать где размещать этот цикл и как при помощи него выводить в Memo и в Edit? Сообщение скопировал zapret из темы: Выполнение цикла в Delphi

mmcorp:	16.11.10, 22:02
нет Сообщение скопировал zapret из темы: Выполнение цикла в Delphi

MahmudS:	16.11.10, 22:02
flips, ненавижу, когда люди пытаются сдавать код, в котором ничего не понимают и который написан кем-то другим. Сообщение скопировал zapret из темы: Выполнение цикла в Delphi

flips:

16.11.10, 22:02

MahmudS, Я уже разобрался с выводом в Мемо.
Тут с тобой соглашусь, но есть люди которые копируют написанный кем-то код, и вставляют в свой, а некоторые могут посмотреть на этот же код и попробовать разобраться.
MoneyMasteR, Спс за всю оказанную помощь.

Сообщение скопировал zapret из темы: Выполнение цикла в Delphi

flips:

16.11.10, 22:04

Вот собственно код

Код:

procedure TfrmIntNumber.Button1Click(Sender: TObject);
var min,max:integer; s:char; s1:string;
begin
Memo1.Clear;
max:=999;
for min:=100 to max do
  if ord(s1[1])=ord(s1[2]) and ord(s1[2])=ord(s1[3]) and ord(s1[1])=ord(s1[3]) then break
  else
  s1:=s1[1]+s1[2]+s1[3];
  Memo1.Lines.Add(s1);
end;

Выдает ошибку о несовместимости типов
Что нужно здесь подправить и где?

Сообщение скопировал zapret из темы: Анализ строки в Delphi 7

Страница 1 из 2: [1] 2 »