Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 14.12.2014
Сообщений: 2
1

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

14.12.2014, 22:35. Просмотров 1068. Ответов 2
Метки нет (Все метки)

Которая добавляет запись в типизированый файл
тип - запись
добавляет к той записи в файле дополнительную запись
выводит на экран из файла
и ищет по что-то по файлу
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2014, 22:35
Ответы с готовыми решениями:

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

Составить программу, которая обеспечивает поиск товара со стоимостью, большей заданного параметра К. Запись содержит название товара (тип string), кол
Составить программу, которая обеспечивает поиск товара со стоимостью, большей заданного параметра...

Запись в типизированый файл
Нужно сделать запись в типизированый файл, обновления данных с определенной позиции. var...

Напишите программу, которая запрашивает два целых числа и выводит запись операции их деления
Частное любых чисел. Напишите программу, которая запрашивает два целых числа и выводит запись...

2
3953 / 1827 / 1988
Регистрация: 10.12.2014
Сообщений: 7,127
15.12.2014, 10:28 2
Лучший ответ Сообщение было отмечено Triver как решение

Решение

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
const
  fName = 'Program1.rec';
  
type
  tRec = record
    N : Integer;
  end;
 
function ReadNewRec : tRec;
begin
  Write(NewLine, 'Введите число для добавления новой записи: '); ReadLn(Result.N);
end;
  
procedure CreateNewFile;
var
  R : tRec;
  F : File of tRec;
begin
  R := ReadNewRec;
  Assign(F, fName);
  Rewrite(F);
  Write(F, R);
  Close(F);
  WriteLn('В новый файл добавлена запись ', R.N);
end;
 
procedure AppendFile;
var
  R : tRec;
  F : File of tRec;
  N : Integer;
begin
  R := ReadNewRec;
  Assign(F, fName);
  Reset(F);
  N := FileSize(F);
  Seek(F, N);
  Write(F, R);
  Close(F);
  WriteLn('В файл добавлена запись ', R.N);
end;
 
procedure ShowFile;
var
  R : tRec;
  F : File of tRec;
  N : Integer;
begin
  WriteLn('Вывод всех записей файла:');
  Assign(F, fName);
  Reset(F);
  N := 0;
  while Not EOF(F) do
    begin
      N += 1;
      Read(F, R);
      Write(' Запись № ', N, ' число = ', R.N, '  ');
    end;
  WriteLn;
  Close(F);
end;
 
procedure Sorted;
var
  K, i, p, l : Integer;
  R : array [1..1000] of tRec;
  F : File of tRec;
begin
  Assign(F, fName);
  Reset(F);
  K := 0;
  while Not EOF(F) do
    begin
      K += 1;
      Read(F, R[K]);
    end;
  Close(F);
  
  l := K - 1;
  repeat
    p := 0;
    for i := 1 to l do
      if R[i].N > R[i + 1].N then
        begin
          p := i;
          Swap(R[i].N, R[i + 1].N);
        end;
    l := p - 1;
  until p = 0;
        
  Rewrite(F);
  for i := 1 to K do
    Write(F, R[i]);
  Close(F);
  
  WriteLn('Файл отсортирован.');
end;
 
var
  S : String;
  DS : Set of Char;
begin
  WriteLn('Выполнение операций с записями и файлами записей.');
  if Not FileExists(fName) then
    begin
      WriteLn('  1. Создание файла записей');
      DS := ['1'];
    end
  else
    begin
      WriteLn('  1. Создание файла записей (приведёт к удалению существующего)');
      WriteLn('  2. Добавление записи в файл');
      WriteLn('  3. Просмотр записей из файла');
      WriteLn('  4. Сортировка записей в порядке неубывания');
      DS := ['1', '2', '3', '4'];
    end;
  WriteLn('Любой другой симовл - выход без действия.');
  Write('Введите номер действия: '); ReadLn(S);
  if (Length(S) > 0) and (S[1] in DS) then
    begin
      case S[1] of
        '1' : CreateNewFile;
        '2' : AppendFile;
        '3' : ShowFile;
        '4' : Sorted;
      end;
    end;
  WriteLn(NewLine, 'Программа завершена.');
end.
0
0 / 0 / 0
Регистрация: 14.12.2014
Сообщений: 2
15.12.2014, 11:39  [ТС] 3
JuriiMW, Спасибо большое))))
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2014, 11:39

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

нужно сделать чтобы в отчете выводилась та запись которая выделена в DBGrid, а то у меня постоянно выводится первая запись,помогите пожалуйста.
Извините за беспокойство, но возник вопрос: мне нужно сделать чтобы в отчете выводилась та запись...

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

Напишите программу, которая добавляет или уменьшает m * n двух матриц
Напишите программу, которая добавляет или уменьшает m * n двух матриц

Запись имеет четыре поля, содержащие фамилию и дату рождения (число, месяц, год) студента. Напишите программу, которая в
Всем привет, пришлось столкнуться в Java с работой с файлами, не знаю даже как начать, т.к. слаб в...


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

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

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