Автор работы: Пользователь скрыл имя, 20 Марта 2012 в 22:50, курсовая работа
Введение файлового типа в язык ПАСКАЛЬ вызвано необходимостью обеспечить возможность работы с периферийными (внешними) устройствами ЭВМ, предназначенными для ввода, вывода и хранения данных.
Файл определяет упорядоченную совокупность произвольного числа однотипных компонент.
I. Теоретическая часть 3
1.1. Основные процедуры для работы с файлами 3
1.2. Текстовые файлы 5
1.3. Типизированные файлы 8
II. Практическая часть 10
Результат:
Зарплата растёт из месяца в месяц
Петров
Матвеев
Скворцов
3.2 Ввести в файл записи о поступивших на работу в конец файла ( любое количество).
program ex3_2;
uses crt;
const n=10; m=12;
fin='f:\k3_0y.dat';
type
worker=record
name: string [7];
post: string [6];
year: integer;
zrpl: array [1..m] of integer;
end;
var
tabl: text;
w: worker;
i, j, Fa, F: integer;
begin
clrscr;
assign (tabl, fin);
append (tabl);
writeln ( ' vvedite polja novogo cotrydnika' );
writeln ('vvedite familii');
readln ( w.name);
writeln ('vvedite dolgnost');
readln{ (w.post);
writeln ('vvedite god postypleniya');
readln ( w.year);
writeln ('vvedite v poslednee pole', m, 'zarplat');
for j:= 1 to m do
readln ( {w.zrpl[j]);
write (tabl,w.name,w.post,w.year);
for j:= 1 to m do
write (tabl,w.zrpl[j]);
close (tabl);
readkey;
end.
1