Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Korotenko
#1

Процедура сортирования записей в типизированном файле - Pascal

25.11.2012, 01:32. Просмотров 276. Ответов 0
Метки нет (Все метки)

Ребят,есть такая задачка:нужно отсортировать записи в типизированом файле по таким елементам:1)Фамилия 2)рейтинг 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
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
unit Mod13;
interface
uses crt;
type base = record
     name:string [40];
     zbook:real;
     group:string[10];
     labs,rate:integer;
 
end;
personfile= file of base;
var stud:array [0..100] of base;
    i,x,flag:integer;
    fl:char;
    n: personfile;
    procedure output(var m:personfile);
    procedure recording(var m:personfile;r:integer);
    procedure MyVar(var m:personfile;x:integer);
    procedure del(var m:personfile;nam:string[20]);
implementation
//================//
procedure del(var m:personfile;nam:string[20]);
var k,i:integer;
begin
assign(m,'stud12.dat');
reset(m);
writeln('Write name of student which you`d like to erase from base');
readln(nam);
for i:=0 to filesize(m)-1 do
begin
read(m,stud[i]);
if stud[i].name=nam then
begin
for i:=filePos(m) to (filesize(m)-1) do
begin
seek(m,i);
read(m,stud[i]);
seek(m,i-1);
write(m,stud[i]);
end;
end;
end;
truncate(m);
close(m);
end;
 
 
 
 
 
 
procedure output(var m:personfile);
       var i,x:integer;
       begin
       assign(m,'stud12.dat');
       reset(m);
       x:=filesize(m);
       writeln ('            Surname':16,'Group':15,'Rate':7,'Zbook':7);
       for i:=0 to (x-1) do
       begin
        reset(m);
      seek(m,i);
       read(m,stud[i]);
       with stud[i] do
      writeln(name:20,group:10,rate:10,zbook:10);
      end;
      close(m);
       end;
       //===========================//
procedure recording(var m:personfile;r:integer);
var
i,mark:integer;
begin
  assign(m, 'stud12.dat');
  reset(m);
  writeln('Please input the number of student that you would like to record to the base:');
  readln(r);
    for i:=1 to r do
      begin
        mark:=filesize(m);
        writeln('vvedite name rabotnika Гј=',i);
        readln(stud[i].name);
        writeln('vvedite grupu rabotnika Гј=',i);
        readln(stud[i].group);
        writeln('vvedite rate rabotnika Гј=',i);
        readln(stud[i].rate);
        writeln('vvedite zbook rabotnika Гј=',i);
        readln(stud[i].zbook);
        seek(m,mark);
        write(m,stud[i]);
      end;
  close(m);
  end;
  //===================//
  procedure MyVar(var m:personfile;x:integer);
  var  i:integer;
  begin
  assign(m,'stud12.dat');
  reset(m);
  writeln('Input the rate of the students you`d like to find');
  for i:=0 to filesize(m)-1 do
  begin
  read(m,stud[i]);
  if stud[i].rate=x then
  write(stud[i].name,stud[i].zbook);
   end;
   close(m);
   end;
   initialization
   begin
   end;
   end.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2012, 01:32
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Процедура сортирования записей в типизированном файле (Pascal):

Циклический сдвиг вправо в типизированном файле (процедура) - Pascal
Необходимо сделать циклический сдвиг вправо в типизированном файле, не могу это реализовать. Сдвиг подразумевает это Ya On Tot...

Сортировка в Типизированном файле - Pascal
Вечер добрый!!! обращаюсь к вам с такой проблемой: создал программу по учету книг8 в библиотеке(т.е. програма обеспечивает ввод данных...

сохранение инфо в типизированном файле - Pascal
Доброго времени суток!!! Помогите с программой пожалуйста..... Информация о выдаче денег при уходе сотрудников в отпуск содержит...

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

Заменить элемент в типизированном файле - Pascal
В существуещем типизированном файле, элементами корого являются числа, изменить на заданное число: а)пятый элемент;

В типизированном файле хранится информация о машинах. - Pascal
решите плз В типизированном файле хранится информация о машинах (марка, год выпуска, стоимость). Вывести информацию о самой дорогой...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2012, 01:32
Привет! Вот еще темы с ответами:

Перемена местами значений в типизированном файле - Pascal
Опять я выхожу на связь. uses crt; label 1,2; var f1:file of integer; x,i,i1,i2,u1,u2,n:integer; begin assign(f1,...

В типизированном файле хранится информация о машинах - Pascal
В типизированном файле хранится информация о машинах (марка, год выпуска, стоимость). Вывести информацию о самой дорогой машине и самой...

Заполнение, сортировка чисел в типизированном файле - Pascal
И снова Здравствуйте. 1. Нужно заполнить типизированный файл случайным числом случайных целых чисел ( сколько, значение- все случайно)....

поиск по любому полю в типизированном файле - Pascal
Разработать программу решения задачи, в которой реализовать поиск по любому полю в типизированном файле, содержащем сведения о коллекции...


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

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

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