Pievienot darbus Atzīmētie0
Darbs ir veiksmīgi atzīmēts!

Atzīmētie darbi

Skatītie0

Skatītie darbi

Grozs0
Darbs ir sekmīgi pievienots grozam!

Grozs

Reģistrēties

interneta bibliotēka
Atlants.lv bibliotēka
1,99 € Ielikt grozā
Gribi lētāk?
Identifikators:458474
 
Autors:
Vērtējums:
Publicēts: 01.06.2009.
Valoda: Latviešu
Līmenis: Augstskolas
Literatūras saraksts: Nav
Atsauces: Nav
Darba fragmentsAizvērt

1. Darba uzdevums
Apgūt elementāras TEXT failu apstrādes darbības. Programmā ievadīt Text failu, veikt tā
apstrādi un apstrādes rezultātus izvadīt citā TEXT failā. Ja ievades failā rinda beidzas as
vārdu „END” vai „end”, tad atlikušo faila daļu neapstrādāt.
2. Risinājuma principi
1. Nosakām programmai nepieciešamos mainīgos.
2. Ievada faila vārdu nosakām kā simbolu konstanti CONST inFileName='Lab1Inp.txt';
3. Izvada faila vārdu ievadīsim katru reizi izpildot programmu.
4. Saistām ievada un izvada loģiskos failus ar failiem uz diska.
5. Apstrādi veicam ieslēdzot izpildāmos operatorus WHILE tipa ciklā. Cikla ķermenī
ievietosim failu apkalpošanas operatorus, simbolu rindas apstrādes operatorus un datu
izvades operatorus procesa vizuālai kontrolei uz ekrāna.
while (not eof(inFile)) do
begin
readln(inFile, inString);
outString:=processedSrting(inString); writeln(outString);
writeln(outFile, outString);
if ((copy(inString,length(inString)-2,3) = 'end') OR
(copy(inString,length(inString)-2,3) = 'END')) then
begin
writeln;
writeln('Processing stopped because of ''END'' or ''end''.');
{$I-}
close(inFile);
close(outFile);
{$I+}
if ioresult <> 0 then
begin
writeln('Error #', ioresult, ' while closing the files.');
write('Press any key to exit');
key:=readkey;
exit;
end;
write('Press any key to exit');
key:=readkey;
exit;
end;
end.…

Autora komentārsAtvērt
Parādīt vairāk līdzīgos ...

Atlants

Izvēlies autorizēšanās veidu

E-pasts + parole

E-pasts + parole

Norādīta nepareiza e-pasta adrese vai parole!
Ienākt

Aizmirsi paroli?

Draugiem.pase
Facebook

Neesi reģistrējies?

Reģistrējies un saņem bez maksas!

Lai saņemtu bezmaksas darbus no Atlants.lv, ir nepieciešams reģistrēties. Tas ir vienkārši un aizņems vien dažas sekundes.

Ja Tu jau esi reģistrējies, vari vienkārši un varēsi saņemt bezmaksas darbus.

Atcelt Reģistrēties