Pascal

Sveiki, gal kas nors galėtų padėti su šituo:

program TrysBylos;

var prad,

pirma, antra: text;

x, y: integer;

begin

assign(prad, 'C:\skaiciai.TXT'); reset(prad);

assign(pirma, 'C:\DUOMENYS\PIRMA.TXT'); rewrite(pirma);

assign(antra, 'C:\DUOMENYS\ANTRA.TXT'); rewrite(antra);

read(prad, x); writeln(pirma, x);

read(prad, x, y); writeln(antra, x, y: 10)

end.

Kiek suprantu šita program turėtų iš bylos C diske paimti įrašytą pirmą skaitmenį ir jį įrašyti į aplanke DUOMENYS esantį failą PIRMA. Paskui paimt pirmą ir antrą skaičių ir įrašyti į failą ANTRA. Isn't? Sukopinu programą į fps, susikuriu visus failus, kur jie turėtų būti, bet kai paleidžiu programą, ir paskui atsidarau PIRMA arba ANTRA bylas, jos būna tuščios. Kame šaknys?

Reikia uzdaryti bylas. Pries end. iterpk:

close(pirma);

close(antra);

close(prad);

:blink:

Labai ačiū, kai būna neišbaigta ten iš ko mokais, sunku susigaudyti;]

Ok, dar vienas prašymas jeigu turi šiek tiek laiko. Štai uždavinys, kurio niekaip nepavyksta parašyt tobulai...

Koordinačių plokštumoj yra keturkampis, jo kraštinės lygiagrečios plokštumos ašims, koordinatės įvedamos iš klaviatūros.

Programa turi parašyti ar priklauso taškas ( taško koordinatės įvedamos iš klaviatūros) figūrai ar ne. Va, nelabai pavyksta man, antras vakaras nesumąstau, nenoriu sustot ilgesniam laikui vietoj - tad laukiu patarimo, kad būtų greičiau

Sprendimo principą man atrodo pagavau, bet iki galo taip ir neišeina.