pascall
pascall
prosim vas neviete mi niekto povedat ako zapisem do textoveho suboru smernik?priklad znie: zo vstupneho textoveho suboru vytvorte dva spojove zoznamy znakov.prvy bude obsahovat pismena abecedy v rovnakom poradi v akom boli zadane.druhy vsetky cislice v opacnom poradi v akom boli zadane.vysledne zoznamy vypiste na obrazovku a do samostatnych suborov.keby to boli polia znakov tak to viem ale neviem ako zapisovat a vypisovat do suborov smerniky.prvy zoznam bude asi fronta a druhy zasobnik.nevie mi niekto pomoct?dakujem
-
harrison314
Hardcore addict
- Príspevky: 8217
- Registrovaný: 27 máj 2009, 20:42
- Bydlisko: Bratislava
- Kontaktovať používateľa:
Re: pascall
Tam ziaden smernik nebude, prosto do suboru postupne zapises vsetky prvky zoznamu, napriklad kazdy na samostatny riadok.
Re: pascall
Pri načítaní tých čísel a tvorbe spojákov sa nezapodievaj nejakými zásobníkmi a frontami.
Urobíš to jednoducho tak, že jeden spoják bude pri tvorbe "rásť" doľava a druhý doprava. Čiže do jedného budeš vkladať nový prvok vždy na koniec a do druhého vždy na začiatok. Tak ti vzniknú tie dva požadované spojáky.
Do súboru žiadny spoják nezapíšeš, tam zapíšeš len samotné čísla v poradí, v akom sú. Úlohou súboru nie je držať celú štruktúru, ale iba tie potrebné dáta.
Urobíš to jednoducho tak, že jeden spoják bude pri tvorbe "rásť" doľava a druhý doprava. Čiže do jedného budeš vkladať nový prvok vždy na koniec a do druhého vždy na začiatok. Tak ti vzniknú tie dva požadované spojáky.
Do súboru žiadny spoják nezapíšeš, tam zapíšeš len samotné čísla v poradí, v akom sú. Úlohou súboru nie je držať celú štruktúru, ale iba tie potrebné dáta.
Re: pascall
tak mam toto ale nezapise to do suboru.
program Untitled;
type
PPrvok = ^TPrvok;
TPrvok = record
x: integer;
Dalsi: PPrvok
end;
function Prvok( ax: integer; aDalsi: PPrvok ): PPrvok;
var p: PPrvok;
begin
new( p );
p^.x := ax;
p^.Dalsi := aDalsi;
Prvok := p
end;
var ZAC, p : PPrvok;
t:text;
begin
ZAC := Prvok( 1,
Prvok( 2,
Prvok( 3,
Prvok( 4,
Prvok( 5,
Prvok( 6,
Prvok( 7,
Prvok( 8,
Prvok( 9,
Prvok( 10,
Prvok( 11, NIL )))))))))));
assign(t,'C:\users\pasto\desktop\subor.txt');
rewrite(t);
p := ZAC;
while p<>NIL do
begin
read(t,p^.x);
write(p^.x,' ' );
p := p^.Dalsi
end;
program Untitled;
type
PPrvok = ^TPrvok;
TPrvok = record
x: integer;
Dalsi: PPrvok
end;
function Prvok( ax: integer; aDalsi: PPrvok ): PPrvok;
var p: PPrvok;
begin
new( p );
p^.x := ax;
p^.Dalsi := aDalsi;
Prvok := p
end;
var ZAC, p : PPrvok;
t:text;
begin
ZAC := Prvok( 1,
Prvok( 2,
Prvok( 3,
Prvok( 4,
Prvok( 5,
Prvok( 6,
Prvok( 7,
Prvok( 8,
Prvok( 9,
Prvok( 10,
Prvok( 11, NIL )))))))))));
assign(t,'C:\users\pasto\desktop\subor.txt');
rewrite(t);
p := ZAC;
while p<>NIL do
begin
read(t,p^.x);
write(p^.x,' ' );
p := p^.Dalsi
end;
Re: pascall
1. zdroják dávaj do tagov CODE
2. toto má robiť čo? (tá otáznikmi označená časť)
2. toto má robiť čo? (tá otáznikmi označená časť)
Kód: Vybrať všetko
while p<>NIL do
begin
read(t,p^.x); {???}
write(p^.x,' ' ); {???}
p := p^.Dalsi
end;