Глобальные и локальные переменные, одна и та же прога в процедуре Не работает, а просто так работает. Почему?

@Илья01 · Регистрация: 30.12.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте, есть программка которая переводит из 2-ной системы в 10-ную. Она работает. А вот поместил я её в процедуру и работать перестала. Я выяснил что это из-зо того что переменные не глобальные, а только для этой процедуры. Странно, помойму этого быть не должно. Помогите пожалуйста разобраться. Вот работающий код:

Pascal

uses crt;
var
len,q,e,w,r1,r2,otvet:integer;
sislo:string;
bykvi1:array[1..1000] of integer;
bykvi2:array[1..1000] of integer;
 
function power(r1,r2:integer):integer;
var res,r3:integer;
 begin
  r3:=r1;
  r2:=r2-1;
  if r2+1<>0 then begin
  while r2>0 do begin
  r2:=r2-1;
  r1:=r1*r3;
  end;
  end
  else
  begin
  r1:=1;
  end;
  power:=r1;
 end;
begin
 clrscr;
 writeln('is 2noi v 10nuy');
 writeln('vvedi sislo');
 readln(sislo);
 len:=length(sislo);
 for q:=1 to len do begin {zapis sifr v massiv}
  val(copy(sislo,q,1),w,e);
  bykvi1[q]:=w;
 end;
 q:=len;
 w:=0;
 repeat
  w:=w+1;
  q:=q-1;
  otvet:=otvet+bykvi1[w]*power(2,q);
  write(bykvi1[w],'*2','^',q);
  if q<>0 then write('+');
until q=0;
writeln;
writeln (otvet);
readln;
end.

А вот НЕ работающий:

Pascal

uses crt;
procedure aaa;
var
len,q,e,w,r1,r2,otvet:integer;
sislo:string;
bykvi1:array[1..1000] of integer;
bykvi2:array[1..1000] of integer;
 
function power(r1,r2:integer):integer;
var res,r3:integer;
 begin
  r3:=r1;
  r2:=r2-1;
  if r2+1<>0 then begin
  while r2>0 do begin
  r2:=r2-1;
  r1:=r1*r3;
  end;
  end
  else
  begin
  r1:=1;
  end;
  power:=r1;
 end;
begin
 clrscr;
 writeln('is 2noi v 10nuy');
 writeln('vvedi sislo');
 readln(sislo);
 len:=length(sislo);
 for q:=1 to len do begin {zapis sifr v massiv}
  val(copy(sislo,q,1),w,e);
  bykvi1[q]:=w;
 end;
 q:=len;
 w:=0;
 repeat
  w:=w+1;
  q:=q-1;
  otvet:=otvet+bykvi1[w]*power(2,q);
  write(bykvi1[w],'*2','^',q);
  if q<>0 then write('+');
until q=0;
writeln;
writeln (otvet);
readln;
end;
begin
aaa;
end.

Выдает не правильные результаты.

@Puporev · 19.10.2011, 12:40

Сообщение от Илья01

Выдает не правильные результаты.

Я на нескольких числах проверил, результат правильный, такой же что и в первой программе. Покажите что вводите при неверном результате.

@Илья01 · 19.10.2011, 16:24 **[ТС]**

В первой программе ввожу 15 выдает 7
Во второй ввожу 15 выдает 4611

Добавлено через 1 минуту
А может дело в версии tp? Я проверял на tp7.1 и tp school pak 1.3

@Puporev · 19.10.2011, 16:52

Чтобы быстрее запустил обе программы в Паскаль АВС. Как говорится, найди 10 отличий.

@Илья01 · 19.10.2011, 19:31 **[ТС]**

Puporev, я не знаю в чем у вас дело, но у меня такого нет( А вы только с ABC запускали? На простом tp пробовали?

@Puporev · 19.10.2011, 19:50

Нет, попробую, но думаю будет тоже...

Добавлено через 4 минуты
Да, в ТП вторая работает неверно.

Добавлено через 3 минуты
Лень полностью разбираться, программа плохо написана
Перекинь переменные в глобальные

Pascal

var
len,q,e,w,r1,r2,otvet:integer;
sislo:string;
bykvi1:array[1..1000] of integer;
bykvi2:array[1..1000] of integer;
procedure aaa;

Добавлено через 4 минуты
Так пока напиши.

Pascal

uses crt;
procedure aaa(sislo:string;var otvet:integer);
var len,q,w,e:integer;
    bykvi1:array[1..1000] of integer;
    bykvi2:array[1..1000] of integer;
function power(r1,r2:integer):integer;
var res,r3:integer;
 begin
  r3:=r1;
  r2:=r2-1;
  if r2+1<>0 then begin
  while r2>0 do begin
  r2:=r2-1;
  r1:=r1*r3;
  end;
  end
  else
  begin
  r1:=1;
  end;
  power:=r1;
end;
begin
 clrscr;
 writeln('is 2noi v 10nuy');
 writeln('vvedi sislo');
 readln(sislo);
 len:=length(sislo);
 for q:=1 to len do begin {zapis sifr v massiv}
  val(copy(sislo,q,1),w,e);
  bykvi1[q]:=w;
 end;
 q:=len;
 w:=0;
 repeat
  w:=w+1;
  q:=q-1;
  otvet:=otvet+bykvi1[w]*power(2,q);
  write(bykvi1[w],'*2','^',q);
  if q<>0 then write('+');
until q=0;
writeln;
writeln (otvet);
readln;
end;
var r:integer;
    s:string;
begin
aaa(s,r);
end.

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	19.10.2011, 12:40	2
	Сообщение от Илья01 Выдает не правильные результаты. Я на нескольких числах проверил, результат правильный, такой же что и в первой программе. Покажите что вводите при неверном результате. 0

@Илья01 10 / 10 / 5 Регистрация: 30.12.2010 Сообщений: 379
	19.10.2011, 16:24 [ТС]	3
	В первой программе ввожу 15 выдает 7 Во второй ввожу 15 выдает 4611 Добавлено через 1 минуту А может дело в версии tp? Я проверял на tp7.1 и tp school pak 1.3 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	19.10.2011, 16:52	4
	Чтобы быстрее запустил обе программы в Паскаль АВС. Как говорится, найди 10 отличий. Миниатюры 1

@Илья01 10 / 10 / 5 Регистрация: 30.12.2010 Сообщений: 379
	19.10.2011, 19:31 [ТС]	5
	Puporev, я не знаю в чем у вас дело, но у меня такого нет( А вы только с ABC запускали? На простом tp пробовали? 0

Опции темы