Вторник, 11.02.2025, 02:03
Блог учителя информатики и математики
О блогеМой профильРегистрацияВыходВход
Вы вошли как Гость · Группа "Гости" Приветствую Вас, Гость · RSS
Меню блога
Погода в нашем районе.

НАГРАДА
Как Вы считаете, должны ли дети ходить в школу в школьной форме?
[ Результаты · Архив опросов ]
Всего ответов: 2810
 
 Блог учителя
Главная » Статьи » Информатика » В помощь ученику
Открытие текстового файла для чтения (18 урок, часть 2).

                                  Открытие текстового файла для чтения.

Связь файловой переменной с именем файла на диске осуществляется с помощью оператора Assign(имя файловой переменной, имя файла на диске);
Имя файла на диске должно содержать полный путь для поиска данного файла. Если полный путь не указан, то программа будет искать файл в каталоге, где хранится программа.
Открытие файла для чтения выполняется процедурой Reset (имя файловой переменной), если на диске не будет файла с данным именем, то выполнение программы прервется;   
Открытие файла для записи осуществляется процедурой Rewrite (имя файловой переменной), если на диске нет такого файла, то он будет создан.
После открытия файлов, мы можем считывать данные и осуществлять вывод данных уже известными нами процедурами Read и Write.
И после, что мы должны сделать – это закрыть и файл для чтения и файл для записи процедурой Close

 

Для того чтобы открыть текстовый файл, его сначала нужно создать. Поэтому в директории, например, C:\Users\школа\Documents\шахматы.txt создаем файл в котором записано  «chess».

Далее набираем программу.

Program myfile;

Uses crt;

var fl:text;  // Записываем переменную «fl» и указываем для нее тип Text.

str:string; // Записываем переменную «str» и указываем для нее тип данных String. Её используем           для чтения строк из файла.

begin

clrscr;

assign (fl, 'C:\Users\школа\Documents\шахматы.txt');     // Записываем процедуру Assign, затем в круглых скобках указываем переменную, и через запятую в апострофах указываем путь к нашему файлу «text.txt».

reset (fl);   // Здесь происходит  инициация файла. Инициация файла – это открытие файла для чтения в данном случаи или записи при необходимости в др. задачах.

read (fl,str);  // Чтения записи из файла.

write(str);  // Выведем на экран значение строковой переменной «str».

close(fl);  // Стандартная процедура закрытия файла, указанного в скобках после слова Close.

readln

end.

 

ДЗ. Теперь жду правильного решения 2 задачи 18 урока, часть 1.

             

Категория: В помощь ученику | Добавил: Harchev (17.12.2013)
Просмотров: 2996 | Комментарии: 5 | Рейтинг: 4.1/42
Всего комментариев: 5
1 Маргарита  
Program Inversion;
var f : text; st : string; i, n: word;
begin
assign (f, 'file1.txt');
read (f,str);
n:=fileSize(f); //размер файла
while not eof (f) do
begin
for i:=n down to 0 //проход от конца файла к началу
do begin
seek(f, n); //переводим указатель в конец файла
readln (f, st);
write(f, st);
n:=n-1;
end;
end;
close (f);
end.
Ответ: Надо создать текстовый файл на внешнем носители.

2 Настя  
uses crt;
procedure replacestring(var str:string);
var
temp_str: string;
k: integer;
begin
temp_str := str;
for k := length(str) downto 1 do
str [ length(str) - k + 1 ] := temp_str [ k ];
end;

var
str: string;
f,g: TextFile;
begin
assign(f,'C:\Текстовый документ.txt');
assign(g,'C:\Текстовый документ (2).txt');
reset(f);
rewrite(g); d
while not eof(f) do
begin
readln(f,str);
replacestring(str);
writeln(g, str);
end;
close(f);
close(g);
end.

3 Ангелина & Анна  
Program myfile;
Uses crt;
var fl:text;
str:string;
begin
clrscr;
assign (fl, 'C:\Новая папка\hg.txt');
reset (fl);
read (fl,str);
write(str);
close(fl);
readln
end.

4 Кристен  
uses crt;
var
s: string;
i,n: byte;
f:text;
begin
assign (f, 'C:\текстовый файл.txt');
reset (f);
read (f,s);
close(f);
n := length(s) div 2;
for i:=length(s) downto 1 do
write(s[i]);
end.

5 Настя  
uses crt;
procedure replacestring(var str:string);
var
temp_str: string;
k: integer;
begin
temp_str := str;
for k := length(str) downto 1 do
str [ length(str) - k + 1 ] := temp_str [ k ];
end;

var
str: string;
f,g: text;
begin
assign(f,'C:\Текстовый документ.txt');
assign(g,'C:\Текстовый документ (2).txt');
reset(f);
rewrite(g);
while not eof(f) do
begin
readln(f,str);
replacestring(str);
writeln(g, str);
end;
close(f);
close(g);
end.

Имя *:
Email *:
Код *:
Copyright MyCorp © 2025
Блог учителя Учительский портал