|
Робота з файлами
|
|
| ovod | Дата: Четвер, 15.12.2011, 11:59 | Повідомлення # 1 |
|
Рядовий
Група: Адміністратори
Повідомлень: 9
Статус: Offline
| Для роботи з файлами треба спочатку вказати який файл хочемо вікрити
assignfile(f,'1.txt');
але спочатку він має бути описаний
var
f:textfile;
Далі потрібно вибрати як саме потрібно відкрити файл: для читання чи для запису
для читання є функція
reset(f);
для запису є функція
rewrite(f); яка очищає вміст файлу, а якщо він не існував то створює його
програма, яка зчитує деякий вміст одного файлу(останню стрічку) і записує в другий файл
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f,g:textfile;
s:string;
begin
assignfile(f,'input.txt'); //звязок з файлом f
reset(f); //відкритття файла для зчитування(вміст лишається)
while not eof(f) do //прохід по файлу до кінця
readln(f,s); //зчитування по стрічково
closefile(f); //закриття зв'язку з файлом f
assignfile(g, 'output.txt'); //звязок з файлом g
rewrite(g); //відкритття файла для запису(вміст стирається)
writeln(g,s); //запис у файл стрічки
closefile(g); //закриття зв'язку з файлом g
end.
|
| |
|
|
| ovod | Дата: Четвер, 15.12.2011, 12:00 | Повідомлення # 2 |
|
Рядовий
Група: Адміністратори
Повідомлень: 9
Статус: Offline
| Завданн1. Зробити так, щоб записувалася не тільки одна остання стрічка першого файлу, а весь файл.
|
| |
|
|
| ovod | Дата: Четвер, 15.12.2011, 12:03 | Повідомлення # 3 |
|
Рядовий
Група: Адміністратори
Повідомлень: 9
Статус: Offline
| Завдання2. Перевірити чи у файлі input.txt є слова "паліндроми", які можна читати зліва направао і навпаки як одне слово, наприклад "Пилип, піп, 1221, abccba"
знайдені слова записати у вихідний файл output.txt
|
| |
|
|
| ovod | Дата: Четвер, 15.12.2011, 12:03 | Повідомлення # 4 |
|
Рядовий
Група: Адміністратори
Повідомлень: 9
Статус: Offline
| var
f,g:textfile;
s:string;
i:integer;
b:boolean;
begin
assignfile(f,'input.txt'); //звязок з файлом f
reset(f); //відкритття файла для зчитування(вміст лишається)
assignfile(g, 'output.txt'); //звязок з файлом g
rewrite(g); //відкритття файла для запису(вміст стирається)
while not eof(f) do //прохід по файлу до кінця
begin
readln(f,s); //зчитування по стрічково
b:=true;
for i:=1 to trunc(length(s)/2) do
if s[i]<>s[length(s)-i+1]
then b:=false;
if b=true then
writeln(g,s); //запис у файл стрічки
end;
closefile(f); //закриття зв'язку з файлом f
closefile(g); //закриття зв'язку з файлом g
end.
|
| |
|
|
