VPF::путает при перевод из 2 в 10 - Форум программистов

Pandemonius

Дата 14.5.2007, 18:56 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 14.5.2007

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

люди выручайте в теории работает, а на практике smile

?! в ме сто 5 выводит 6 а вместо 7 выводит 4?

Код


program perevod;
var
 g:integer;
  dv:integer;
 d,i,n,y,m:integer;

 x1,x2:string;
function step(o:integer; l:integer):integer;
begin
m:=1;
if l>=2 then begin
 for i:=1 to l do
  m:=m*o;
 end;
if l=1 then m:=2;
if l=0 then m:=1;
 step:=m;
end;
procedure perevod2_10(x:string);
 begin
  dv:=2;
  y:=0;
  n:=ord(x[0]);
  g:=n-1;

  for i:=1 to n do begin
   if x[i]='1' then begin
     y:=y + step(2,g);
    end;
   g:=g-1;
  end;
 end;
begin
writeln('Vvedite 1 chislo');
readln(x1);
perevod2_10(x1);
writeln(y);
readln;
end.

ama_kid

Дата 15.5.2007, 09:01 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

Ярчайший пример неправильного использования переменной цикла в качестве глобальной!... Ты трассировать не пробовал? smile

Попробовал бы - узнал бы много интересного... Кто учил тебя использовать глобальную переменную цикла (i) в нескольких циклах одновременно? Сначала ты используешь её в функции perevod и затем внутри цикла ты вызываешь функцию step, которая тоже её использует!... Лови исправленный код:

Код

program perevod;
uses crt;
var
 g:integer;
 d,n,y:integer;
 x1,x2:string;

function step(o:integer; l:integer):integer;
var
 r:integer;
 i:integer;
begin
r:=1;
if l=0 then r:=1 else
if l=1 then r:=2 else
 for i:=1 to l do r:=r*o;
step:=r;
end;

procedure perevod2_10(x:string);
var
 i:integer;
begin
  y:=0;
  n:=ord(x[0]);
  g:=n-1;

  for i:=1 to n do
   begin
    if x[i]='1' then y:=y + step(2,g);
    g:=g-1;
   end;
end;

begin
writeln('Vvedite 1 chislo');
readln(x1);
perevod2_10(x1);
writeln(y);
readkey;
end.

--------------------

самурай без меча подобен самураю с мечом, но только без меча

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