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

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

27.02.2011, 13:08. Просмотров 362. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Типизированные файлы (обработка) (Turbo Pascal):

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

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

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

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

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

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

4
Puporev
Модератор
54139 / 41772 / 28880
Регистрация: 18.05.2008
Сообщений: 98,320
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
Модератор
54139 / 41772 / 28880
Регистрация: 18.05.2008
Сообщений: 98,320
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
Привет! Вот еще темы с решениями:

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

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

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

Типизированные файлы. Добавление записей
Никак не получается добавить записи(процедура dop), точнее они добавляются, но...


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

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

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