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

@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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
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.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Assign_me_plz 5 / 5 / 4 Регистрация: 05.06.2011 Сообщений: 40

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

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

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