Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
soilz
0 / 0 / 0
Регистрация: 22.10.2018
Сообщений: 8
1

Работа с массивом Record и типизированным файлом

22.10.2018, 01:21. Просмотров 59. Ответов 2
Метки нет (Все метки)

дан файл с сотрудниками (15 человек) необходимо используя массив RECORD, процедуры, текстовые и типизированные файлы и процедуры( Типизированный файл формируется в этой же программе из текстового , а затем из него происходит чтение ) произвести чтение , записать в типизированный массив , считать из него в массив и обработать массив чтобы он выводил
число одинаковых должностей и напечатать список должностей

Дан список сотрудников лаборатории ( 15 человек) в виде :
ФАМИЛИЯ(5 символов ) 'пробел между' ДОЛЖНОСТЬ(15 символов)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2018, 01:21
Ответы с готовыми решениями:

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

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

Напишите программу, работающую с типизированным файлом, элементами которого являются значения типа integer
Напишите программу, работающую с типизированным файлом, элементами которого являются значения типа...

Работа с типизированным файлом - телефонная книга
Создать базу данных состоящую из записей след типа ФИО №телефона Адрес Создать программу...

Произвести заданные действия с типизированным файлом
• Занесите в текстовый файл 10 целых чисел. • Перенесите эти числа в типизированный файл....

2
Sun Serega
130 / 84 / 43
Регистрация: 07.04.2017
Сообщений: 364
22.10.2018, 09:51 2
А что значит типизированный файл формируется из текстового? Какой формат у текстового (как данные сохранены)?
0
JuriiMW
1999 / 1083 / 1574
Регистрация: 10.12.2014
Сообщений: 4,071
22.10.2018, 11:29 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
52
53
54
55
56
57
58
59
60
const
  ТекстовыйСписок = 'sp.txt';
  DataBase = 'spis.sqp';
 
type
  tRec = record
    Ф : String[5];
    Д : String[15];
    
    constructor;
    begin
    end;
 
    constructor (F, D : String);
    begin
      Ф := F; Д := D;
    end;
    
    constructor (p : tRec);
    begin
      Ф := p.Ф; Д := p.Д;
    end;
  end;
 
function ReadFromTXT : array of tRec;
begin
  var a := New List<tRec>;
  foreach var s in ReadLines(ТекстовыйСписок) do
    try
      var p := s.ToWords;
      a.Add( New tRec(p[0], p[1].ToLower) );
    except
    end;
  Result := a.ToArray;
end;
  
procedure WriteToSqp(a : array of tRec);
begin
  var f : File of tRec;
  Rewrite(f, DataBase); foreach var p in a do Write(f, p); Close(f);
end;
 
function ReadFromSqp : array of tRec;
begin
  var f : File of tRec;
  Reset(f, DataBase);
  SetLength(Result, f.Size);
  for var i := 0 to f.Size-1 do Read(f, Result[i]);
end;
 
begin
  var a := ReadFromTXT;
  WriteLn('Создан список:'); foreach var p in a do WriteLnFormat('{0:-10} - {1}', p.Ф, p.Д);
  WriteToSqp(a);
  
  var b := ReadFromSqp;
  WriteLn('Список прочитан из файла:'); foreach var p in b do WriteLnFormat('{0:-10} - {1}', p.Ф, p.Д);
  
  Write('Должности: '); b.Select(p->String(p.Д)).Distinct.Print(', '); WriteLn('.');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2018, 11:29

Программа с типизированным файлом с режимами создания, сортировки, поиска по ключу, редактирования, вставки, удаления
нужна программа с типизированным файлом с режимами создание,сортировка,поиск по ключу,...

Неправильная работа таймера в record
Скорее всего это не таймеры виноваты, а я коряво написал:) , поэтому простите! Суть программы в...

тип данных record. Работа с файлами
люди добрые, помогите пожалуйста Даны результаты вступительного экзамена по математике. Он...


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

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

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