Search the Community
Showing results for tags 'txt'.
-
kā skaita programmas apakšlīmeņus? piemēram, ja man galvenajā programmā ir viena vai vairākas neatkarīgas procedūras, tad tā ir 2 līmeņu programma? un ja galvenajā programmā ir procedūra, kurā iekšā ir kāda funkcija, tad tā jau ir 3 līmeņu programma?
-
Jāpilda mājasdarbs divas stundas jau čakarējos, bet nevaru izdomāt. Uzd tāds, varbūt varat palīdzēt. Programma ievadīt Text failu, veikt tā apstrādi un apstrādes rezultātu izvadīt citā TEXT failā. Ja ievades failā divas viena otrai sekojošas rindas ir vienādas, tad izvades failā starp vienādajām rindām iespraust rindu ar tekstu COPY. Paraugs kurš jāmaina: program Lab1; uses CRT; var InpFile, {Ievada datu fails} OutFile :TEXT; {rezultatu fails} InputString, OutputString : string; OutfileName: string; CONST InpFileName='Lab1Inp.txt'; begin Assign(InpFile, InpFileName ); { Datu ievada fails } Reset(InpFile); writeln(' ievadi rezultata faila vaardu'); readln(OutFileName); assign(OutFile, OutFilename); { Rezultatu fails } rewrite(OutFile); CLRSCR; while (not EOF (InpFile)) do begin readln(InpFile, InputString); OutputString:=InputString; writeln( OutputString); OutputString:='Apstraadaatais teksts="' + Outputstring + '"'; writeln( OutputString); Writeln(OutFile, Outputstring); end; close(InpFile); close(OutFile); end.