Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.61/28: Рейтинг темы: голосов - 28, средняя оценка - 4.61
seerg0
1 / 1 / 0
Регистрация: 17.03.2010
Сообщений: 17
1

Ошибка 104 (файл не открыт для ввода)

01.07.2010, 12:59. Просмотров 5524. Ответов 5
Метки нет (Все метки)

что делать с этой ошибкой? вот сама прога:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
s:string;
a,b,c,d:char;
f1,f2:text;
i:integer;
begin
assign(f1,'C:\f1.txt');
assign(f2,'C:\f2.txt');
reset(f1);
rewrite(f2);
while not EoF(f1) do begin
readln(f1,s);
for i:=1 to length(s) do
 begin
 a:=s[i];
 b:=s[i+1];
 c:=s[i+2];
 d:=s[i+3];
 if (a=' ') and (b=c) and (d=' ') then
 delete(s,i,3);
 end;
writeln(f2,copy(s,1,length(s)));
close(f1);
close(f2);
end;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.07.2010, 12:59
Ответы с готовыми решениями:

Ошибка, файл не открыт для ввода
Procedure InpData(Var Group:Groups; Var N:TGroup); Var I:Integer; FF,GG,PP,NN,RR:Text;...

Файлы (файл не открыт для ввода)
Почему выдаёт такую ошибку: ошибка ввода/вывода 104 uses crt; var f:text; b:string; begin...

Ошибка времени выполнения: Файл не открыт на запись
Помогите пожалуйста найти ошибку Ошибка времени выполнения: Файл не открыт на запись program...

Файл не открыт для записи
Шото я не доганяю....Пишет что файл не открыт для записи...:O_O: Program Naselenie; uses crt;...

Ошибка времени выполнения: Файл не открыт
Ув. пользователи, помогите советом, как мне доделать программу? Написал, запустил и ошибка....

5
sergei3ru
21 / 18 / 4
Регистрация: 07.04.2010
Сообщений: 798
01.07.2010, 13:07 2
Может эту операцию copy(s,1,length(s))); вывксти в отдельную строку, а потом в файл для записа его записать, может так получится?
0
Puporev
Модератор
56599 / 43286 / 29928
Регистрация: 18.05.2008
Сообщений: 102,971
01.07.2010, 13:10 3
sergei3ru, А нафига после прочтения каждой строки ты закрываешь файлы?
0
sergei3ru
21 / 18 / 4
Регистрация: 07.04.2010
Сообщений: 798
01.07.2010, 13:11 4
Цитата Сообщение от Puporev Посмотреть сообщение
sergei3ru, А нафига после прочтения каждой строки ты закрываешь файлы?
Где?О_о
0
Puporev
Модератор
56599 / 43286 / 29928
Регистрация: 18.05.2008
Сообщений: 102,971
01.07.2010, 13:11 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
while not EoF(f1) do 
  begin
   readln(f1,s);
   for i:=1 to length(s) do
    begin
     a:=s[i];
     b:=s[i+1];
     c:=s[i+2];
     d:=s[i+3];
     if (a=' ') and (b=c) and (d=' ') then
     delete(s,i,3);
    end;
   writeln(f2,copy(s,1,length(s)));
  end; 
close(f1);
close(f2);
end.
0
seerg0
1 / 1 / 0
Регистрация: 17.03.2010
Сообщений: 17
01.07.2010, 13:11  [ТС] 6
Puporev, спасибо)))) всё понял)))
1
01.07.2010, 13:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.07.2010, 13:11

Ошибка времени выполнения: файл не открыт
Помогите, пожалуйста, программа выдает ошибку: Ошибка времени выполнения: файл не открыт Задание...

PABCSystem.pas(4774) : Ошибка времени выполнения: Файл не открыт на запись
Число, которое одинаково читается слева направо и наоборот, называется палиндромом, напр., 3773....

Файл не открыт для ввода - почему?
Procedure write_numbers; var f :text; i,j :integer; begin assign(f,'num.txt'); ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru