файлы

var
   i:real;
begin
     assign(input,'g1.txt');
     reset(input);
     assign(output,'g3.txt');
     rewrite(output);
     while not eof(input) do
           begin
                readln(i);
                writeln(i:4:1);
           end;
     close(input);
     close(output);
     assign(input,'g2.txt');
     reset(input);
     assign(output,'g1.txt');
     rewrite(output);
     while not eof(input) do
           begin
                readln(i);
                writeln(i:4:1);
           end;
     close(input);
     close(output);
 
     assign(input,'g3.txt');
     reset(input);
     assign(output,'g2.txt');
     rewrite(output);
     while not eof(input) do
           begin
                readln(i);
                writeln(i:4:1);
           end;
     close(input);
     close(output);
 
end.

uses crt;
var f,g,p:file of real;
    r:real;
    c:char;
begin
clrscr;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
assign(p,'fileP');
rewrite(p);
//создание файлов
writeln('Введите в файл F действительные числа, окончание ввода 0:');
repeat
write('r=');
readln(r);
write(f,r);
until r=0;
clrscr;
writeln('Введите в файл G действительные числа, окончание ввода 0:');
repeat
write('r=');
readln(r);
write(g,r);
until r=0;
clrscr;
//запись файла 1 в буфер
writeln('Содержание файла F:');
reset(f);
while not eof(f) do
 begin
  read(f,r);
  write(p,r);
  write(r:0:2,' ');
 end;
writeln;
close(f);
//запись файла 2 в 1
writeln('Содержание файла G:');
reset(g);
rewrite(f);
while not eof(g) do
 begin
  read(g,r);
  write(r:0:2,' ');
  write(f,r);
 end;
writeln;
close(g);
close(f);
reset(p);
rewrite(g);
//запись из буфера в файл 2
while not eof(p) do
 begin
  read(p,r);
  write(g,r);
 end;
erase(p);//уничтожим буфер
writeln;
writeln('Файлы после обмена:');
writeln('Содержание файла F:');
reset(f);
while not eof(f) do
 begin
  read(f,r);
  write(r:0:2,' ');
 end;
writeln;
close(f);
writeln('Содержание файла G:');
reset(g);
while not eof(g) do
 begin
  read(g,r);
  write(r:0:2,' ');
 end;
readln
end.

uses CRT;
type TStudent = record
                  Name : string[15];
                  Year : Word;
                  Kurs : 1..5;
             Mesto_prop: string[20];
                 end;
var Stud : TStudent;
   FStud : file of TStudent;
 Nom, kk,kol1: Word;
      gg:string;
 
function Perekod(ch:char):char;
begin
case ch  of
'А'..'п':  Perekod:=Chr(Ord(ch)-64);
 
'р'..'я':  Perekod:=Chr(Ord(ch)-16)
else Perekod:=ch;
 
end;
end;
 
function PerekodStr(s:string):string;
var i:integer;
begin
for i:=1 to length(s) do
s[i]:=Perekod(s[i]);
PerekodStr:=s;
end;
 
 
procedure Menu;
begin
  WriteLn(PerekodStr('0 очистка экрана'));
  WriteLn(PerekodStr('1 создание нового файла (обновление старого)'));
  WriteLn(PerekodStr('2 добавление записей в файл'));
  WriteLn(PerekodStr('3 печать файла'));
  WriteLn(PerekodStr('4 печать списка студентов N курса'));
  WriteLn(PerekodStr('5 сохранение в текстовый файл N курса'));
  WriteLn(PerekodStr('6 печать списка ростовчан'));
  WriteLn(PerekodStr('7 выход'));
end;
 
procedure Menu_Init(Nul0 : Boolean);
(* Nul0 = True - sozdanie novogo fila;
Nul0 = False - dobavlenie zapisei v suschestvuuchii *)
var ch:char;
begin
  if Nul0 then Rewrite(FStud)
  else
  begin
    Reset(FStud);
    Seek(FStud, FileSize(FStud));
  end;
  repeat
    WriteLn;
    Write(PerekodStr('имя студента ')); ReadLn(Stud.Name);
    Write(PerekodStr('дата рождения ')); ReadLn(Stud.year);
    Write(PerekodStr('курс (1-5) ')); ReadLn(Stud.kurs);
    Write(PerekodStr('город ')); Readln(Stud.Mesto_prop);
    Write(FStud, Stud);
    Write(PerekodStr('продолжить набор базы? (y/n)'));
    readln(ch);
    until ch = 'n';
  Close(FStud); WriteLn;
end;
procedure Menu_Print; (* pechat fila zapisei *)
begin
  Reset(FStud);
  while not Eof(FStud) do
  begin
    Read(FStud, Stud);
    WriteLn(Stud.Name:15, ' | ', Stud.year:5, ' | ', Stud.kurs);
  end;
  Close(FStud);
end;
procedure Menu_Kurs(k : Word); (* печать списка студентов k курса *)
begin
  Reset(FStud);
  WriteLn(PerekodStr('список студентов '), k, PerekodStr(' курса'));
while not Eof(FStud) do
begin
  Read(FStud, Stud);
  with Stud do
    if kurs = k then WriteLn(Name:15, ' | ', year);
  end;
  Close(FStud);
end;
procedure Menu_Text(k : Word);
(* сохранение в текстовый файл студентов k курса *)
var FileName : string;
          F0 : Text;
begin
  Write(PerekodStr('введите имя файла ')); ReadLn(FileName);
  Assign(F0,FileName + '.txt');
  Rewrite(F0); Reset(FStud);
  WriteLn(F0,PerekodStr('список студентов '), k, PerekodStr(' курса')); WriteLn(F0);
  while not Eof(FStud) do
  begin
    Read(FStud, Stud);
    if Stud.kurs = k then WriteLn(F0, Stud.Name);
  end;
  Close(FStud); Close(F0);
end;
 
procedure  Menu_Propiska(kol:integer); (* печать списка ростовчан *)
var k1:string;
begin
  k1:=PerekodStr('Ростов');
  Reset(FStud);
  WriteLn(PerekodStr('список студентов,живущих в городе '),k1);
while not Eof(FStud) do
begin
  Read(FStud, Stud);
  with Stud do
    if Mesto_prop = k1 then WriteLn(Name:15, ' | ', kurs)
    else kol:= kol+1;
  end;
  writeln(PerekodStr('количество иногородних студентов '),kol,PerekodStr(' человек'));
  Close(FStud);
end;
 
begin
  ClrScr;
  kol1:=0;
  Assign(FStud, 'stud.dat');
  Menu;
repeat
  Write(PerekodStr('введите номер команды '));
  ReadLn(Nom);
case Nom of
0: begin
     Menu;
   end;
1: Menu_Init(True);
2: Menu_Init(False);
3: Menu_Print;
4: begin
     Write(PerekodStr('номер курса '));
     ReadLn(kk);
     Menu_Kurs(kk);
   end;
5: begin
     Write(PerekodStr('номер курса '));
     ReadLn(kk);
     Menu_Text(kk);
   end;
6: Menu_Propiska(kol1);
end;
until nom = 7;
end.