-
Постов
66 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Блоги
Галерея
События
Весь контент Scorpion1991
-
Сложение двоичных чисел (помогите в коде программы)
Scorpion1991 опубликовал тема в Программирование
Программа написана на 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 - Что она выполняет???
-
Решить задачу по моделированию GPSS. Оплата разумеется
Scorpion1991 опубликовал тема в Программирование
Задачка простая, оплата 200р, условие скину в личку кто заинтересуется. Нужен только работающий код программы, желательно с комментами -
Привет всем! Препод задал курсовой по Микропроцессорным системам, может кто возьмется за него??? Об оплате договоримся!!!
-
Помогите, умер кулер на ноутбуке Aser Aspire 5730ZG
Scorpion1991 опубликовал тема в Компьютерное железо
*23 Не где не могу найти его , подскажите где его можно купить, буду очень благодарен -
Пишешь regedit наж ОК и все дальше смотришь по инструкции
-
ДА я с радостью!!!! напиши телефон, я тебе позвоню, только мне мама не разрешает, говорит что это пошло *25