Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
tvb
1 / 1 / 0
Регистрация: 23.09.2013
Сообщений: 30
1

Типизированый файл не может содержать элементы такого типа

19.06.2014, 23:38. Просмотров 964. Ответов 4
Метки нет (Все метки)

Ругается на строку 12. Типизированный файл не может содержать элементы такого типа

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
52
53
54
55
56
57
58
59
60
61
62
63
unit udann; 
interface
uses utype;
 
procedure dann2 (dat : string; var a:arr; var s: longint);
procedure dann1(var c: integer; var a: arr);
 
var
  r1: s1;
  r2: s2;
 
  f1:file of s1;
  f2:file of s2;
 
 
Implementation
 
procedure dann2(dat : string; var a:arr; var s:longint);
var
  i : integer;
  mes, year   : string;
begin
 
 
  assign(f1, 'dogs1.txt');
  s:=0;
  mes := copy(dat, 1,2);
  year:= copy(dat, 4,4);
 
 
reset(f1);
  while not eof(f1) do begin
    read(f1, r1);
    if (copy(r1.dat,1,4)=year) and (copy(r1.dat,5,2)=mes) then begin
       a[r1.kod_porod].cena := a[r1.kod_porod].cena + r1.cena;
       s := s + r1.cena;
    end;
  end;
clouse(f1);
end;
 
 
 
procedure dann1(var c: integer; var a: arr);
var
  i: integer;
begin
assign(f2, 'dogs2.txt');
 
c:=0;
 
reset(f2);
while not eof(f2) do begin
  read(f2, r2);
  inc(c);
  a[c].nazvanieporod:=r2.nazvanieporod;
  a[c].cena:=0;
end;
 
close(f2);
end;
 
end.
Помогите девушке!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.06.2014, 23:38
Ответы с готовыми решениями:

Типизированый файл не может содержать элементы такого типа
Здравствуйте. Может, глупый вопрос, но сам найти на него ответ я не смог....

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

Ошибка "Типизированный файл не может содержать элементы такого типа"
Program furniture; type Note = record {Тип - сведения о товаре} Code,...

не типизированый файл
Создать файл, компоненты (количество <=9) которого являются вещественными...

Запись в типизированый файл
Помогите найти ошибку. Ругается там где пытаюсь записать в файл, говорит нельзя...

4
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3881 / 2863 / 3639
Регистрация: 05.06.2014
Сообщений: 14,067
19.06.2014, 23:42 2
Описания типа s1 нет (наверное, он в модуле utypes). Сказать ничего не могу. Телепатор в ремонте.
Приложите модуль.
0
Sergio Leone
2467 / 1112 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
19.06.2014, 23:43 3
Цитата Сообщение от tvb Посмотреть сообщение
Pascal
1
2
3
4
5
6
var
* r1: s1;
* r2: s2;
 
  f1:file of s1;
  f2:file of s2;
модуль utype вами не предоставлен.
Что за типы s1 и s2?



p.s. включаю телепатор из ремонта: если это вдруг тип String, то, возможно, поможет замена в модуле описания String на
Pascal
1
2
3
type 
  s1 = String[255]; 
  s2 = String[255];
1
tvb
1 / 1 / 0
Регистрация: 23.09.2013
Сообщений: 30
19.06.2014, 23:49  [ТС] 4
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
unit utype;
Interface
 
Type
 
  S1=record
    poroda : string ;
    kod_porod:integer;
    kolvo : integer;
    data : string;
   cena:integer;
    
  end;
 
  S2=record
    nazvanieporod : string;
  end;
  rec = record
    nazvanieporod : string;
    kolvo : integer;
    cena : longint;
  end;
 
  arr = array [1..20] of rec;
 
Implementation
end.
Добавлено через 4 минуты
ZX Spectrum-128, Sergio Leone,
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
unit utype;
Interface
 
Type
 
  S1=record
    poroda : string ;
    kod_porod:integer;
    kolvo : integer;
    data : string;
   cena:integer;
    
  end;
 
  S2=record
    nazvanieporod : string;
  end;
  rec = record
    nazvanieporod : string;
    kolvo : integer;
    cena : longint;
  end;
 
  arr = array [1..20] of rec;
 
Implementation
end.
Добавлено через 22 секунды
Sergio Leone,
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
 unit utype;
Interface
 
Type
 
  S1=record
    poroda : string ;
    kod_porod:integer;
    kolvo : integer;
    data : string;
   cena:integer;
    
  end;
 
  S2=record
    nazvanieporod : string;
  end;
  rec = record
    nazvanieporod : string;
    kolvo : integer;
    cena : longint;
  end;
 
  arr = array [1..20] of rec;
 
Implementation
end.
0
Sergio Leone
2467 / 1112 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
19.06.2014, 23:50 5
Лучший ответ Сообщение было отмечено tvb как решение

Решение

замените на:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 S1=record
    poroda : string[200] ;
    kod_porod:integer;
    kolvo : integer;
    data : string[14];
   cena:integer;
    
  end;
 
  S2=record
    nazvanieporod : string[200];
  end;
  rec = record
    nazvanieporod : string[200];
    kolvo : integer;
    cena : longint;
  end;
Внимание! Циферки после String определяют длину строки в символах.
Можно указывать любое количество символов от 1 до 255. Главное, чтобы ваши данные поместились в отведённое им количество.
Вот, например, что будет в поле data? если там будет 19.06.2014 - то хватит и десяти символов String[10]
1
19.06.2014, 23:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.06.2014, 23:50

Типизированый файл, поменять местами половины
создать файл из целых чисел (количество чисел четно). поменять местами первую и...

Как записать типизированый файл в паскале
Помогите пожалуйста... объясните, как записать типизированый файл в паскале,...

Типизированый файл: обслуживание граждан поликлиникой
Нужно создать типизированный файл записей, содержащий данные о гражданах,...


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

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

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