Все для Sony Ericsson, патчи, эльфы, моддинг, прошивка
  
Логин: Пароль: Запомнить: Привет гость! Зарегистрируйся или авторизируйся для получения доп. возможностей!
Разделы
PDA версия сайта
TrackIDentify
Новости
Статьи
Файлы
Патчи
Патчи A2
Патчи db2020
Эльфы
Исходники эльфов
Wiki
Форум
Опросы
Обратная связь
Развернуть/Свернуть
 
Развернуть/Свернуть

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 »



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

Главная Новости Статьи Файлы Патчи Форум Опросы PDA
- Генерация страницы: 0.12 секунд | 11 Запросов | HTML: 39.67 КБ -