Обработка информации из файлов

@Кира11111 · Регистрация: 22.11.2016

Студворк — интернет-сервис помощи студентам

1) Создать текстовый файл Input.txt, состоящий не менее из 20 записей, имеющих заданную
структуру (см. в таблице с вариантами)
2) Необходимо написать программу-конвертор, которая из исходного текстового файла
Input.txt создаст типизованный файл Input.dat (f:file of record) соответствующей
структуры (без использования операции split для разбиения одной строки на отдельные части
данных)
3) Необходимо написать новую программу, решающую следующие задачи:
-Занесение записей из файла Input.dat в массив записей с одновременным определением
числа записей во входном файле.
-Выборку записей в массиве и их вывод на экран по заданному критерию
- Поиск информации по заданному условию.
- Удаление из файла Input.dat записей в соответствии с заданием
- Вывод упорядоченного массива в новый текстовый файл Output.txt

Банк Выдача ссуды в
string 2000г. 2001г.
real real

1) Получить список банков, выдавших в 2000г ссуду более 5 млн. руб.
2) Определить какой из банков, и в каком году выдал наибольшую ссуду.
3) Удалить информацию о банке, который не выдавал ссуду хотя бы в одном из году.
4) Отсортировать информацию согласно следующим уровням сортировки:
- 1-й : по значению суммарной выданной ссуды в убывающем порядке,
- 2-й : по полю «Банк» в возрастающем порядке.
Есть две программы, при запуске не компилируется и не выводятся значения из файла input.txt.

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
type
  Tbank = record
                name:string[50];
                zero:real;
               one:real;
                            end;
              
var
  f_in: text;                 
  f_out: file of Tbank;  
  bank:Tbank;
  s:string;
  buf:array [1..100] of string;
  j:integer;
  
begin
  assign(f_in, 'input.txt');
  assign(f_out, 'input.dat');
  Reset(f_in); 
  Rewrite(f_out);
  while not eof(f_in) do
  begin
    readln(f_in,s); 
    
    //разбиение строки
    j:=1;
    for var i:=1 to length(s) do
    begin
      if s[i]<>';' then
        buf[j]:=buf[j]+s[i]
      else
        j:=j+1;
    end;
    
    with bank do
    begin
      name:=buf[1];
      zero:=StrToFloat(buf[2]);
      one:=StrToFloat(buf[3]);
         
    for var i:=1 to 4 do
      buf[i]:='';
      
    end;
    
    write(f_out, bank);  
    end;
  close(f_in);
  close(f_out);
end.

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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
Const
  file_name = 'input.dat';
type
  Tbank = record
                name:string[50];
               zero:real;
              one:real;
                              end;
   arr = array [byte] of Tbank;           
var
  f_in: file of Tbank;    // входной файл
  f_out: text;                 // выходной файл
  bank:Tbank;
  mas:arr;
  k:byte;
  i:byte;
 
procedure input_mas(f: file of Tbank; var mas: arr; var k:byte);
begin
  assign(f, file_name);
  reset(f);
  k:=0;
  while not Eof(f) do
  begin
    inc(k);
    read(f, bank);
    mas[k] := bank
  end;
  close(f)
end;
procedure poisk(mas: arr; k:byte);
var
  s:real;
begin
  writeln('------------------------------');
  writeln('Банки ,выдавшие в 2000 году ссуду > 5 млн. руб.');
  for var i:=1 to k do
    s:=5000000; 
   for var i:=1 to k do
    if mas[i].zero > s then
      writeln(mas[i].name);
  end;
procedure bol_ssud(mas: arr; k: byte);
var
  l,m:real;
begin
 writeln('------------------------------');
  writeln('Макс сумма:');
      for var i:=1 to k do
  begin
  l:=mas[i].zero;
  m:=mas[i].one;
    if mas[i+1].zero > l then
     l:= mas[i+1].zero;
          if mas[i+1].one > m then
     m:= mas[i+1].one;
            if l > m then 
      writeln(mas[i+1].zero)
      else 
      writeln(mas[i+1].one);
      end;
      end;
procedure ydalenie(var f: file of Tbank);
begin
  assign(f, file_name);
  reset(f);
  
  var i := 0;
  while (i <= filesize(f) - 1) do 
  begin
    read(f, bank);
    if bank.zero=0 then 
    begin
      for var j := i to filesize(f) - 2 do 
      begin
        seek(f, j + 1);
        read(f, bank);
        seek(f, j);
        write(f, bank);
      end;
      seek(f, filesize(f) - 1);
      truncate(f);
      seek(f, i)
    end
    else 
    begin
      inc(i);
      seek(f, i)
    end
  end
end;
procedure ydalenie1(var f: file of Tbank);
begin
  assign(f, file_name);
  reset(f);
  
  var i := 0;
  while (i <= filesize(f) - 1) do 
  begin
    read(f, bank);
    if bank.one=0 then 
    begin
      for var j := i to filesize(f) - 2 do 
      begin
        seek(f, j + 1);
        read(f, bank);
        seek(f, j);
        write(f, bank);
      end;
      seek(f, filesize(f) - 1);
      truncate(f);
      seek(f, i)
    end
    else 
    begin
      inc(i);
      seek(f, i)
    end
  end
end;
 
procedure sort(var mas: arr; k: byte);
var
  s:byte;
    n:real;
begin
n:= mas[i].zero + mas[i].one;
 
  for var i := 1 to k - 1 do 
    if n > mas[i+1].zero + mas[i+1].one then 
      for var j := i + 1 to k do
        if n < mas[i+1].zero + mas[i+1].one then
        swap(mas[i], mas[j]); 
  s:=0;
  for var i := 1 to k do  
    if n[i] < mas[i+1].zero + mas[i+1].one then
      s:=s+1;  //
    {for var i:=1 to k do
   writeln(mas[i].bank,' ',mas[i].zero,' ',mas[i].one);}       
end;
 
procedure Output(mas: arr; k: byte; f: text);
var
  s,s1,s2:string;
begin
  Assign(f, 'output.txt');
  Rewrite(f);
  writeln(f,'Наим банка:','Ссуда на 2000г':15,'Ссуда на 2001г':10);
  for var i:=1 to k do
  begin
    s := '';
    s1 := '';
       var a := 10 - (length(mas[i].name) - length('Наим банка:'));
    for var j := 1 to a do s += ' ';
    var b := 1 - (length(floattostr(mas[i].zero)) - length('Ссуда на 2000г:'));
    for var j := 1 to b do s1 += ' ';
    var c := 5 - (length(floattostr(mas[i].one)) - length('Ссуда на 2001г:'));
    for var j := 1 to c do s2 += ' ';
    
    writeln(f,mas[i].name,s,mas[i].zero,s1,mas[i].one);
  end;
  close(f);  
end; 
 
begin
  input_mas(f_in, mas, k);
  poisk(mas, k);
  bol_bank(mas, k);
  ydalenie(f_in);
  sort(mas,k);
  output(mas,k,f_out);
  ydalenie1(f_in);
end.

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git