GUNIS95 Ierakstīts Februāris 16, 2015 Share Ierakstīts Februāris 16, 2015 Sveiki! Uzdevums: Ja ievades failā viena otrai sekojošas rindas ir vienādas tad izvadfailā starp šīm rindām ievadīt vārdu COPY. Kāds varētu dot kādu ideju? Link to comment Share on other sites More sharing options...
VIL Februāris 16, 2015 Share Februāris 16, 2015 (labots) if a=b then c:=a+#13+#10+'COPY'+#13+#10+b; Labots Februāris 16, 2015 - VIL Link to comment Share on other sites More sharing options...
GUNIS95 Februāris 16, 2015 Author Share Februāris 16, 2015 Lūk kods, līdz galam nestrādā, kas īsti nav pareizi? program Lab1; uses CRT; var InpFile, {Ievada datu fails} OutFile :text; {rezultatu fails} i:integer; InputString, OutputString,OutputString1 : string; OutfileName: string; CONST InpFileName='Lab1Inp.txt'; begin { Failu sagatavoana I/O darbŅbŌm } Assign(InpFile, InpFileName ); { Datu ievada fails } Reset(InpFile); writeln(' ievadi rezultata faila vaardu'); readln(OutFileName); assign(OutFile, OutFilename); { Rezultatu fails } rewrite(OutFile); {Failu apkalpanas darbŅbas } i:=0; while (not EOF (InpFile)) do begin readln(InpFile, InputString); OutputString:=InputString; readln(InpFile, InputString); OutputString1:=InputString; seek(InpFile,i); i:=i+1; Writeln(OutFile,OutputString); If OutputString=OutputString1 then Writeln(OutFile,'COPY'); Writeln(OutFile, Outputstring1); end; { Failu aizversana } close(InpFile); close(OutFile); readln; end. Link to comment Share on other sites More sharing options...
VIL Februāris 16, 2015 Share Februāris 16, 2015 liekās rindas: viss, kas satur mainīgo "i" un seek. pirms cikla OutputString piešķiram kaut ko sliktu, piem., ''; ciklā lasām vienu stingu un pieglabājam iekš InputString ja InputString=OutputString , tad drukājam 'COPY'; pēc tam OutputStringā ieliekam InputString vērtību un izdrukājam Outputstringu. ar to vajadzētu pietikt. OutputString1 ir lieks mainīgais. Link to comment Share on other sites More sharing options...
Recommended Posts
Izveido kontu, vai pieraksties esošajā, lai komentētu
Jums ir jābūt šī foruma biedram, lai varētu komentēt tēmas
Izveidot jaunu kontu
Piereģistrējies un izveido jaunu kontu, tas būs viegli!
Reģistrēt jaunu kontuPierakstīties
Jums jau ir konts? Pierakstieties tajā šeit!
Pierakstīties tagad!