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

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

Логические и символьные константы.

В данном уроке будет рассмотрено применение логических и символных констант. Логическая константа может принимать только 2 значения, либо True, либо False. В качестве значения символьной константы могут использоваться любые символы, которые есть в ...

Ветвления в Pascal.

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

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

Отображение на экране значений двумерного массива.

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

Тип данных Integer.

Тип INTEGER (целый). Этот тип представляет множество целых чисел диапазона от -32768 до 32767. В памяти ЭВМ  под целое число отводится два байта (16 бит).

Процедура 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).


Комментарии  

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

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

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

   ГлавнаяПаскальФайлы в Паскаль