Модераторы: THandle, bems

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Нужна идея, Нужно сделать и быстро но нет идеи 
:(
    Опции темы
Akella
Дата 15.2.2010, 10:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
Всё - это что? показывай
PM MAIL   Вверх
DarkProg
Дата 15.2.2010, 18:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: нет
Всего: 19
Цитата(Akella @  15.2.2010,  10:33 Найти цитируемый пост)
Всё - это что? показывай 

Как сертификат придёт о регистрации так выложу в готовых проектах smile, а пока не буду smile


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
ChessMag
Дата 15.2.2010, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.2.2010

Репутация: нет
Всего: нет
Парни нужна помощь. Я написал прогу, для перевода цифр из десятичной системы счисления в двоичную систему. Вот код
Код


function KDN2(Op_1: integer):integer;
var f: integer;
begin
for f := 0 to Op_1 do begin
if (f mod 2 = 0) or (f mod 2 <> 0) then inc©;
KDN2 := c;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
label 1;
begin
Button1.Enabled := false;
if edit1.Text = '' then exit;

Yu := KDN2(strtoint(edit1.Text));

Opr := strtoint(Edit1.Text);

1:if Opr < 1 then exit;

for h := yu downto 0 do begin

if Opr >= 1 then begin

res := opr mod 2;

if res = 0 then begin
label1.Caption := '0' + label1.Caption;
Res2 := opr / 2;
opr := trunc(Res2);
goto 1;
end;

if res <> 0 then begin
label1.Caption := '1' + label1.Caption;
Res2 := opr / 2;
opr := trunc(Res2);
goto 1;
end;

end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
Res := 0;
Res2 := 0;
yu := 0;
h := 0;
opr := 0;
KDN2(0);
label1.Caption := '';
Button1.Enabled := true;
end;

procedure TForm1.Press(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9':;
#8:;
else key := chr(0);
end;
end;

end.


Парни помогите написать прогу которая будет переводить двоичные числа в десятичные! Сам пробывал нифига не получаеться! 

Модератор: создайте отдельную тему + используйте подсветку кода
PM MAIL   Вверх
Akella
Дата 15.2.2010, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
Я смотрю, всё больше "программистов", которые даже не знают, что такое форумы и как, и где правильно задать вопрос.

Это сообщение отредактировал(а) Akella - 15.2.2010, 22:23
PM MAIL   Вверх
DarkProg
Дата 16.2.2010, 20:08 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: нет
Всего: 19
Цитата(Akella @  15.2.2010,  22:23 Найти цитируемый пост)
Я смотрю, всё больше "программистов"

Akella - это не программист, а так, он ещё недоэволюционировал раз 5 минутную прогу написать не может, да и вообще лепит сообщение куда не надо


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
chip_and_dayl
Дата 16.2.2010, 20:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: нет
Всего: 9
О боже там еще есть goto. Я даже забыл о его существование

З.  Ы. Извиняюсь за оффтоп


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
bems
Дата 17.2.2010, 16:38 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 2
Всего: 88
Цитата(chip_and_dayl @  16.2.2010,  20:58 Найти цитируемый пост)
Я даже забыл о его существование

Ну это значит что плохо язык знаешь, да 


--------------------
Обижено школьников: 8
PM MAIL   Вверх
DarkProg
Дата 17.2.2010, 17:03 (ссылка) | (голосов:4) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: нет
Всего: 19
Цитата(bems @  17.2.2010,  16:38 Найти цитируемый пост)
Ну это значит что плохо язык знаешь, да  


Ну знаешь вообще этим goto вообще пользоваться вредно, т.к. ещё до моего рождения было решено, что только ламера используют это безобразие, а нормальные прогальщики должны писать нормальные коды где всё просто и понятно, а этот опреатор вносит "неразбериху в код"


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
Akella
Дата 17.2.2010, 22:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
Цитата(chip_and_dayl @  16.2.2010,  20:58 Найти цитируемый пост)
З.  Ы. Извиняюсь за оффтоп

Ничё, в группе Дельфи можно smile


Это сообщение отредактировал(а) Akella - 17.2.2010, 22:47
PM MAIL   Вверх
bems
Дата 18.2.2010, 00:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 2
Всего: 88
Цитата(DarkProg @  17.2.2010,  17:03 Найти цитируемый пост)
только ламера используют это безобразие

=> первый автор ядра линукс - ламер

Цитата(DarkProg @  17.2.2010,  17:03 Найти цитируемый пост)
нормальные прогальщики

а это что за звери? smile 



--------------------
Обижено школьников: 8
PM MAIL   Вверх
Keeper89
Дата 18.2.2010, 02:42 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58
Цитата(DarkProg @  17.2.2010,  17:03 Найти цитируемый пост)
Ну знаешь вообще этим goto вообще пользоваться вредно, т.к. ещё до моего рождения было решено, что только ламера используют это безобразие, а нормальные прогальщики должны писать нормальные коды где всё просто и понятно, а этот опреатор вносит "неразбериху в код" 

Почитай, у Макконелла написано, что это редкость но есть просто необходимые случаи.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Akella
Дата 18.2.2010, 14:24 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
Цитата(bems @  18.2.2010,  00:06 Найти цитируемый пост)
=> первый автор ядра линукс - ламер

а что, нет? smile

Добавлено через 2 минуты и 51 секунду
Цитата(bems @  18.2.2010,  00:06 Найти цитируемый пост)
Цитата(DarkProg @  17.2.2010,  17:03 Найти цитируемый пост)
нормальные прогальщики

а это что за звери? smile 

которые прОгают smile 
PM MAIL   Вверх
DarkProg
Дата 18.2.2010, 16:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Законченный романтик
***


Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: нет
Всего: 19
Цитата(Keeper89 @  18.2.2010,  02:42 Найти цитируемый пост)
Почитай, у Макконелла написано, что это редкость но есть просто необходимые случаи. 


Конечно есть такие случаи, в первую очередь когда пишешь на asm'e smile


--------------------
"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

 smile  smile  smile 
PM MAIL   Вверх
bems
Дата 18.2.2010, 19:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 2
Всего: 88
Цитата(DarkProg @  18.2.2010,  16:09 Найти цитируемый пост)
Конечно есть такие случаи, в первую очередь когда пишешь на asm'e
А там зачем, есть же джампы разные?



--------------------
Обижено школьников: 8
PM MAIL   Вверх
chip_and_dayl
Дата 18.2.2010, 19:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: нет
Всего: 9
Цитата(bems @  17.2.2010,  16:38 Найти цитируемый пост)
Ну это значит что плохо язык знаешь, да

Забыл и не знаю вещи разные. И это плохо, что вы не знаете  smile 


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle

Добро пожаловать в форум группы "Delphi".

В разделе разрешается:

  • Флудить (в приемлемых величинах)
  • Обсуждать модерирование данного раздела (но не его модератора)
  • Добавлять свои правила если они не противоречат существующим
  • Делать наезды на пешеходов***

Строго запрещено:

  • Размещать рекламу
  • Совершать оскорбления личностей
  • Материться
    • *** Пешеходами не являются (ко)модераторы, админы, участники клуба.

Если Вам понравилась атмосфера форума, заходите к нам чаще! Люблю, целую, вечно Ваш, THandle.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Форум группы: delphi | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1079 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.