Пример работы с текстовым файлом

Пример 1: Распечатать и просуммировать все целые числа, входящие в файл proba.txt.

Var

F: text;

S, К: Integer;

begin

Assign(F,'. proba.txt '); {Файл proba.txt должен существовать}

Reset (F);

S:=0;

While Eof( F) = False do {Цикл работает пока файл не будет

считан до конца}

Begin

Readln (f, К ); {Чтение из файла очередного числа}

S :=S+K; {Суммирование}

Write(K:5); {Вывод на экран }

End;

Writeln;

Writeln( ‘сумма всех чисел равна', S:6);

End.

Если исходный файл proba.txt был:

1 -4 3 6

80 -70

То результат прогона программы приведённой в примере 1 будет:

1 -4 3 6 80 -70

сумма всех чисел равна 16

Приложение 4

Оформление экрана

Подключение модуля CRT к пользовательской программе осуществляется следующим образом:

uses CRT;

Основные группы функций и процедур этого модуля:

Очистка экрана

Процедуры, входящие в эту группу, позволяют программисту управлять стоянием строк на экране и выполнять некоторые другие действия, относящиеся работе с экраном.

ClrScr — полностью очищает экран или текущее окно и помещает курсор в левый верхний угол экрана (координаты 1,1). Выполняется только в текстовом режиме работы экрана.

ClrEol — стирает все символы в строке, начиная с текущей позиции курсор конца строки.

DelLine — полностью стирает содержимое строки, в которой расположен курсор; все нижестоящие строки перемещаются на одну позицию вверх.

InsLine — вставить пустую строку в позицию экрана, где расположен курсор все нижестоящие строки перемещаются на одну позицию вниз.

Управление курсором

Наиболее распространённым режимом экрана является режим с характеристиками 25 строк по 80 символов в каждой [2].

• GoToXY(X,Y:byte) - процедура перемещает курсор в позицию, заданную координатами X (столбец) Y (строка), относительно текущего окна (оконная система модуля CRT рассматривается ниже). Если рассматривать экран как максимально возможное по размеру окно, то диапазон значений для Х= 1..80, для Y= 1..25, что соответствует текстово­му режиму работы адаптера дисплея 80x25. Верхний левый угол экрана имеет ко­ординаты (1,1), правый нижний — (80,25).

• Функции WhereX: byte и WhereY: byte позволяют получить значение Х- или Y-координаты курсора относительно текущего окна. Диапазон возвращаемых значе­ний определяется полным экраном (1..80 для X и 1..25 для Y) или размерами теку­щего окна.

Например:

Write('Курсор находится в столбца ',WhereX);

Write('Курсор находится в строке ',WhereY);

Управление звуком

Под этим подразумевается управление динамиком, встроенным в системный блок компьютера. Для управления звуком в модуле CRT предназначены три процедуры: Sound, NoSound и Delay. Вот что они со­бой представляют.

• Процедура Sound (Hz : Word) - заставляет звучать внутренний динамик. Здесь Hz— значение, соответствующее частоте звука (выраженной в герцах). После обращения к Sound, управление передается следующему опе­ратору в программе, а звук продолжается до тех пор, пока не будет вы­звана процедура NoSound.

• Процедура NoSound -прекращает подачу звукового сигнала на внутренний динамик ком­пьютера.

• Процедура Delay(ms : Word) - приостанавливает выполнение программы на заданное временя. Здесь MS — значение, определяющее интервал времени в миллисекундах. Иными словами, управление от Delay к следующему оператору программы передается с задержкой, которую определяет параметр MS. Так, обращение Delay(5000) задержит программу ровно на 5 с.

Приложение 5