С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.93/14: Рейтинг темы: голосов - 14, средняя оценка - 4.93
shpicachik
2 / 2 / 1
Регистрация: 22.04.2011
Сообщений: 19
1

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

23.04.2011, 15:02. Просмотров 2735. Ответов 4
Метки нет (Все метки)

Всё работает, но пишет: "ошибка ввода\вывода 104, файле не открыт для ввода (строка 0).

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
27
28
29
30
31
32
Program pyat;
uses crt;
var k,i,n:integer;
f1:text;
s,st:string;
z:char;
b:set of char;
begin
assign   (f1, 'file1.txt');
writeln('Задйте первую букву слов:');
readln(z);
writeln('Введите текст: :');
readln(s);
b:=[z];
k:=0;
for i:=1 to length(s) do
begin
if (s[i] in b) and (s[i-1]=' ') then
k:=k+1;
end;
if s[1]=z then k:=k+1;
rewrite  (f1);
writeln(f1,'Количество слов, начинающихся на зданную букву, равно: ',k);
close(f1);
reset (f1); { открыть файл для чтения }
while not eof (f1) do { пока не конец файла  f1}
begin
readln (f1, st);    {читаем строку из файла f1 }
writeln(st);
close(f1);
end;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.04.2011, 15:02
Ответы с готовыми решениями:

Ошибка ввода/вывода 104 - файл не открыт для ввода
var a:array of integer; n,j,i,k: integer; f:text; begin ...

Ошибка ввода вывода 103: файл не открыт
Люди добрые выручите,завтра сдавать работу а я обнаружил ошибку при работе...

Ошибка 104 (файл не открыт для ввода)
что делать с этой ошибкой? вот сама прога: var s:string; a,b,c,d:char;...

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

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

4
Vitek4
16 / 16 / 1
Регистрация: 16.04.2010
Сообщений: 162
23.04.2011, 15:17 2
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
27
28
29
30
31
32
Program pyat;
uses crt;
var k,i,n:integer;
f1:text;
s,st:string;
z:char;
b:set of char;
begin
assign   (f1, 'file1.txt');
writeln('Задйте первую букву слов:');
readln(z);
writeln('Введите текст: :');
readln(s);
b:=[z];
k:=0;
for i:=1 to length(s) do
begin
if (s[i] in b) and (s[i-1]=' ') then
k:=k+1;
end;
if s[1]=z then k:=k+1;
rewrite  (f1);
writeln(f1,'Количество слов, начинающихся на зданную букву, равно: ',k);
close(f1);
begin
reset (f1); { открыть файл для чтения }
while not eof (f1) do { пока не конец файла  f1}
readln (f1, st);    {читаем строку из файла f1 }
writeln(st);
close(f1);
end;
end.
Сейчас не выдает ошибку у меня
1
shpicachik
2 / 2 / 1
Регистрация: 22.04.2011
Сообщений: 19
23.04.2011, 15:49  [ТС] 3
Спасибо, теперь все без проблем.

Забыл написать формулировку задачи, пусть будет, если кому надо:
Написать программу, которая считает число слов в предложении, начинающихся на заданную букву. Результат вывести на экран и в текстовый файл.
0
katusha17
2 / 2 / 3
Регистрация: 04.03.2014
Сообщений: 62
01.07.2014, 19:55 4
У меня та же самая ошибка в моём коде, не понимаю, что тут может быть не так((
Тут я открываю два файла, в первом из которых записал числовой ряд типа real, а во втором - символы типа string.
На 9 строчке выдает, что файл не открыт для чтения. Что тут не так?

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
27
28
29
Program ZAPIS;
var
x1,y1,z1,x2,y2,z2,x3,y3,z3:real;
f,f1,f2:text;
s:string;
begin
  assign (f,'coord.txt');
  reset (f);
  while not eof(f) do
        begin
        read (f,x1,y1,z1,x2,y2,z2,x3,y3,z3);
             begin
             assign (f1,'VidTrg.txt');
             reset(f1);
             while not eof(f1) do
                   begin
                   read (f1,s);
                        begin
                        assign (f2,'vivod.txt');
                        rewrite(f2);
                        write(f2,x1,y1,z1,x2,y2,z2,x3,y3,z3,s);
                        close(f2)
                        end;
                   end;
             close(f1);
             end;
        close(f);
        end;
end.
0
Puporev
Модератор
55496 / 42589 / 29437
Регистрация: 18.05.2008
Сообщений: 100,748
02.07.2014, 10:55 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
x1,y1,z1,x2,y2,z2,x3,y3,z3:real;
f,f1,f2:text;
s:string;
begin
assign (f,'coord.txt');
reset (f);
assign (f1,'VidTrg.txt');
reset (f1);
assign (f2,'vivod.txt');
rewrite(f2);
while not eof(f) do
 begin
   read (f,x1,y1,z1,x2,y2,z2,x3,y3,z3);
   readln(f1,s);
   writeln(f2,x1,' ',y1,' ',' ',z1,' ',x2,' ',y2,' ',z2,' ',x3,' ',y3,' ',z3,' ',s);
 end;
close(f);
close(f1);
close(f2)
end.
1
02.07.2014, 10:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.07.2014, 10:55

Ошибка ввода/вывода не могу найти
uses crt; type pup = record s_name, {oaieeey} name: ...

Ошибка ввода/вывода 2: не удается найти указанный файл
Написал программу, файлы input.txt и output.txt создал(хранятся в одной папке с...

Ошибка ввода/вывода 2: Не удается найти указанный файл
Program baza; Uses CRT; label rew; type spisok=record fam:string; ...


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

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

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