Реферат по предмету "Астрономия"


Послідовний запис у типізовані файли

Реферат на тему:
Послідовний запис у типізовані файли
Перш, ніж записувати в файл, слід відкрити його для запису. Це задається процедурою REWRITE. Після виклику ReWrite(f) значення f подається як (, 0, W), тобто незалежно від попереднього значення f послідовність у файловій змінній стає порожньою:
F
 
 
 
 
­
стан
W Значення 0 вказівника доступного елемента свідчить про те, що можна записати нове значення в перший, тобто з номером 0, елемент файла. Ця процедура викликається для створення нового файла або поновлення старого зі знищенням даних, що були в ньому. Після її виконання файл називається встановленим у початковий стан для запису.
Запис у файл задається процедурою WRITE. При виконанні її виклику
write ( f, вираз-типу-компонентів-файла)
обчислюється значення виразу та присвоюється доступному елементу файла, після чого вказівник доступного елемента зсувається на 1 елемент. Наприклад, після виконання останього з наведених операторів у програмі
program...
varf: file ofinteger; x: integer
begin ...
rewrite(f); x:=2;
write(f, 1); write(f, x); write(f, x*x);

end.
файлова змінна f має значення, що подається як (, 3, W).
Узагалі, значення (f, …, fn-1>, n, W) файлової змінної f при виконанні write(f, вираз) міняється на (f, …, fn-1, V>, n+1, W), де Vпозначає значення виразу.
У виклику write можна вказувати довільне число аргументів-виразів того самого типу: write ( f, вираз1,…, виразN). Такий виклик виконується насправді як послідовність
write(f,вираз1); …; write(f,виразN).
Наприклад, замість write(f, 1); write(f, x); write(f, x*x) можна написати write(f, 1, x, x*x).
Підкреслимо, що процедуру writeln не можна застосовувати до типізованих файлів. Вона призначена лише для роботи з текстами.
Приклад 1.Треба створити файл із такими даними про студентів групи: прізвище та ім’ я студента, а також середній бал його успішності.
Дані про студента можна подати записом типу
Student = record
SName, Name: string[20];
Ball: real
end.
Зв’ язування та встановлення файла в початковий стан для запису оформимо процедурою OpenFile, а створення – процедурою CreatFile у такій програмі:
program InPutGroup;
type
Student = record
Sname, Name: string[20];
Ball: real;
end;
var
Fi: file of Student; { Файлова змінна Fi – інформаційний файл }
FileName: string; { Змінна для введення імені файла }
procedureOpenFile;
begin
writeln('Задайте ім''я файла, що буде створюватися: ');
readln(FileName);
assign(Fi, FileName);
rewrite(Fi);
end;
procedure InPutFile;
var St: Student;
Ch: char;
begin
repeat
writeln('Задайте дані про студента:');
write('Прізвище>'); readln(St.SName);
write('Ім''я>'); readln(St.Name);
write('Середній бал успішності>'); readln(St.Ball);
write(Fi, St); {***}
write('Чи треба вводити дані про нового студента? «Y»/«N»> ');
readln(Ch);
until(Ch = 'n') or (Ch = 'N');
close(Fi);
end;
begin
writeln('Програма створення файла даних про успішність');
openfile; { Виклик процедури відкривання файла }
creatfile; { Виклик процедури створення файла }
end.


Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Сейчас смотрят :

Реферат Майкл Джексон - Икона стиля
Реферат Применение методов управления запасами в целях повышения экономической эффективности системы материально-технического снабжения предприятия на примере ОАО "Амурский судостроительный завод"
Реферат Пенетрирующая язва желудка и двенадцатиперстной кишки Прободная язва
Реферат передатчик расчет 50 - 80 Мгц
Реферат Людвіг Фейєрбах
Реферат Географическая характеристика Африки
Реферат Агентство по перспективным оборонным научно-исследовательским разработкам США
Реферат ПРИЕМЫ ОТОБРАЖЕНИЯ ПРОСТРАНСТВА В ЭКРАННОМ ТВОРЧЕСТВЕ НА ПРИМЕРЕ ВИДЕОРЕКЛАМЫ
Реферат Cloning 2 Essay Research Paper HUMAN CLONINGHuman
Реферат Салмонезе, Джо
Реферат Воздушные перевозки
Реферат The Lottery Essay Research Paper MerriamWebster
Реферат Предмет, метод, содержание cудебной медицины
Реферат Основы обработки изображений
Реферат Отчет по практики в ЗАО ССК