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

Ошибка ввода/вывода 2: Не удается найти указанный файл

30.06.2014, 15:42. Просмотров 791. Ответов 1
Метки нет (Все метки)

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
33
34
35
36
37
38
39
40
41
42
43
44
Program baza;
Uses CRT;
label rew;
type spisok=record
   fam:string;
   imya:string;
   otch:string;
   adres:string;
   tel:string;
   data_roj:string;
   prim:string;
   end;
FT=file of spisok;
Var a:ft;
  i,z:integer;
  s:real;
Procedure Sozd (Var a:ft);
Var i:integer;
  zk:spisok;
  uuu: string;
label rep;
begin
     Rep: reset(a);
     Seek(a,FileSize(a)); {указатель в конец файла}
      write('Фамилия:');
      readln(zk.fam);
      write('Имя:');
      readln(zk.imya);
      write('Отчество:');
      Readln(zk.otch);
      write('Адрес:');
      readln(zk.adres);
      write('Телефон:');
      readln(zk.tel);
      write('День Рождения:');
      readln(zk.data_roj);
      write('Примечание:');
      readln(zk.prim);
      write(a,zk);
      writeln('Для добавления записи нажмите Y, для окончания ввода нажмите N');
      read(uuu);
      if(uuu='Y') or (uuu='y') then goto rep;
      close(a);
end;
в 23 строке выдает
Ошибка ввода/вывода 2: Не удается найти указанный файл.

помогите решить проблему, пожалуйста!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.06.2014, 15:42
Ответы с готовыми решениями:

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

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

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

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

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

1
APALoff
1640 / 1069 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
30.06.2014, 15:50 2
Цитата Сообщение от DieForDethklok Посмотреть сообщение
label rew;
Это зло!

А ошибка как бы намекает проверить путь в Assign(a,'путь') и убедиться в наличии самого файла.

Добавлено через 1 минуту
Замените ваши метки на Repeat Until
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.06.2014, 15:50

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

Ошибка ввода/вывода 102
{ Структуры данных на основе статического массива: - стек - очередь - список } const...

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


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

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

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