Программирование - процесс и искусство создания компьютерных программ и/или программного обеспечения с помощью языков программирования. Программирование сочетает в себе элементы искусства, фундаментальных наук: информатики и математики.

Обработка файлов

Задачи работы:
1. Изучить файловый тип, организацию работы с последовательными файлами и возможности Турбо Паскаля для организации прямого доступа к записям файла.
2. Разработать алгоритм и составить программу для решения каждой из двух задач соответствующего варианта. В первой задаче используются только последовательные файлы, во второй рекомендуется пользоваться средствами прямого доступа к записям типизованных файлов. При работе с типизованными файлами, если возможно, не использовать вспомогательные файлы. Предусмотреть вывод содержимого файла на экран.
3. Для создания файлов исходных данных использовать любой текстовый редактор или вспомогательные программы.
4. Подобрать наборы тестовых данных.


Задание:
1. Дан текстовый файл. Вывести все согласные, которых нет ни в одном слове.
2. Дан файл, компонентами которого являются n-мерные векторы (n const). Векторы с наибольшим модулем перенести в конец файла.

Uses Crt;

Const n=5;
Var
f: Text;
c:Char;
s:set of char;
i:integer;

Begin
Clrscr;
WriteLn('Задание. Дан текстовый файл. Вывести все согласные, которых нет ни в одном слове.');
WriteLn;

s:= ['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
Assign(f,'c:\4-8-A.txt');
Reset(f);
While not EOF(f) do Begin
Read(f,c);
s:=s-[c];
End;

For c:='а' to 'я' do Begin
If c in s then Begin
Write(c);
Write(' ');
End;
End;
Close(f);
ReadLn;
End.

----------------------------------------------

Uses Crt;

Const n=3;
Type
Vector = record
X:array[1..n] of integer;
V:Double;
End;

Var
f: File of Vector;
V1,V2: Vector;
VCount:Integer;
a,b:Double;
i,j:integer;

Begin
Clrscr;
WriteLn('Задание. Дан файл, компонентами которого являются n-мерные векторы (n-const).');
WriteLn('Векторы с наибольшим модулем перенести в конец файла.');
WriteLn;

Assign(f,'c:\4-8-B.txt');
Rewrite(f);
Randomize;
For i:=1 to 10 Do Begin
For j:=1 to n do V1.X[j]:=Random(100);
Write(f,V1);
End;
VCount:=FileSize(f);

WriteLN('Содержимое файла до обработки:');

Seek(f,0);
For i:=0 to VCount-1 Do Begin
Read(f,V1);
For j:=1 to n Do Begin
Write(V1.x[j]);
Write(' ');
End;
WriteLn;
End;
WriteLn;

For i:=0 to VCount-2 Do Begin
Seek(f,i);
Read(f,V1);
a:=0;
For j:=1 to n Do a:=a+sqr(V1.x[j]);
a:=Sqrt(a);
V1.V:=a;
Read(f,V2);
For j:=1 to n Do b:=b+sqr(V2.x[j]);
b:=Sqrt(b);
V2.V:=b;
If a>b Then Begin
Seek(f,i);
Write(f,V2);
Write(f,V1);
i:=-1;
End;
End;
WriteLn('Содержимое файла после обработки');

Seek(f,0);
For i:=0 to VCount-1 Do Begin
Read(f,V1);
For j:=1 to n Do Begin
Write(V1.x[j]);
Write(' ');
End;
Write('Mодул векторa: ');
Write(V1.V:10:5);
WriteLn;
End;

Close(f);

Readkey;
End.



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

 
Меню
Главная
Услуги
Способы оплаты
Гарантии
Заказать
Готовые работы
Примеры алгоритмов
Контакты
 
 
Консультации
 
 
  ICQ 588641
 
Электронная почта
911@mathematix.ru
 
Skype
mathematix.ru
 
 
 
  © mathematix - контрольные, курсовые и дипломы по программированию Rambler's Top100