pomoc s jednym prikladom v pascale

Zdravim potrebujem nacitat postupnost cisel ale do predu neviem kolko tych cisel bude aky mam pouzit datovy typ?a ako by to vyzeralo zapisane v pascale?diky

tak určite nejakú dynamickú štruktúru, no vhľadom na to že som videl niektoré tvoje problémy s pascalom (nič v zlom) tak to asi nebudeš vedieť. V tom prípade môžeš použiť napríklad súbor

daj vediet ake tie cisla budu ci integer real byte ...
a kolko ich priblizne bude a co ma ten program presne robyt

povedal že nevie koľko ich bude

tu to mas

program postupnaost;
uses crt;
type sub=file of integer;

procedure start(var f:sub);
begin
{$I-}
reset(f);
{$I+}
if IOresult<>0 then rewrite(f);
close(f);
end;

procedure pridaj(var f:sub);
var pom:integer;

begin
reset(f);
seek(f,filesize(f));
repeat
clrscr;
write('zadaj cislo: ');
readln(pom);
write(f,pom);
write('Chces zadat dalsie cislo [A/..');
until upcase(readkey)<>'A';
close(f);
end;


procedure vypis(var f:sub);
var pom:integer;
begin
clrscr;
write('cisla v subore su: ');
reset(f);
while not eof(f) do
begin
read(f,pom);
write(pom,' ');
end;
close(f);
writeln;
writeln('pokracujes stlacenim lub. klavesy');
readkey;
end;

var f:sub;
volba:char;
nazov:string;
begin
clrscr;
write('zadaj nazov suboru: ');
readln(nazov);
assign(f,nazov);
start(f);
repeat
clrscr;
writeln('Pre pridavanie stlac "P"');
writeln('Pre vypis stlac "V"');
writeln('Pre koniec stalc "ESC"');
volba:=upcase(readkey);
case volba of
'P':pridaj(f);
'V':vypis(f);

else begin end;

end;
until volba=#27;
end.

napíš čo s nimi chceš robiť, lebo ukladať to do súboru je časovo neefektívne.

no cely priklad by mal byt asi takyto: scitat postupnost cisel ktore uzivatel zada pocet cisel nieje dopredu znamy a vysledok potom premenit podla vyberu uzivatela do dvojkovej alebo osmickovej alebo sestnaskovej sustavy.tie premienania viem ako spravit ale neviem ako mam nacitat postupnost cisel ked do predu neviem pocet cisel v tej postupnosti.asi tak...

jáj... šak ty ich nepotrebuješ načítavať. Potrebuješ premieňať ich súčet.. ti stačí premenná súčet typu integer a pri zadaní nového čísla ju iba zvýšiš. Je ti jedno koľko ich je a nepotrebuješ ich mať osobitne. Nejak takto:


ešte si do toho case dorob ostatné volby a k nim príslušné procedúry na zmenu sústavy. Budeš v nich posielať ako argument sucet

aha ozaj to ma nenapadlo velmi pekne dakujem

mam troska problem s tym prikladom...neviem preco ale nefunguje mi ked stlacim esc tak sa nic nestane:( a ono to povodne malo byt iba tak ze zapnem program, zadan cislo, stlacim enter a zadam dalsie az pokial nezadam nulu a vtedy mi vypise vysledok a spyta sa do akej sustavy ma premenit ten sucet vsetkych cisel...v podstane viem spravit skoro vsetko len neviem preco mi nereaguje ked zadam nulu:(

no tak to neviem ani ja pokiaľ nevidím zdroják, ale riešil by som to takto: