🚀 go-pugleaf

kwiat wrote:

> witam serdecznie
> proszę o pomoc, nie programuje za bardzo w pascalu ;] i mam kłopot.
> Mianowicie chodzi mi o to żeby w tablicy statycznej umieścić cyfrę po
> cyfrze z bardzo dużej liczby (ponad 100 cyfr dziesiętnych).
> problem rozwiązałem wstępnie
> 
> Const
> max = 10000;
> 
> Var
>      tabA:array[1..max] of integer;
> 
> ...
> ...
> ...
> ...
> 
> 
> writeln('podaj ilosc cyfr pierwszego skladnika i nacisnij ENTER ');
> read(dA);
> 
> writeln('podaj kolejno te cyfry: (ENTER po kazdej z nich)');
> pom:=dA;
>      REPEAT
>          read(tabA[max-pom]);
>          pom:=pom-1;
>      UNTIL pom=0;
> write('pierwszy skladnik to: ');
> pom:=dA;
>      REPEAT
>          write(tabA[max-pom]);
>          pom:=pom-1;
>      UNTIL pom=0;

Nieco dziwny sposob organizowania petli. Nie lepszy bylby for?


> 
> 
> lecz to rozwiązanie, choć skuteczne  jest strasznie upierdliwe i
> niewygodne (jak chyba widać ;>>>)
> nie umiem zrobić rzutowania typów ze stringa na tablice (inta) ... jest
> to jden z moich pomysłów...  ale mogę użyć innego ;]

znak => kod acsii to ord 
stad ord(znak)-ord('0') daje wartosc cyfry.


> Celem jest zapisanie liczby w tablicy cyfra po cyfrze...
> efekt koncowy - tabA:   000... (...0...) ...000000000000000012345
> , dla  liczby  12345, no i muszę nać długość tej liczby.

Przeciez na wejsciu masz string wiec dlugosc to nie problem.


-- 
Krzysiek Rudnik