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

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

26.11.2012, 18:21. Показов 1681. Ответов 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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2012, 18:21
Ответы с готовыми решениями:

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

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

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

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

2
6004 / 2126 / 741
Регистрация: 10.12.2010
Сообщений: 5,962
Записей в блоге: 3
26.11.2012, 18:25 2
Строка 17. У вас не указано, что именно вы из файла прочитать хотите.
0
0 / 0 / 0
Регистрация: 26.11.2012
Сообщений: 3
26.11.2012, 18:45  [ТС] 3
ну а причем тогда такая ошибка?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2012, 18:45

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

Ошибка,файл не открыт для ввода
var min,ch,code,res,i,i1,i2,max,ch1:integer; begin max:=0; i:=0; min:=0; ch1:=30001;...

Ошибка,файл не открыт для ввода
Ошибка,файл не открыт для вводаFUNCTION F(NAME:STRING):INTEGER; var f1:Text; var...


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

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

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