Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → ExitCode=2 під час роботи з файлами
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
Як зробити так, щоб у вихідний файл виводилася та сама інформація, яка є у вхідному?
Не зовсім зрозуміле питання. Будь ласка, конкретніше.
Виводити те, що вводите, очевидно ж.
виводиться помилка
ну то потрібно її виправити 
Уточніть, яка саме.
var srcF, dstF : File;
X:Byte; //or Char, or anything type
...
//тут відкрити ті файли
...
while( EOF(srcF) ) do
Begin
read(srcF, X);
write(dstF,X);
end;
...
//тут закритив мене усе таке саме, все одно виводиться exitcode=2
у фрі exitcode=2
в турбо немає помилки, але немає і файлу
у фрі exitcode=2
в турбо немає помилки, але немає і файлу
Як щодо викласти код? Чи ми маємо ворожити тут?
Як ви щось зрозуміли ?
попробуйте у прив'язці змінної до файлу вказати точний шлях до нього,
Assign(f, 'c:\user\pascal\input.txt');попробуйте у прив'язці змінної до файлу вказати точний шлях до нього,
Assign(f, 'c:\user\pascal\input.txt');
це все є
kizan4uk
Викладіть сюди ваш код будьласка. Бо, як показує практика, жодному досвідченому програмісту не стане мізків вгадати усі ті місця, де новачок здатний зробити помилку.
kizan4uk
Викладіть сюди ваш код будьласка. Бо, як показує практика, жодному досвідченому програмісту не стане мізків вгадати усі ті місця, де новачок здатний зробити помилку.
І отут ще посилання на нашу спробу таке робити
Torbins написав:kizan4uk
Викладіть сюди ваш код будьласка. Бо, як показує практика, жодному досвідченому програмісту не стане мізків вгадати усі ті місця, де новачок здатний зробити помилку.І отут ще посилання на нашу спробу таке робити
я бачив той код. Ось він:
var
fin:file of char;
c:char;
fout:file of char;
begin
assign(fin, 'd:\in.txt');
reset(fin);
assign(fout, 'd:\out.txt');
rewrite(fout);
while not eof (fin) do
begin
read(fin, c);
write(fout, c);
end;
close(fin);
close(fout);
readln
end.Chemist-i написав:Torbins написав:kizan4uk
Викладіть сюди ваш код будьласка. Бо, як показує практика, жодному досвідченому програмісту не стане мізків вгадати усі ті місця, де новачок здатний зробити помилку.І отут ще посилання на нашу спробу таке робити
я бачив той код. Ось він:
var fin:file of char; c:char; fout:file of char; begin assign(fin, 'd:\in.txt'); reset(fin); assign(fout, 'd:\out.txt'); rewrite(fout); while not eof (fin) do begin read(fin, c); write(fout, c); end; close(fin); close(fout); readln end.
А де Ви його бачили, якщо не секрет?
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися