Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
lilil
0 / 0 / 0
Регистрация: 26.11.2012
Сообщений: 3
1

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

26.11.2012, 18:21. Просмотров 1348. Ответов 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
var
 a:array[1..4,1..4] of integer;
 n,j,i,k: integer;
 f:text;
 begin
 assign(f,'C:\Users\Алла\Desktop\Универ\матрица.txt');
 reset(f);
 readln(f,n);
 for i:=1 to n do begin
 for j:=1 to n do
 read(f,a[i,j]);
 if not((a[i,j]=0)or (a[i,j]=1) or (a[i,j]=5) or (a[i,j]=11))
 then
    writeln('недопустимые исходные данные')
 else
 begin
 readln(f);
 end;
 close(f);
 k:=0;
 for i:=1 to n-1 do
 for j:=1 to n-1 do
 if (a[i,j]+a[i+1,j]+a[i,j+1]+a[i+1,j+1])=17 then
 k:=k+1;
 writeln('количество искомых "четверок": ',k);
 end;
 end.

совсем не понимаю в чем проблема(
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2012, 18:21
Ответы с готовыми решениями:

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

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

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

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

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

2
HighPredator
5693 / 2014 / 723
Регистрация: 10.12.2010
Сообщений: 5,789
Записей в блоге: 3
26.11.2012, 18:25 2
Строка 17. У вас не указано, что именно вы из файла прочитать хотите.
0
lilil
0 / 0 / 0
Регистрация: 26.11.2012
Сообщений: 3
26.11.2012, 18:45  [ТС] 3
ну а причем тогда такая ошибка?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.11.2012, 18:45

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

Ошибка, файл не открыт для ввода
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...


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

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

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