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

Список форумов О жизни Deplhi 7
	На печать
	Правила

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

zapret

Moder

Регистрация: 27.5.07
Сообщений: 1577
Репутация: 1813
Откуда: Königsberg-Калининград

#1 [16.11.10, 21:57] Deplhi 7

вопросы о Deplhi 7

samsung galaxy S3 4.2.2
W580\K750i\k550

если собрали учет занятого места в прошивке - обращайтесь

flips

Пользователь

Регистрация: 1.2.08
Сообщений: 61
Репутация: 6

#2 [16.11.10, 22:00] Re: Deplhi 7

Вот в этом куске нужно сделать вывод в 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

Patcher/Elfmaker

Регистрация: 14.5.08
Сообщений: 358
Репутация: 2528
Откуда: Ржев

#3 [16.11.10, 22:00] Re: Deplhi 7

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

не занимаюсь эльфами и патчами (=
~~Siemens c75~~ -> ~~SonyEricsson k610i + SonyEricsson w595 + SonyEricsson w580i~~ -> HTC Desire Z

flips

Пользователь

Регистрация: 1.2.08
Сообщений: 61
Репутация: 6

#4 [16.11.10, 22:01] Re: Deplhi 7

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

Patcher/Elfmaker

Регистрация: 14.5.08
Сообщений: 358
Репутация: 2528
Откуда: Ржев

#5 [16.11.10, 22:01] Re: Deplhi 7

а что ее находить то?)) умножаешь в цикле eps на 10, пока она не станет больше 1)

Добавлено 4.11.10 22:21

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

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

не занимаюсь эльфами и патчами (=
~~Siemens c75~~ -> ~~SonyEricsson k610i + SonyEricsson w595 + SonyEricsson w580i~~ -> HTC Desire Z

flips

Пользователь

Регистрация: 1.2.08
Сообщений: 61
Репутация: 6

#6 [16.11.10, 22:01] Re: Deplhi 7

MoneyMasteR,
А можешь написать где размещать этот цикл и как при помощи него выводить в Memo и в Edit? :oops:

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

mmcorp

Patcher/Elfmaker

Регистрация: 14.5.08
Сообщений: 358
Репутация: 2528
Откуда: Ржев

#7 [16.11.10, 22:02] Re: Deplhi 7

нет

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

не занимаюсь эльфами и патчами (=
~~Siemens c75~~ -> ~~SonyEricsson k610i + SonyEricsson w595 + SonyEricsson w580i~~ -> HTC Desire Z

MahmudS

Patchmaster

Регистрация: 3.12.07
Сообщений: 662
Репутация: 3103
Откуда: Черновцы.UA

#8 [16.11.10, 22:02] Re: Deplhi 7

flips, ненавижу, когда люди пытаются сдавать код, в котором ничего не понимают и который написан кем-то другим.

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

iPhone 5S Neverlock 64gb iOS 8.4 + Jailbreak
C901 R1GA028 Ocean White
W715 R1GA030 Black

flips

Пользователь

Регистрация: 1.2.08
Сообщений: 61
Репутация: 6

#9 [16.11.10, 22:02] Re: Deplhi 7

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

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

flips

Пользователь

Регистрация: 1.2.08
Сообщений: 61
Репутация: 6

#10 [16.11.10, 22:04] Re: Deplhi 7

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

Код:

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 »

Поиск
Права

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