sipteronik

+1)

хооохоо хохохоо ооххоох расшифруйте пожалуйста. "крестики-нолики"

danger +1

Ыы)

mamont меня какая то симпатичная девушка пригласила в штаб посидеть...если с этой командой (где девушка) не договорюсь, то постараюсь к вам подмазаться))

Спасибо за информацию! Очень нужна такая инфа...

Я буду участвовать, на сайте зарегился...сейчас команду найду и гоу

Сбегу за границу, сами воюйте за этот кусок г.. )))))

Я тоже хочу поиграть в энкаунтер( но я тормоз*11 обидно блин

фраза такая "я могу все и неипет"

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

Vol@nd Классные фото, похоже удачный поход получился. А ты Алексея Егорова знаешь? Добавлено спустя 2 минуты 22 секунды: http://vkontakte.ru/photo2562298_163017596 ЫЫ))

Keljad Опиши пожалуйста подробно как добирались -то есть сел ты на электричку, и на какой станции вышел и куда потом шел?

О, здорово описал! Постараюсь съездить, сейчас по гуглу поизучаю этот святой нос. Вот ты про плато говоришь, кажется я представляю смутно где это...там кажется горы здоровые такие, скалистые...если не путаю... Возле Байкала очень красивые горы! Значит получил уже кое какую инфу про святой нос. Благодарю! Кто нибудь тоже отписывайте свои походы плиз!

Ily@ Если не трудно выложи тут несколько фото!) А где святой нос находиться?? Добавлено спустя 1 минуту 17 секунд: мне очень разузнать интересные места захотелось, куда сходить, где по фотографировать и тп)

AUE Явно программист)) хорошо, приятно видеть что у человека не бардак в голове а все очень четко))

Кто с Улановки ходит в походы? В каких конкретно местах бываете? Отпишитесь куда путешествуете (в пределах нашей республики). То есть если отдыхаете на Байкале, то в каком месте? Либо там с Саяны ходите...тоже опишите место и то как добираетесь! Добавлено спустя 33 секунды: лично сам отдыхал в Энхалуке, на Байкале....очень понравилось, хочу ещё...

Уря все сделал, прога нормально работает! Всем спс!

Lucky Хорошо, спасибо!

научиться думать

Так, сейчас буду думать!) Спасибо за инфу! Я правда не все понял, но сейчас постараюсь разобраться...с делением на ноль я сделаю, а вот ввод символов с клавиатуры как...

Ребят подскажите нубу как сделать...короче делаю калькулятор в делфи, и нужно чтобы в форме (компонент edit) при запуске не вводились символы с клавиатуры, только цифры и знак запятой! Второе, как сделать чтобы знак запятой в калькуляторе, не выводился в форме edit больше одного раза. ( procedure TForm1.BitBtn11Click(Sender: TObject); begin if (new = false) then Edit1.Text := Edit1.Text + ',' else Edit1.Text := '0,'; new := false; end;) Третье - как сделать обработчик событий, если человек делит число на ноль.. Прошу прощения за тупые вопросы, логика в мозгах напрочь вынесена( Добавлено спустя 6 минут 22 секунды: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Math, jpeg, ExtCtrls, ActnList, XPMan; type TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; BitBtn10: TBitBtn; BitBtn11: TBitBtn; BitBtn12: TBitBtn; BitBtn13: TBitBtn; BitBtn14: TBitBtn; BitBtn15: TBitBtn; BitBtn16: TBitBtn; Edit1: TEdit; BitBtn17: TBitBtn; BitBtn27: TBitBtn; Image1: TImage; XPManifest1: TXPManifest; procedure BitBtn29Click(Sender: TObject); procedure BitBtn27Click(Sender: TObject); procedure BitBtn22Click(Sender: TObject); procedure BitBtn23Click(Sender: TObject); procedure BitBtn21Click(Sender: TObject); procedure BitBtn19Click(Sender: TObject); procedure BitBtn20Click(Sender: TObject); procedure BitBtn18Click(Sender: TObject); procedure BitBtn24Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BitBtn10Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject); procedure BitBtn11Click(Sender: TObject); procedure BitBtn13Click(Sender: TObject); procedure BitBtn14Click(Sender: TObject); procedure BitBtn15Click(Sender: TObject); procedure BitBtn16Click(Sender: TObject); procedure BitBtn25Click(Sender: TObject); procedure BitBtn28Click(Sender: TObject); procedure BitBtn12Click(Sender: TObject); procedure BitBtn17Click(Sender: TObject); procedure BitBtn26Click(Sender: TObject); procedure BitBtn31Click(Sender: TObject); procedure BitBtn32Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x: real; memory: real; z: real; deistv: byte; new: boolean; implementation {$R *.dfm} procedure figure(s: string); begin if (new = true) or (Form1.Edit1.Text = '0') then Form1.Edit1.Text := s else Form1.Edit1.Text := Form1.Edit1.Text + s; new := false; end; procedure TForm1.BitBtn29Click(Sender: TObject); begin Close; end; procedure TForm1.BitBtn27Click(Sender: TObject); begin Edit1.Text := '0'; end; procedure TForm1.BitBtn22Click(Sender: TObject); begin Edit1.Text := FloatToStr(ArcSin(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn23Click(Sender: TObject); begin Edit1.Text := FloatToStr(ArcCos(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn21Click(Sender: TObject); begin Edit1.Text := FloatToStr(ArcTan(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn19Click(Sender: TObject); begin Edit1.Text := FloatToStr(Sin(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn20Click(Sender: TObject); begin Edit1.Text := FloatToStr(Cos(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn18Click(Sender: TObject); begin Edit1.Text := FloatToStr(Tan(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn24Click(Sender: TObject); begin memory := StrToFloat(Edit1.Text); new := true; end; procedure TForm1.FormCreate(Sender: TObject); begin new := false; deistv := 0; memory := 0; end; procedure TForm1.BitBtn10Click(Sender: TObject); begin figure('0'); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin figure('1'); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin figure('2'); end; procedure TForm1.BitBtn3Click(Sender: TObject); begin figure('3'); end; procedure TForm1.BitBtn4Click(Sender: TObject); begin figure('4'); end; procedure TForm1.BitBtn5Click(Sender: TObject); begin figure('5'); end; procedure TForm1.BitBtn6Click(Sender: TObject); begin figure('6'); end; procedure TForm1.BitBtn7Click(Sender: TObject); begin figure('7'); end; procedure TForm1.BitBtn8Click(Sender: TObject); begin figure('8'); end; procedure TForm1.BitBtn9Click(Sender: TObject); begin figure('9'); end; procedure TForm1.BitBtn11Click(Sender: TObject); begin if (new = false) then Edit1.Text := Edit1.Text + ',' else Edit1.Text := '0,'; new := false; end; procedure TForm1.BitBtn13Click(Sender: TObject); begin new := true; deistv := 1; z := StrToFloat(Edit1.Text); end; procedure TForm1.BitBtn14Click(Sender: TObject); begin new := true; deistv := 2; z := StrToFloat(Edit1.Text); end; procedure TForm1.BitBtn15Click(Sender: TObject); begin new := true; deistv := 3; z := StrToFloat(Edit1.Text); end; procedure TForm1.BitBtn16Click(Sender: TObject); begin new := true; deistv := 4; z := StrToFloat(Edit1.Text); end; procedure TForm1.BitBtn25Click(Sender: TObject); begin new := true; deistv := 5; z := StrToFloat(Edit1.Text); end; procedure TForm1.BitBtn28Click(Sender: TObject); begin Edit1.Text := FloatToStr(memory); end; procedure TForm1.BitBtn12Click(Sender: TObject); begin x := StrToFloat(Edit1.Text); case deistv of 1: Edit1.Text := FloatToStr(z + x); 2: Edit1.Text := FloatToStr(z - x); 3: Edit1.Text := FloatToStr(z * x); 4: Edit1.Text := FloatToStr(z / x); 5: Edit1.Text := FloatToStr(Power(z, x)); end; new := true; end; procedure TForm1.BitBtn17Click(Sender: TObject); begin Edit1.Text := FloatToStr(Sqrt(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn26Click(Sender: TObject); begin Edit1.Text := FloatToStr(1 / (StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn31Click(Sender: TObject); begin Edit1.Text := FloatToStr(ArcCot(StrToFloat(Edit1.Text))); new := true; end; procedure TForm1.BitBtn32Click(Sender: TObject); begin Edit1.Text := FloatToStr(Cot(StrToFloat(Edit1.Text))); new := true; end; end.

Там есть вебкамера с видом на склон? Дай ссылку плиз

В УУ трудно устроиться на работу программисту? А те кто уже устроились - чем занимаетесь?) Расскажите, всем будет очень интересно! Добавлено спустя 2 минуты 51 секунду: То есть хочется услышать какого рода программы разрабатываете! Работаете с базами данных, программы мультимедиа пишете? Буду очень рад любому ответу по теме!

Не понравился( маленький какой то(