Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
PelmenMan
0 / 0 / 1
Регистрация: 16.10.2016
Сообщений: 23
1

Упорядочить файл записей методом отыскания наименьшего. Добавить несколько новых элементов

26.11.2016, 22:43. Просмотров 808. Ответов 1

Создать файл записей, полями которого являются фамилия и рост. Используя метод отыскания наименьшего, расположить элементы в порядке возрастания роста. В упорядоченный файл, не нарушая упорядоченности, добавить несколько новых элементов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2016, 22:43
Ответы с готовыми решениями:

Во внешний файл, содержащий исходные данные, добавить N записей и вывести на экран список абитуриентов
во внешний файл , содержащий исходные данные , добавить N записей и вывести на...

Добавление новых записей в несколько таблиц с одним ID
Здравствуйте! Помогите, пожалуйста, решить задачу. Есть три таблицы:...

Составьте программу отыскания наименьшего h? при котором число (h^2)+h+41 - составное
4. Составьте программу отыскания наименьшего h? при котором число (h^2)+h+41 -...

Добавить несколько записей в БД (sql)
Доброго времени суток, уважаемые форумчане. Помогите пожалуйста с sql-запросом....

Добавить несколько записей с картинкой в БД
Здравствуйте,я столкнулся с проблемой добавления картинки в БД, вернее все...

1
PelmenMan
0 / 0 / 1
Регистрация: 16.10.2016
Сообщений: 23
28.11.2016, 17:00  [ТС] 2
Лучший ответ Сообщение было отмечено PelmenMan как решение

Решение

Если кому-то это еще интересно, то вот:
Delphi
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
130
131
132
133
type
 person=record
  name:string;
  height:integer;
 end;
procedure CreateFile(nf:string);
 var
  i,n:integer;
  f:file of person;
  x:person;
 begin
  write('Write number of humans : ');
  readln(n);
  writeln('Write surname and height of each human: ');
  assignfile(f,nf);
  rewrite(f);
  for i:=1 to n do
   begin
    writeln('-',i,'-y: ');
    write('   surname: ');
    readln(x.name);
    write('   height: ');
    readln(x.height);
    seek(f,i-1);
    write(f,x);
   end;
  writeln;
  closefile(f);
 end;
procedure ViewFile (nf:string);
 var
  i:integer;
  f:file of person;
  x,z:person;
 begin
  assignfile(f,nf);
  reset(f);
  writeln('Ascending list of humans : ');
  for i:=1 to filesize(f) do
   begin
    writeln('-',i,'-y: ');
    read(f,x);
    writeln('   surname: ',x.name);
    writeln('   height: ',x.height);
   end;
  writeln;
  closefile(f);
 end;
procedure SortMin (nf:string);
 var
  i,j,imin:integer;
  f:file of person;
  x,amin:person;
 begin
  assignfile(f,nf);
  reset(f);
  for i:=filesize(f) downto 2 do
  begin
  seek(f,i-1);
  read(f,amin);
  imin:=i;
  for j:=i-1 downto 1 do
  begin
  seek(f,j-1);
  read(f,x);
  if x.height<amin.height then
  begin
  amin.height:=x.height;
  amin.name:=x.name;
  imin:=j;
  end;
  end;
  if imin<>i then
  begin
  seek(f,i-1);
  read(f,x);
  seek(f,imin-1);
  write(f,x);
  seek(f,i-1);
  write(f,amin);
  end;
  end;
  closefile(f);
 end;
procedure InsToFile (nf:string; t:integer);
 var
  i,j:integer;
  f:file of person;
  x,y:person;
 begin
  writeln('Write surname and height of humans: ');
  for j:=1 to t do
   begin
    assignfile(f,nf);
    reset(f);
    write('   familiya: ');
    readln(x.name);
    write('   rost: ');
    readln(x.height);
    seek(f,filesize(f));
    write(f,x);
    for i:=filesize(f) downto 2 do
     begin
      seek(f,i-2);
      read(f,x);
      seek(f,i-1);
      read(f,y);
      if x.height<y.height then
       begin
        seek(f,i-1);
        write(f,x);
        seek(f,i-2);
        write(f,y);
       end;
     end;
   end;
  closefile(f);
 end;
var
 nf:string;
 t:integer;
begin
 write('Write the name of the file : ');
 readln(nf);
 CreateFile(nf);
 Sortmin(nf);
 ViewFile(nf);
 write('Write number of new humans : ');
 readln(t);
 InsToFile(nf,t);
 ViewFile(nf);
 readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2016, 17:00

Ка добавить несколько записей в одну табличку?
Здравствуйте, прошу помочь мне так как с SQL могу делать только не сложные...

Как добавить несколько записей в базу через одну кнопку?
Вручную сделал скрин что бы понять? Как можно сделать?

Устанавливаются программы, раз в несколько кликов в новых вкладках и новых окнах появляется реклама
Добрый день! Опускаются руки. При каждом запуске компьютера начинается...


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

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

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