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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
_ART@
1 / 1 / 0
Регистрация: 11.10.2010
Сообщений: 40
#1

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

27.02.2011, 13:08. Просмотров 343. Ответов 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):

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

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

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

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

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

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

4
Puporev
Модератор
52834 / 40645 / 13893
Регистрация: 18.05.2008
Сообщений: 94,296
27.02.2011, 13:14 #2
Цитата Сообщение от _ART@ Посмотреть сообщение
StMatem * * = * string[20];
Это типа оценка по математике выглядит так
васмпаеапрпампрпааепап
или так
1234567891234567900
0
_ART@
1 / 1 / 0
Регистрация: 11.10.2010
Сообщений: 40
27.02.2011, 13:16  [ТС] #3
Без разницы
0
Puporev
Модератор
52834 / 40645 / 13893
Регистрация: 18.05.2008
Сообщений: 94,296
27.02.2011, 13:20 #4
Тогда удачи....
0
_ART@
1 / 1 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

Сортировка записей(типизированные файлы) - Turbo Pascal
Добрый день. Вот код моей программы: Type dat=record {тип запись «сведения о сотрудниках»} fio:string; {фамилия} adress:string;...

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

Типизированные файлы. Ошибка в обработке - Turbo Pascal
Подскажите в чем ошибка Program P3; Type body=record surname: string; name :string; exname :string; end; ...

Типизированные файлы. Напечатать n-ый элемент - Turbo Pascal
Привет помогите с задачкой пожалуйста. Дан типизированный файл, элементами которого являются числа. Напечатать n-ый элемент. Который...


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

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

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