Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/21: Рейтинг темы: голосов - 21, средняя оценка - 4.71
5 / 5 / 4
Регистрация: 05.06.2011
Сообщений: 40
1

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

05.06.2011, 23:58. Просмотров 4014. Ответов 3
Метки нет (Все метки)


Исходный файл содержит информацию: Имя, фамилия,отчество, номер телефона, адрес. Создать процедуру, которая записывает во второй файл и выводит на экран по фамилии телефон, адрес ( учесть возможность однофамильцев). Имя файла любое.
К сожалению по типизированным файлам я ноль, если есть возможность- помогите.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2011, 23:58
Ответы с готовыми решениями:

Организовать файл записей и поместить в него сведения о нескольких студентах (Фамилия, имя, отчество, дата рождения, домашний адрес).
Организовать файл записей и поместить в него сведения о нескольких студентах (Фамилия, имя,...

Дан текстовый файл, в котором хранятся данные о работающих в фирме: фамилия, имя , отчество, адрес
2. Дан текстовый файл, в котором хранятся данные о работающих в фирме: фамилия, имя , отчество,...

Записи и типизированные файлы. Структура: фамилия, имя, отчество, год установки телефона, номер телефона
Создать файл, содержащий сведения о телефонах абонентов. Каждая запись имеет поля: фамилия...

Нужно создать структуру типа: СТУДЕНТ: Фамилия, Имя, Отчество, Домашний адрес, телефон, Баллы
СТУДЕНТ: Фамилия, Имя, Отчество, Домашний адрес, телефон, Баллы. А потом Определить данные о...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
3
5 / 5 / 4
Регистрация: 05.06.2011
Сообщений: 40
10.06.2011, 00:30  [ТС] 2
Задачу решил, скоро выложу код, если кому-нибудь нужно.
0
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
5 / 5 / 4
Регистрация: 05.06.2011
Сообщений: 40
16.06.2011, 00:19  [ТС] 4
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.06.2011, 00:19

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Класс студент с полями: год рождения, имя, фамилия, отчество, адрес и телефон.
Написать класс студент с полями: год рождения, имя, фамилия, отчество, адрес и телефон.

Структуры.Фамилия, Имя, Отчество Группа Домашний адрес, Телефон Электронная пошта
Структуры. Notebook:Фамилия, Имя, Отчество, Домашний адрес, Телефон Электронная пошта.

Класс Абонент: Идентификационный номер, Фамилия, Имя, Отчество, Адрес, Номер кредитной карточки
Доброго времени суток. Помогите пожалуйста написать программу. Класс Абонент: Идентификационный...

Класс Покупатель: Фамилия, Имя, Отчество, Адрес, Номер кредитной карточки
Здравствуйте. Помогите пожалуйста написать программу. Я новичек и ООП даётся крайне сложно. Класс...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.