Добавить работы Отмеченные0
Работа успешно отмечена.

Отмеченные работы

Просмотренные0

Просмотренные работы

Корзина0
Работа успешно добавлена в корзину.

Корзина

Регистрация

интернет библиотека
Atlants.lv библиотека
1,99 € В корзину
Добавить в список желаний
Хочешь дешевле?
Идентификатор:458474
 
Автор:
Оценка:
Опубликованно: 01.06.2009.
Язык: Латышский
Уровень: Университет
Литературный список: Нет
Ссылки: Не использованы
Фрагмент работы

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.…

Коментарий автора
Загрузить больше похожих работ

Atlants

Выбери способ авторизации

Э-почта + пароль

Э-почта + пароль

Неправильный адрес э-почты или пароль!
Войти

Забыл пароль?

Draugiem.pase
Facebook

Не зарегистрировался?

Зарегистрируйся и получи бесплатно!

Для того, чтобы получить бесплатные материалы с сайта Atlants.lv, необходимо зарегистрироваться. Это просто и займет всего несколько секунд.

Если ты уже зарегистрировался, то просто и сможешь скачивать бесплатные материалы.

Отменить Регистрация