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

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

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

Всё работает, но пишет: "ошибка ввода\вывода 104, файле не открыт для ввода (строка 0).
http://www.cyberforum.ru/pascalabc/thread709831.html

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, файле не открыт для ввода (строка 0) (Pascal ABC):

Ошибка ввода вывода 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;...

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

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
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
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
Привет! Вот еще темы с решениями:

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

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

Ошибка ввода/вывода 2: Не удается найти указанный файл
program dred9; USES CRT; TYPE rec=record n_rejsa:string; marsh:string;...

Разработать программу для ввода и вывода элементов массива
Разработать программу для ввода и вывода элементов одномерного массива размером...


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

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

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