Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
_ART@
1 / 1 / 1
Регистрация: 11.10.2010
Сообщений: 40
1

Типизированные файлы (обработка)

27.02.2011, 13:08. Просмотров 369. Ответов 4
Метки нет (Все метки)

Как мне вывести в алфавитном порядке список фамилий студентов группы Х, у которых оценка за контрольную 7 и выше. Заранее спасибо.
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
program OKR;
uses crt;
type
StFio       =   string[10];
StMatem     =   string[20];
StFizika    =   string[20];
StProgr     =   string[20];
StInjGraf   =   string[40];
Rec_Book    =   record
Fio         :   StFio;
Matem       :   StMatem;
Fizika      :   StFizika;
Progr       :   StProgr;
InjGraf     :   StInjGraf;
end;
var
BookFile : file of Rec_Book;
Work     : Rec_Book;
Ind      : byte;
Procedure Output_Rec;
begin
read(BookFile,Work);
with Work do
writeln('Familia:',Fio,
' *** Ozenka po matem:',Matem,
' *** Ozenka po fizike:',Fizika,
' *** Ozenka po programmirovaniu:',Progr,
' *** Ozenka po injenern. grafike:',InjGraf);
end;
Procedure Output_All_Rec;
begin
Seek(BookFile,0);
writeln('***Vyvod resultatob okr na ekran');
while(not Eof(BookFile)) do Output_Rec;
end;
Procedure Add_Rec;
begin
writeln('***vvod zapisi faila');
with Work do begin
write('Vvedite familiu:');
readln(Fio);
write('Vvedite ozenku po matem:');
readln(Matem);
write('Vvedite ozenky po fizike:');
readln(Fizika);
write('Vvedite ozenku po programmir.:');
readln(Progr);
write('Vvedite ozenku po injenern. grafike:');
readln(InjGraf);
write(BookFile,Work);
end;
end;
Procedure Update_Rec(Nom_Rec:LongInt);
begin
Seek(BookFile,Nom_Rec);
Writeln('-- staroe znachenie zapisi --');
Output_Rec;
Seek(BookFile,Nom_Rec);
writeln('-- novoe znachenie --');
Add_Rec;
end;
begin
clrscr;
Assign(BookFile,'OKR.dat');
rewrite(BookFile);
write('Sozdanie 5 zapisey faila  OKR.dat');
for Ind:=1 to 5 do
Add_Rec;
write('Sozdanie zapisey zaversheno . Najmite klavishu...');
readln;
Output_All_Rec;
write('Izmenenie  2 zapisi faila.Najmite klavishu ...');
readln;
Update_Rec(1);
write('Dlya prodoljenia najmite lubuy klavishu ...');
readln;
Output_All_Rec;
close(BookFile);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2011, 13:08
Ответы с готовыми решениями:

Занесите в отдельные файлы списки студентов различных форм обучения(Типизированные файлы)
Помогите пожалуйста написать программку. Трудно мне даются блин эти файлы... Создайте файл...

Файлы. Типизированные файлы. Получить файл G, содержащий все компоненты файла F, являющиеся нечетными числами и корнями целых чисел
1.Заданный файл F компонентами которого являются целые числа. Получить файл G содержащий все...

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

Типизированные файлы
В базе данных school.dat хранятся сведения о годовых оценках учеников школы: ФИО ученика, класс...

типизированные файлы и записи
Составить и отладить программу, которая должна создавать типизированный файл, содержащий записи...

4
Puporev
Модератор
54716 / 42122 / 29086
Регистрация: 18.05.2008
Сообщений: 99,425
27.02.2011, 13:14 2
Цитата Сообщение от _ART@ Посмотреть сообщение
StMatem * * = * string[20];
Это типа оценка по математике выглядит так
васмпаеапрпампрпааепап
или так
1234567891234567900
0
_ART@
1 / 1 / 1
Регистрация: 11.10.2010
Сообщений: 40
27.02.2011, 13:16  [ТС] 3
Без разницы
0
Puporev
Модератор
54716 / 42122 / 29086
Регистрация: 18.05.2008
Сообщений: 99,425
27.02.2011, 13:20 4
Тогда удачи....
0
_ART@
1 / 1 / 1
Регистрация: 11.10.2010
Сообщений: 40
27.02.2011, 13:23  [ТС] 5
Спасибо
0
27.02.2011, 13:23
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2011, 13:23

Типизированные файлы, записи.
Задача по типизованих файлах. 1) Заданный файл, содержащий номера работников учреждения....

Паскаль. Типизированные файлы.
Вот код к следующей задаче: Для студентов некоторой группы задана следующая информация: порядковый...

Типизированные файлы прямого доступа.
Здравствуйте. Добрые люди откликнитесь на просьбу=) Задача. Поменять местами первую и последнюю...


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

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

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