pascall

Programovacie jazyky, rady, poradňa...
henrik35
Amateur
Amateur
Príspevky: 11
Registrovaný: 05 mar 2014, 21:39

pascall

Príspevok od používateľa henrik35 »

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
Hardcore addict
Používateľov profilový obrázok
Príspevky: 8217
Registrovaný: 27 máj 2009, 20:42
Bydlisko: Bratislava
Kontaktovať používateľa:

Re: pascall

Príspevok od používateľa harrison314 »

Tam ziaden smernik nebude, prosto do suboru postupne zapises vsetky prvky zoznamu, napriklad kazdy na samostatny riadok.
BX
Addict
Addict
Používateľov profilový obrázok
Príspevky: 4572
Registrovaný: 10 jan 2008, 15:30

Re: pascall

Príspevok od používateľa BX »

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.
henrik35
Amateur
Amateur
Príspevky: 11
Registrovaný: 05 mar 2014, 21:39

Re: pascall

Príspevok od používateľa henrik35 »

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;
BX
Addict
Addict
Používateľov profilový obrázok
Príspevky: 4572
Registrovaný: 10 jan 2008, 15:30

Re: pascall

Príspevok od používateľa BX »

1. zdroják dávaj do tagov CODE
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;
Napísať odpoveď