Форум программистов, компьютерный форум, киберфорум
Наши страницы

PascalABC.NET

Войти
Регистрация
Восстановить пароль
 
tvb
1 / 1 / 1
Регистрация: 23.09.2013
Сообщений: 30
#1

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

19.06.2014, 23:38. Просмотров 434. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Типизированый файл не может содержать элементы такого типа (PascalABC.NET):

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

Ошибка: "Типизированый файл не может содержать элементы такого типа" - PascalABC.NET
у меня нет пока вариантов, как решить данную проблему. можете помочь? type tvivod=record resa:string; resb:string; ...

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

Типизированый файл - Pascal
Вывести фамилии и средние баллы стедентов, имеющих "5" по информатике

Типизированый файл. - Pascal
3аписать в файл последовательно доступно N действительных чисел. Найти разность первого и последнего компонентов файла.

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

4
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3783 / 2770 / 1895
Регистрация: 05.06.2014
Сообщений: 13,522
19.06.2014, 23:42 #2
Описания типа s1 нет (наверное, он в модуле utypes). Сказать ничего не могу. Телепатор в ремонте.
Приложите модуль.
0
Sergio Leone
2461 / 1106 / 403
Регистрация: 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 / 1
Регистрация: 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
2461 / 1106 / 403
Регистрация: 07.06.2014
Сообщений: 3,259
19.06.2014, 23:50 #5
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
замените на:
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
Привет! Вот еще темы с ответами:

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

Запись в типизированый файл - Pascal
Помогите найти ошибку. Ругается там где пытаюсь записать в файл, говорит нельзя преобразовать integer к ved. program fail_zap; uses...

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

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


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

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

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