Алгоритмы и программы. Афанасьева Т. В - 124 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

124
program kr1;
var a:array [1..10] of integer;
i:byte;
c:integer;
f: file of integer;{объявление типизированного файла целых чисел}
begin
assign (f,'mkurs.dat');{связывание файловой переменной с именем файла}
reset (f);{открытие файла для чтения}
for i:=1 to 30 do
begin
read(f,c);{чтение\ввод данных из файла}
write(c,' ');
end;
writeln ('Полученный массив ');
seek (f,9);{установка на 10 запись в файле}
for i:=1 to 5 do
begin
read( f,a[i]);{чтение из файла}
write (a[i],' ');
end;
seek (f,0); {установка на начало файла}
for i:=6 to 10 do
begin
read(f,a[i]);{чтение из файла}
write (a[i],' ');
end;
close (f); {завершить работу с файлом – закрыть файл}
readln;
end.
Пример 7.16.
Ввод из файла 10 чисел в одномерный массив в
следующем порядке:
– сначала все отрицательные числа файла c 12 по 20 позиции;
– затем все, начиная с первой позиции файла.
program kr2;
var a: array [1..10] of integer;
i,j:byte;
c:integer;
f: file of integer; {объявление файловой переменной}
begin
assign (f,'mkurs.dat');{связывание файловой переменной с именем файла}
reset (f); {открытие файла}
writeln(' Исходный файл ');

Страницы