Pascal

program programa;

var pirmas:text; antras:text;

begin

assign (pirmas, 'pirmas.txt');

reset(pirmas);

while not eoln (pirmas) do

readln(pirmas);

assign (antras, 'antras.txt');

rewrite(antras);

writeln(antras);

close(pirmas);

close(antras);

end.

kas blogai? ;) reik kad perskaitytu is pirmas.txt ir perkopijuotu i antras.txt

kad pas tave cia blogi funkciju iskvietimai writeln(antras), ka tu rasai ? reikia nurodyti faila, ir eilute, kuria nori rasyti i ta faila, turi atrodyt mazdaug writeln(antras,eilute). zodziu paguglink pascal write to file.

ghmz, tai tame ir esme kad nelabai suprantu ;) ziurejau as toje googleje, turiu nemazai lapu sia informacija, bet nesueina man galai niekaip :D

Parodyk ta pirmas.txt Ten tik vienas zodis? Jei ne tai reikia rasyti kiekviena zodi i masyva. Reikia ten visokias str() lenght() funkcijas naudot.

tam faile informacija tokia:

vardas

pavarde

adresas

mokykla gimnazija

kartais po while ... do begin end nereikia? beto ne eoln, o eof (end of file), manau turi but.

program programa;

var pirmas:text; antras:text;

eilute:string;

begin

assign (pirmas, 'pirmas.txt');

reset(pirmas);

assign (antras, 'antras.txt');

rewrite(antras);

while not eof (pirmas) do begin

readln(pirmas,eilute);

writeln(antras,eilute);

end;

close(pirmas);

close(antras);

end.

gal kazkas panasaus ir suveiks, neisivaizduoju ;)

vualia! veikia :)eoln tai cia tipo tik viena eilute nuskaito?

kartais po while ... do begin end nereikia? beto ne eoln, o eof (end of file), manau turi but.

 

program programa;

var pirmas:text; antras:text;

eilute:string;

begin

assign (pirmas, 'pirmas.txt');

reset(pirmas);

assign (antras, 'antras.txt');

rewrite(antras);

 

while not eof (pirmas) do begin

readln(pirmas,eilute);

writeln(antras,eilute);

end;

 

close(pirmas);

close(antras);

end.

 

gal kazkas panasaus ir suveiks, neisivaizduoju ;)

readln eilute nuskaito ;)

eof - vykdo cikla iki failo galo.

eoln - darytu cikla iki tavo eilutes galo (cia jei tarkim, dar po zodi turetum isskaidyt ir kazka padaryt).

atrodo taip :D