VPF::Строка - перевод из bin в dec - Форум программистов

Senya91

Дата 11.5.2009, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Всем привет! В общем у меня есть задача, которую я в принципе почти решил, если бы не одно НО... Мне нужно ввести строку проверить есть ли в ней двоичные числа и если есть перевести их в десятичные, а затем вывести получившуюся строку.

Код


Program lab_stroki;
var
 k,x,i,bin2dec : integer;
 s,s1,s2,s3 : string;
begin
 writeln('Vvedite stroku');
 readln(s);
 s3:=s1;
 k:=pos('1',s);
 x:=k;
 s1:='';
 while (s[k]='0') or (s[k]='1') do
 begin
  s1:=s1+s[k];
  k:=k+1;
 end;
 bin2dec:=0;
 for i:=1 to length(s1) do
 begin
  bin2dec:=bin2dec+ord(s1[i])-ord('0');
  if i<length(s1) then bin2dec:=bin2dec*2;
 end;
 writeln(bin2dec);
 str(bin2dec,s2);
 delete(s,x,length(s1));
 insert(s2,s,x);
 writeln(s);
 readln
end.

Вроде все работает правильно, но у меня никак не получается заключить перевод числа в цикл = ( Помогите кто знает как это сделать плс.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »