Rakstīt ziņojumu 
 
Pavediena vērtējums:
  • 0 balsis - 0 vidējais
  • 1
  • 2
  • 3
  • 4
  • 5
izmisumaa
Autors Ziņa
nez Atslēdzies
Junior Member
**

Ziņojumi: 1
Pievienojās: Oct 2010
Reputācija: 0
Ziņojums: #1
izmisumaa
man no text faila vajag ielasit simbolu rindas, veikt apstrai un pectma izvadīt citā text failā. ja ievades failā divas viena otrai sekojošas rindas ir viendādas, tad izvades failā atstāt tikai vienu no tām.
var

h,f:text;
s1,s2:string;

begin
assign(h,'a.txt');
assign(f,'b.txt');
reaset(h);
rewrite(f);

until not EoF(h) do begin
readln(h,s1);
readln(h,s2);
if s1<>s2 then
begin
writeln(f,s1);
writeln(f,s2);
end
else begin
writeln(f,s1);
end;
if s2='' then
writeln(f,s1);
end.


man ir tik tālu, bet kā lai izdara lai vinsh pārbaudītu nevis pirmo ar otro ridu, tresho ar ceturto, sesto ar septīto utt, bet gan pirmo ar otro, otro ar tresho, tresho ar ceturto utt, tākā ņemot tikai apr vienu tālāk?
20.10.2010 12:38
Atrast visus šī lietotāja rakstītos ziņojumus Citēt šo ziņu atbildē
Artūrs C. Atslēdzies
Msc Phys
**

Ziņojumi: 43
Pievienojās: Sep 2006
Reputācija: 0
Ziņojums: #2
RE: izmisumaa
rewrite(f);

readln(h,s1);
writeln(f,s1);

until not EoF(h) do begin
readln(h,s2);
if s1<>s2 then
begin
writeln(f,s2);
{piešķir mainīgajam s1 vērtību s2}
end
else begin
end;
if s2='' then writeln(f,s1); {ko dara šī daļa?}
end.
(Šo ziņojumu pēdējo reizi modificēja: 21.10.2010 00:42 Artūrs C..)
20.10.2010 13:36
Atrast visus šī lietotāja rakstītos ziņojumus Citēt šo ziņu atbildē
Rakstīt ziņojumu 


Lēciens uz forumu:



Kontaktifizmati.lvAtgriezties uz augšuAtgriezties pie saturaArhīva skatsRSS sindikācija