Использование Var, Integer, Readln.

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

Умножение, деление, сложение, вычитание вещественных чисел в Pascal.

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

Textcolor, Window, Textbackground в Pascal.

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

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

Примеры использования различных операторов цикла.

Примеры использования различных операторов цикла.

ФАЙЛЫ ЗАПИСЕЙ

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

Процедура 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
Полезная статья, доступное обьяснение :-)
 
 
0 # Светлана 11.03.2017 08:40
Спасибо большое за ваши труды! :-) :-) :-)
 
 
+1 # Виктория 19.03.2017 15:59
Простите, не могли бы Вы подсказать как осуществить запись данный из файла в массив записей?
 
   ГлавнаяПаскальФайлы в ПаскальСчитывание информации из файла в переменную символьного типа.