@MiBr

Program f_3;
{
Задача.
Дан файл F, компоненты которого являются целыми числами.
Записать в файл G все четные числа файла F, а в файл H -
все нечетные. Порядок следования чисел сохраняется.

Решение.
Евгений Лазневой

}

Uses Crt;

Const
Path = 'D:\BP\BIN\EVGEN\'; { директория файлов }

Var
F, { данный файл }
G, { файл четных чисел }
H { файл нечетных чисел }
: file of integer;

name { имя файла }
: string [12];

i, { число файла }
a,
n { длина файла }
: integer;

Begin
ClrScr;

Write ('Дайте имя файлу данных: ');
ReadLn (name);

Assign (F, Path + name);
ReWrite (F);

for i := 1 to 10 do
begin
a := Sqr (i);
Write (F, i, a);
end;
Assign (G, Path + 'n0.pas');
ReWrite (G);

Assign (H, Path + 'n1.pas');
ReWrite (H);

n := FileSize (F);
WriteLn ('Длина файла: ', n);

Reset (F);
for i := 1 to n do
begin
Read (F, a);
Write (a, ' ');
if a mod 2 = 0
then
Write (G, a)
else
Write (H, a);
end;
WriteLn;

n := FileSize (G);
Reset (G);
Write ('Данные файла G: ');
for i := 1 to n do
begin
Read (G, a);
Write (a, ' ');
end;
WriteLn;

{
первый способ печати содержимого файла
}
n := FileSize (H);
Reset (H);
WriteLn;
WriteLn ('Первый способ: ');
Write ('Данные файла H: ');
for i := 1 to n do
begin
Read (H, a);
Write (a, ' ');
end;
WriteLn;

{
второй способ печати содержимого файла
}
WriteLn;
WriteLn ('Второй способ: ');
Write ('Данные файла H: ');
Reset (H);
i := 0;
while not Eof (H) do
begin
Seek (H, i);
Read (H, a);
Write (a, ' ');
Inc (i);
end;
WriteLn;

Close (G);
Close (H);
Close (F);
WriteLn ('Задача решена!');
ReadLn;
End.

Вернуться к обсуждению:
Исходный файл содержит информацию: Имя, фамилия,отчество, номер телефона, адрес. Создать процедуру, которая выводит на экран по фамилии телефон, адрес Pascal

0