Textcolor, Window, Textbackground в Pascal.

Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...

Использование program, begin…end, write, readln, Uses Crt, Clrscr.

В этом уроке мы напишем самую простую программу, состоящую всего из пяти строк. Эта программа будет выводить сообщение на экран. Для написания программы нам необходимо знать как работают операторы Write, Readln, а также понять для чего нужны ...

Приоритет выполнения логических операций в Pascal.

Логические операции применяются при написании многих программ в Pascal. Все операции имеют определенный приоритет выполнения : Первой выполняется операция NOT. Второй выполняется операция AND. Последними выполняются операции OR и XOR (Они имеют ...

Циклы и массивы

Работа со строковыми данными.

Написание большинства программ не обходится без строковых данных. Строковые данные используются при организации диалога для ввода исходных значений переменных, задания условий выполнения ...

Разветвляющийся вычислительный процесс.

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

Процедура Read может считывать информацию в переменные 4-х типов: строкового, символьного, целочисленного, вещественного. В прошлом уроке мы считывали информацию из файла в переменную строкового типа (String). В этом уроке разберем аналогичную ситуацию с символьным типом (Char).

В случае символьных переменных считывание происходит по одному символу. Например, если в файле записано слово «Pascal», то в переменную типа Char будет записан первый символ «P». Процедура Write в этом случае выведет на экран только одну букву «P». Например, изменим наш текстовый файл text.txt, записав в него слова «Turbo Pascal» и «Programmirovanie».

schitihvanie informacii iz fayjla v peremennihe simvoljnogo tipa

Считывание информации из текстового файла в символьную переменную.



Program file2;
Uses crt;
var fl:text;
str:char;
i:integer;
begin
clrscr;
assign (fl, 'programs\text.txt');
reset (fl);
read (fl,str);
write (str);
close(fl);
readln
end.




В строке №4 мы объявляем символьную переменную для считывания в нее информации из файла. Так как переменная символьного типа может хранить лишь один символ, то результатом программы будет выведенная на экран буква «T».

schitihvanie informacii iz fayjla v peremennihe simvoljnogo tipa.

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



Program file2_3;
Uses crt;
var fl:text;
str:char;
i:integer;
begin
clrscr;
assign (fl, 'programs\text.txt');
reset (fl);
while not Eof(fl) do
begin
read (fl,str);
write (str);
end;
close(fl);
readln
end.




В строке №10 записываем цикл. Функция Eof означает конец файла (End of file). В скобках после слова Eof указывается название файловой переменной, которая связана с файлом. Таким образом, строка №10 означает: пока не будет конец файла «fl», должны выполняться действия, после слова «do». После слова «do» расположены 2 оператора, которые должны быть выполнены в цикле.

Строка №12. Первый оператор считывает поочередно символы из файла в переменную «str».

Строка №13. Второй оператор выводит эти символы на экран.
Благодаря циклу, все символы из файла будут прочитаны и выведены на экран.

schitihvanie informacii iz fayjla v peremennihe simvoljnogo tipa..

schitihvanie informacii iz fayjla v peremennihe simvoljnogo tipa...


Предыдущая статья : Файлы в Паскаль.

Оглавление : Уроки Паскаль. Файлы.

Следующая статья : Файлы в Паскаль (часть 3).


Комментарии  

 
+1 # Олег 07.02.2013 17:38
Простите, а зачем в 5-ой строке переменная i????
Ответить
 
 
0 # Серик 22.06.2014 18:58
И я о том же)
Ответить
 
 
0 # III 23.06.2014 06:49
Она не используется, ее можно не писать
Ответить
 
 
0 # Лександр 19.05.2013 08:05
Полезная статья, доступное обьяснение :-)
Ответить
 

Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальФайлы в ПаскальЗапись в текстовый файл (продолжение).