Scorpion1991

Нет, с умножения не переписывал, ну да в принципе можно также умножение организовать, только почему у меня в edite 3 теперь больше 5 знаков не выводятся?

блин....никто не знает?!

Программа написана на delphi, она складывает два двоичных числа, но почему то в ответе выводятся либо одни нули, либо единицы, помогите разобраться.... пожалуйста, что не так?! procedure TForm1.BitBtn5Click(Sender: TObject); var memory, i, j, k: integer; s1, s2, s3: string; begin s1:=edit1.Text; s2:=edit2.Text; s3:=edit3.Text; memory:=0; for i:=length(s3)downto 0 do for j:=length(s2) downto 0 do for k:=length(s1) downto 0 do begin if (memory=1)then if(s1[k]='1') and (s2[j]='1') then begin s3:='1'; memory:=1; end; if(s1[k]='1') and (s2[j]='0') then begin s3:='1'; memory:=0; end; if(s1[k]='0') and (s2[j]='1') then begin s3:='1'; memory:=0; end; if(s1[k]='0') and (s2[j]='0') then begin s3:='1'; memory:=0; end else begin if(s1[k]='1') and (s2[j]='1') then begin s3:='0'; memory:=1; end; if(s1[k]='1') and (s2[j]='0') then begin s3:='1'; memory:=0; end; if(s1[k]='0') and (s2[j]='1') then begin s3:='1'; memory:=0; end; if(s1[k]='0') and (s2[j]='0') then begin s3:='0'; memory:=0; end; end; end; edit3.Text:=s3; end;

да есть в пиплз-парке насколько я знаю, в юности есть напротив ориентал драгона цены одинаковые 1100-1200 за час.

procedure TForm1.Button1Click(Sender: TObject); // Шифровка надписи begin st:=memo1.lines.Text; // Присваивание переменной st значение текстового поля x:=3; // значение ключа memo2.Lines.Clear; // очистка поля memo for i:=1 to length(st) do // Алгоритм шифровки текста if (st<>'') then begin s:=chr((ord(st)+x)); memo2.lines.Text:=memo2.lines.Text+s; end; Эта программа написана на Delphi, меня интересует именно эта функция s:=chr((ord(st)+x)); Ord - Что она выполняет???

HTC HD2 хороший телефон, бери не пожалеешь.

все уже сдал)

Никто не поможет?(

Какая халява?

Задачка простая, оплата 200р, условие скину в личку кто заинтересуется. Нужен только работающий код программы, желательно с комментами

up

ага(

smileman Честно говоря не понял вас) Да ЭВС.

Все вместе.

Привет всем! Препод задал курсовой по Микропроцессорным системам, может кто возьмется за него??? Об оплате договоримся!!!

N13 Хочу с тобой познакомиться

да я пытался его ремонтировать, там у него провода оторвались, саму катушку пытался снять, но безполезно и от крутилятора 4 крылышка оторвалось, толку нет его ремонтировать

Mike У вас есть кулер на данную модель???

апапа

Подскажите магазин, плиз, ноут вобще без кулера греется страшно((((((((

*23 Не где не могу найти его , подскажите где его можно купить, буду очень благодарен

Пишешь regedit наж ОК и все дальше смотришь по инструкции

ДА я с радостью!!!! напиши телефон, я тебе позвоню, только мне мама не разрешает, говорит что это пошло *25

example123 ОООО!!!! Да ты крут чувак клевая песня из башки не вылезает, я ее постоянно пою, продолжайте в том же духе ЧУваки вы жжопе!!!!