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

@Assign_me_plz · Регистрация: 05.06.2011

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

@Assign_me_plz · 10.06.2011, 00:30 **[ТС]**

Задачу решил, скоро выложу код, если кому-нибудь нужно.

@MiBr · 10.06.2011, 05:39

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.

@Assign_me_plz · 16.06.2011, 00:19 **[ТС]**

Pascal

Uses crt;
Type r=record
 name:string;
 surname:string;
 lastname:string;
 adress:string;
 phone_number:string[7];
 end;
 f=file of r;
 var
 s:string;
 f1:text;
 f2:f;
 procedure cr(var f2:f);
 var p:r;
 begin
 rewrite(f2);
 with p do begin
 repeat
 write('surname-');
 readln(surname);
 if surname <>''then begin
 write('name-');
 readln(name);
 write('lastname-');
 readln(lastname);
 write('adress');
 readln(adress);
 write('phone number-');
 readln(phone_number);
 write(f2,p);
end;
 until surname='';
 end;
 end;
 procedure search(var f1:text);
 var p:r;
 s:string;
 begin
 reset(f2);
 rewrite(f1);
 seek(f2,0);
 write('input surname');
 readln(s);
 while not eof(f2) do begin
 read(f2,p);
 if (s=p.surname) then begin
 writeln(f1,p.phone_number,p.adress);
 end;
 end;
 close(f1);
 close(f2);
 end;
 begin
 writeln('input name of file (with .txt in end)');
 readln(s);
 Assign(f2,s);
 writeln('name of output file');
 readln(s);
 Assign(f1,s);
 cr(f2);
 search(f1);
 end.

@Assign_me_plz 5 / 5 / 4 Регистрация: 05.06.2011 Сообщений: 40
		1
	Исходный файл содержит информацию: Имя, фамилия,отчество, номер телефона, адрес. Создать процедуру, которая выводит на экран по фамилии телефон, адрес 05.06.2011, 23:58. Просмотров 4014. Ответов 3 Метки нет (Все метки) Исходный файл содержит информацию: Имя, фамилия,отчество, номер телефона, адрес. Создать процедуру, которая записывает во второй файл и выводит на экран по фамилии телефон, адрес ( учесть возможность однофамильцев). Имя файла любое. К сожалению по типизированным файлам я ноль, если есть возможность- помогите. 0

@Assign_me_plz 5 / 5 / 4 Регистрация: 05.06.2011 Сообщений: 40
	10.06.2011, 00:30 [ТС]	2
	Задачу решил, скоро выложу код, если кому-нибудь нужно. 0

@MiBr 1 / 1 / 4 Регистрация: 08.06.2011 Сообщений: 25
	10.06.2011, 05:39	3
	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. 0

Опции темы