Пожалуйста, помогите разобраться с файлами в паскале, на примере такой задачи: Дано два числа, найти их сумму. При этом числа взять из файла input.txt, а результат записать в файле output.txt.
Пример:
input.txt:
3 5
output.txt:
8
Другие языки программирования и технологии
Работа с файлами. PascalABC.
А что книжки читать - это уже не модно?
Если серьезно, то чтобы паскаль понял с каким файлом ты собераешься работать то тебе надо на этот файл указать. Тогда паскаль сможет с ним работать.
assign(F, 'Input.txt'); здесь F переменная файлового типа, т. е var. F: Text; При чем именно текстового файла. Далее сам Паскаль не знает что тебе с этим файлом нужно делать. То ли ты в него записывать собираешься то ли ты из него читать данные будешь. Поэтому для первого делаем Rewrite(F); для второго Reset(F);
Потом уже считаем данные либо записываем их. Read(F, x); - мы читаем данные. x - это переменная куда мы данные из файла запишем. Write(F, x); - мы записываем данные. А этом случае мы из x берем данные а в F записываем.
Ну и конечно закрываем файлы. Это обязательная процедура. Close(F);
var Inp, Outp: Text; // переменная файлового типа
x, y: integer;
begin
assign(Inp, 'Input.txt');
assign(Outp, 'Output.txt');
Reset(Inp);
Rewrite(Outp);
Read(Inp, x); // читаем данные
Read(Inp, y);
x := x + y;
Write(Outp, x); // пишем данные
Close(Inp); // закрываем файлы
Close(Outp);
end.
Если серьезно, то чтобы паскаль понял с каким файлом ты собераешься работать то тебе надо на этот файл указать. Тогда паскаль сможет с ним работать.
assign(F, 'Input.txt'); здесь F переменная файлового типа, т. е var. F: Text; При чем именно текстового файла. Далее сам Паскаль не знает что тебе с этим файлом нужно делать. То ли ты в него записывать собираешься то ли ты из него читать данные будешь. Поэтому для первого делаем Rewrite(F); для второго Reset(F);
Потом уже считаем данные либо записываем их. Read(F, x); - мы читаем данные. x - это переменная куда мы данные из файла запишем. Write(F, x); - мы записываем данные. А этом случае мы из x берем данные а в F записываем.
Ну и конечно закрываем файлы. Это обязательная процедура. Close(F);
var Inp, Outp: Text; // переменная файлового типа
x, y: integer;
begin
assign(Inp, 'Input.txt');
assign(Outp, 'Output.txt');
Reset(Inp);
Rewrite(Outp);
Read(Inp, x); // читаем данные
Read(Inp, y);
x := x + y;
Write(Outp, x); // пишем данные
Close(Inp); // закрываем файлы
Close(Outp);
end.
Все проще, попробуйте обучаться здесь допустим http://acmp.ru
А вот и пример ваш http://acmp.ru/article.asp?id_text=118
Или кодом:
{Реализация задачи №1 "A+B" на Pascal}
var a, b : longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(a + b);
end.
А вот и пример ваш http://acmp.ru/article.asp?id_text=118
Или кодом:
{Реализация задачи №1 "A+B" на Pascal}
var a, b : longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(a + b);
end.
Похожие вопросы
- Delphi, работа с файлами
- С/C++ работа с файлами, удаление и вывод на экран заранее не известных файлов
- Программирование С++(работа с файлами) Подробное описание
- С++ работа с файлами, как достать отдельно слова из файла
- Работа с файлами в АССЕМБЛЕРЕ. Надо считывать файл, путь указывает пользователь при запуске программу. Помогите!
- Помогите пожалуйста. Язык Си работа с файлами
- Примитивная работа с файлами. PASCAL.
- С++ ПРОГРАММИРОВАНИЕ. работа с файлами
- Программирование на C++.Работа с файлами.
- Открывание файлов с определенным разрешение но разным именем в PascalABC.