Программа в паскале по переводу числа из двоичной СС в десятичную и блок схема к ней.

[Дарья Книга]

Школьный уровень.Я написала такую программу:

Program Ex;
var
  i,y,x,n,k:integer;
  s:real;
begin
  write('Введите число в 2-ой системе счисления: ');
  readln(n);
  x:=n;
  k:=n;
  while x>0 do
    begin
      x:=x div 10;
      inc(y);
    end;
  for i:=0 to y-1 do
    begin
      s:=(k mod 10)*Power(2,i)+s;
      k:=k div 10;
    end;
  writeln(s,' - число в 10-ной системе счисления');
end.

Она выполняется,всё нормально.Но моего учителя она не устроила.Он сказал,что здесь не нужно 2 цикла,сказал переписать программу с одним циклом и построить блок схему.Но я не знаю как сделать эту программу с одним циклом.Помогите пожалуйста. Для программистов это же раз плюнуть

[Hacker19_90]

Предлагаю другой подход!
Допустим вы считываете число в строку

ReadLn (W_String);

Подразумевается что запись числа прямая а не обратная!
Тогда для перевода числа используем степени двойки через експоненту

Dec_Number := 0;
for i := 0 to length(W_String) - 1 do
begin
    if W_String[i+1] = '1' then
         Dec_Number := Dec_Number +exp(ln(2)*(Length(W_String) - i));
end;
Writeln (Dec_Number);

[Дарья Книга]

К сожалению, я не могу в этом разобраться
Мы не проходили такие операторы.Но всё равно спасибо)))

[Hacker19_90]

К сожалению, я не могу в этом разобраться
Мы не проходили такие операторы.Но всё равно спасибо)))

Спрашивайте, помогу! Для этого и сделан форум!

[Дарья Книга]

Если я сделаю с операторами,которые мы не проходили,у меня опять не примут работу

[Hacker19_90]

Если я сделаю с операторами,которые мы не проходили,у меня опять не примут работу

Кто это вам сказал?
У вас не примут работу если вы сами в ней не разбираетесь, в противном случае можно подать жалобу на преподавателя, его заменят!
Операторы не сложные! А бы сказал что раз так в 100500 проще ваших!
Что конкретно вам не ясно в коде?

[Hacker19_90]

Ладно если вас не устраивает мой вариант, то вот ваш переделанный

write('Введите число в 2-ой системе счисления: ');
readln(n);
i := 0;
s := 0;
while n>0 do
begin
    if (n mod 10) = 1 then
        s := s+Power(2,i);
    n := n div 10;
    i := i + 1;
end;
writeln(s,' - число в 10-ной системе счисления');

Ограничение на ввод числа! Вы не введёте число длиньше 5 знаков что есть огромный минус!
Поэтому лучше всё таки взять мой вариант!

[Дарья Книга]

Я не знаю что такое W_String,Dec_Number и length

[Hacker19_90]

Я не знаю что такое W_String,Dec_Number и length

W_String строка
W_String: string; всё просто
Dec_Number число
Dec_Number: integer
length функция которая возвращает длину строки!

[Дарья Книга]

ec_Number := 0;
for i := 0 to length(W_String) - 1 do
begin
if W_String[i+1] = '1' then
Dec_Number := Dec_Number +exp(ln(2)*(Length(W_String) - i));
end;
Writeln (Dec_Number);




Это куда в моей программе вставлять?