Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Создать вектор, состоящий из максимальных элементов столбцов матрицы. https://www.cyberforum.ru/ pascal/ thread81777.html
Всем привет, и с наступающим всех!!! Пишу с просьбой услышать пару советов по моей на писанной задачи на pascale. Саму программу вроде и написал но мне кажется что я что-то упустил :( и где-то...
Pascal Рабрта с файлами
Задание: Даны оценки и фамилии студентов. Надо вывести студентов у которых оценки 1,2 (тоесть экзамен не сдали) и тех, кто экзамен сдал. Я вывел тех кто не сдал экзамен, а как вывести тех кто СДАЛ???...
Pascal Рекурсия, где ошибка?
Program n1; Var d:integer; Function kor(n:integer):REAL; var res:real; Begin if n<=1 then res:=1 else
Pascal Составить программу Она маленькая но я что-то уже парюсь.составить программу . вводится 15 пар чисел (х.у) вычислить Р( от 1 до 15) * ( х-у)^2 я писала но у меня считает одни ноли program cikl; var p:real;... https://www.cyberforum.ru/ pascal/ thread81763.html
Pascal выбрать данные о проводниках с заданным удельным весом https://www.cyberforum.ru/ pascal/ thread81762.html
Дан файл f, содержащий сведения о веществах: 1) название 2) удельный вес 3) проводимость (проводник, полупроводник, изолятор) а) выбрать данные о проводниках с заданным удельным весом; б)...
Pascal Ошибка
Задание на картинке В чем ошибка? Program geto; Var a,b,c,d,f,e:integer; g,p1,p2,p3,s1,s2,s3,s:real; Begin; Write('a='); Readln(a); Write('b=');
Pascal Включить массив в качестве новой строки
Задан массив А размером m*n и вектор В размером n. Элементы первого столбца массива А упорядочены по убыванию. Включить массив В в качестве новой строки в массив А с сохранением упорядоченности по...
Pascal Даны целые числа n, a1, a2,…, an. Найти наибольший элемент не пугайтесь..не закрывайте эту теммуу..помогите чем можете(( в особенности последние задачиююсессия 12 янвааряяяя((( ЗАДАЧИ 51.Даны целые числа n, a1, a2,…, an. Найти наибольший элемент. 52.Даны... https://www.cyberforum.ru/ pascal/ thread81719.html
Pascal За какое минимальное количество ходов белый король доберётся до позиции чёрного? https://www.cyberforum.ru/ pascal/ thread81718.html
нужно найти программное решение такой проблемы: на шахматной доске есть два короля Чёрный и Белый.Позиции любые. вопрос: за какое минимальное количество ходов Белый король доберётся до позиции...
Pascal Признак делимости на 9 Конкретно текст не помню, но смысл не меняется. Нужно определить можно ли разделить вводимое пользователем число конфет с клавиатуры на 9 мартышек не разрезая конфет используя признак делимости на... https://www.cyberforum.ru/ pascal/ thread81692.html
0 / 0 / 0
Регистрация: 30.12.2009
Сообщений: 36
0

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

30.12.2009, 22:58. Просмотров 1705. Ответов 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". что такое , не могу понять(( вроде бы и путь правильно писал...В чем может быть причина?

Вернуться к обсуждению:
Работа с файлами, выдает "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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.