🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.os.linux.programowanie
Article #60473

wczytywanie intów do tablicy PASCAL , niby proste? ;] pomocy

#60473
From: kwiat
Date: Mon, 14 Nov 2005 21:58
45 lines
2137 bytes
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;


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 ;]
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.

dziękuje bardzo za szybką pomoc  i pozdrawiam serdecznie !!
Kwiat
Technical Details
Message-ID: <16789$4379088c$57cfe8bd$18893@news.chello.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!newsfeed.pionier.net.pl!news-fra1.dfn.de!newsfeed.ision.net!ision!newsfeed.freenet.de!newsfeed01.chello.at!newsfeed02.chello.at!news.chello.pl.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!newsfeed.pionier.net.pl!news-fra1.dfn.de!newsfeed.ision.net!ision!newsfeed.freenet.de!newsfeed01.chello.at!newsfeed02.chello.at!news.chello.pl.POSTED!not-for-mail
Date: Mon, 14 Nov 2005 22:58:43 +0100
From: kwiat <cc@o2.pl>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; PL; rv:1.7.12) Gecko/20050915
X-Accept-Language: pl, en-us, en
MIME-Version: 1.0
Newsgroups: pl.comp.os.linux.programowanie
Subject: wczytywanie intów do tablicy PASCAL , niby proste?
 ;] pomocy
Message-ID: <16789$4379088c$57cfe8bd$18893@news.chello.pl>
X-Complaints-To: abuse@chello.pl
Organization: chello.pl
Lines: 45
NNTP-Posting-Host: 87.207.232.189 (87.207.232.189)
NNTP-Posting-Date: Mon, 14 Nov 2005 22:58:36 +0100
X-Trace: 167894379088cf26a4d1818893
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit