Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 30.12.2009
Сообщений: 36
1

Работа с файлами, выдает "Error 2: file not found"

30.12.2009, 22:58. Просмотров 1703. Ответов 4
Метки нет (Все метки)

Дан файл товар, содержащий сведения об экспортируемых товарах:
1) наименование товара
2) страна, экспортирующая товар
3) объем поставляемой партии в штуках.
Составить:
а) список стран, в которые экспортируется данный товар;
б) общий объем этого экспорта.

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
45
46
47
48
49
50
51
program laba_6;
uses crt;
const n=5;
type tovar=record
      naim:string;
      str:string;
      v:integer;
     end;
spis=array[1..n] of tovar;
 
var tovars:text;
    sostav:text;
    f:spis;
    i:byte;
    s:string;
 
begin
clrscr;
 
write('Введите товар ->');
read(s);
assign(tovars,'D:\pascal\tovars.txt');
reset(tovars);
 
for i:=1 to n do
  begin
   with f[i] do
    begin
      readln(tovars,naim);
      readln(tovars,str);
      readln(tovars,v);
    end;
   end;
close(tovars);
 
assign(sostav,'D:\pascal\sostac.txt');
rewrite(sostav);
 
 for i:=1 to n do
  begin
   with f[i] do
    begin
    if s=naim then begin
                     writeln(sostav,naim);
                     writeln(sostav,str);
                     writeln(sostav,v);
                   end;
    end;
 end;
close(sostav);
end.
вот мой исходник. Все работает, но только выдает ошибку "Error 2: file not found". что такое , не могу понять(( вроде бы и путь правильно писал...В чем может быть причина?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.12.2009, 22:58
Ответы с готовыми решениями:

Решение заданий типа "Array","Matrix","String","File","Text"""
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не понятных) типа массив и...

syntax error ":" expected but "(" found
Составить новый вектор из неуникальных элементов исходного вектора. где 1 там и выдается ошибка...

Error 15: File not found (GRAPH.TPU)
в чём смысл ошибки? нада пересохранить?

Паскаль "работа с файлами"
Имеется текстовый файл,в каждой строке которого первые два символа являются буквами.Получить:...

4
46 / 38 / 3
Регистрация: 14.12.2009
Сообщений: 273
30.12.2009, 23:20 2
Скорее всего ты несоздал файл tovars.txt и прога не может его найти!
сначала создай файл, а потом запусти ее еще раз!
1
0 / 0 / 0
Регистрация: 30.12.2009
Сообщений: 36
30.12.2009, 23:29  [ТС] 3
Вот в том то и дело, что создавал. Причина не в этом((
0
Модератор
60231 / 45354 / 31294
Регистрация: 18.05.2008
Сообщений: 108,952
31.12.2009, 10:24 4
zorn16, Причина именно в названии файла и пути к нему, другой причины не может быть. Либо в имени файла несоответствие с запросом в программе, либо в пути, либо расширение файла не .txt, короче проверяйте все по буковкам, еще попробуйте положить файл в папку с программой, возможно на диске D есть какие-то ограничения для чтения.
1
4335 / 1467 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
31.12.2009, 15:23 5
Добавлю к словам Puporev'а, что при указании файла лучше писать так:
Pascal
1
assign(tovars,'tovars.txt');
А вообще для работы с записями лучше всего использовать тип файла
Pascal
1
file of <название типа записи>
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.12.2009, 15:23

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

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки
дан текст.написать программу проверки правильности написания сочетаний &quot;жи&quot;, &quot;ши&quot;, &quot;ча&quot;, &quot;ща&quot;,...

После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами "К" и "Л"
После каждого символа &quot;О&quot; вставлять пробел и подсчитывать количество букв &quot;А&quot; стоящих между буквами...

Шахматы: охарактеризовать положение белых с помощью слов: "мат", "шах", "пат", "обыкновенная позиция"
у белых на доске остался только король , у черных - король, слон, конь. охарактеризовать положение...

В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".
Немогу написать программу. В заданной последовательности литер, состоящей из букв латинского...


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

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

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