работа с внешнеми файлами.

16.11.2009, 22:54. **Показов** 1608. **Ответов** 1

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

помогите плз, никак не могу решить задачу:

Подготовить данные об абитуриентах, поступающих в институт. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие поля:
1. Фамилия, имя, отчество.
2. Год рождения.
3. Год окончания школы.
4. Оценки в аттестате.
5. Признак - нуждается ли в общежитии.
6. Оценки вступительных экзаменов.

Разработать программу записи подготовленных данных во внешний файл и программу обработки созданного внешнего файла.
I. Удалить из внешнего файла все записи, удовлетворяющие условию, заданному в варианте, и распечатать информацию, оставшуюся в файле.
II. Добавить N записей в начало (конец) внешнего файла и распечатать записи полученного файла согласно конкретному варианту.

вар-т: Абитуриентам, имеющим средний балл больше 4,5 и нуждающимся в общежитии.

Используя внешний файл, содержащий исходные данные, добавить N записей и распечатать:
Список абитуриентов, имеющих средний балл меньше 4; N=1

заранее спс.

@Давид · 16.11.2009, 22:56

pasn, Задание не сложное - но писать много придется!
Вот вам в помощь моя программка -- начните хотя бы - а потом сюда выкладывайте!

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
{Создание четырех процедур в файле: Поиск, удаление записи, создание файла, просмотр файла!}
 
Program baza;
Uses crt;
label 10;
type spisok=record
     imja:string;
     fam:string;
     nomer:integer;
     gorod:string;
     end;
FT= file of spisok;
Var a:ft;
    i,z:integer;
    s:real;
Procedure Sozd (var a:ft);
Var i,j:integer;
    zk:spisok;
begin
rewrite (a);
j:=1;
 while j<>80 do
          begin
          write ('vvedite imja ');
          readln (zk.imja);
          write ('Vvedite familiIo ');
          readln (zk.fam);
          write ('vvedite nomer telefona ');
          Readln (zk.nomer);
          write ('vvedite gorod ');
          readln (zk.gorod);
          write (a,zk);
          writeln ('Esli konec zapisi to nazhmite 80 ');
          readln (j);
          end;
close (a);
end;
Procedure vyvod (var a:ft);
Var i:integer;
    zk:spisok;
begin
reset (a);
 writeln ('=================================');
 writeln ('| imja| familija| telefon| gorod|');
 writeln ('=================================');
  while not eof(a) do
   begin
    read (a,zk);
    write ('|',zk.imja:6,'|');
    write ('|',zk.fam:9,'|');
    write ('|',zk.nomer:6,'|');
    write ('|',zk.gorod:9,'|');
    writeln;
    writeln ('-------------------------------');
   end;
close (a);
end;
procedure delete (var a:ft);
Var n,m:longint;
      i:byte;
      mas:array [1..20] of spisok;
begin
 i:=1;
 reset(a);
 writeln ('vvedite nomer zapisi dlja udalenija ');
 readln(n);
 m:=filesize(a)-n;
 seek (a,n);
 while not eof(a) do
           begin
            read (a,mas[i]);
            i:=i+1;
           end;
 close (a);
 reset (a);
 seek (a,n-1);
 truncate (a);
 close (a);
 reset (a);
 seek (a,n-1);
  for i:=1 to m do
   write (a,mas[i]);
end;
Procedure poisk (var a:ft);
var i:integer;
    zk:spisok;
    name:string;
begin
reset (a);
 writeln ('Vvedite imja dlja poiska ');
 readln (name);
 writeln ('spisok s zadannym imenem ');
 writeln ('=================================');
 writeln ('| imja| familija| telefon| gorod|');
 writeln ('=================================');
 while not eof(a) do
 begin
  read (a,zk);
  if zk.imja=name then
  begin
    write ('|',zk.imja:6,'|');
    write ('|',zk.fam:9,'|');
    write ('|',zk.nomer:6,'|');
    write ('|',zk.gorod:9,'|');
    writeln;
    writeln ('-------------------------------');
  end;
 end;
close(a);
end;
begin
clrscr;
10:
assign (a,'fff');
writeln ('       MEHIO      ');
writeln ('1:cozdanie ');
writeln ('2:vyvod ');
writeln ('3:delete ');
writeln ('4:poisk ');
writeln ('5:vyxod ');
readln (z);
 case z of
  1:sozd(a);
  2:vyvod (a);
  3:delete(a);
  4:poisk (a);
  5:exit;
  end; goto 10;
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

pasn

	работа с внешнеми файлами. 16.11.2009, 22:54. Показов 1608. Ответов 1 Метки нет (Все метки) помогите плз, никак не могу решить задачу: Подготовить данные об абитуриентах, поступающих в институт. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие поля: 1. Фамилия, имя, отчество. 2. Год рождения. 3. Год окончания школы. 4. Оценки в аттестате. 5. Признак - нуждается ли в общежитии. 6. Оценки вступительных экзаменов. Разработать программу записи подготовленных данных во внешний файл и программу обработки созданного внешнего файла. I. Удалить из внешнего файла все записи, удовлетворяющие условию, заданному в варианте, и распечатать информацию, оставшуюся в файле. II. Добавить N записей в начало (конец) внешнего файла и распечатать записи полученного файла согласно конкретному варианту. вар-т: Абитуриентам, имеющим средний балл больше 4,5 и нуждающимся в общежитии. Используя внешний файл, содержащий исходные данные, добавить N записей и распечатать: Список абитуриентов, имеющих средний балл меньше 4; N=1 заранее спс.

работа с внешнеми файлами.

Решение