Образовательный портал Claw.ru
Всё для учебы, работы и отдыха
» Шпаргалки, рефераты, курсовые
» Сочинения и изложения
» Конспекты и лекции
» Энциклопедии

{$I+}

{ если не нуль, то была ошибка }

if IOResult <> 0 then

begin

Write('Error when open file ', S, ' !');

Halt;

end;

{ иначе все в порядке, продолжаем }

{ ЦИКЛ: пока НЕ КОНЕЦ ФАЙЛА }

While (not Eof(T)) do

begin

{ читаем из файла переменную }

Read(T, C);

{ если пробел, увеличиваем счетчик }

If C = ' ' then Inc(Spaces);

Write(C);

end;

Writeln('КОЛИЧЕСТВО ПРОБЕЛОВ: ', Spaces);

Readln;

end.

Думаю, здесь все ясно. Продолжаем двигаться дальше и посмотрим, как производиться запись в файлы.

Запись в файлы. Вы еще не догадались? Запись в файлы производиться точно так же, как и запись на экран - с помощью процедур Write и Writeln. Как и в случае с чтением, перед записываемой в файл переменной указывается тескриптор файла:

Write(F, S);

Здесь F - дескриптор, S - переменная.


Рекомендуем скачать другие рефераты по теме: курсовые работы бесплатно, курсовик.


Категории:




Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22 |


Поделитесь этой записью или добавьте в закладки

   



Рефераты от А до Я