Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 15, средняя оценка - 4.67
Assign_me_plz
5 / 5 / 0
Регистрация: 05.06.2011
Сообщений: 40
#1

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

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

Исходный файл содержит информацию: Имя, фамилия,отчество, номер телефона, адрес. Создать процедуру, которая записывает во второй файл и выводит на экран по фамилии телефон, адрес ( учесть возможность однофамильцев). Имя файла любое.
К сожалению по типизированным файлам я ноль, если есть возможность- помогите.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.06.2011, 23:58
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Исходный файл содержит информацию: Имя, фамилия,отчество, номер телефона, адрес. Создать процедуру, которая выводит на экран по фамилии телефон, адрес (Pascal):

Описать запись с именем STUDENT, содержащую следующие поля: фамилия, имя, отчество, номер группы, успеваемость (массив из пяти элементов). Написать пр - Pascal
Исправите код пожалуйста :gsorry: Program KK; uses crt; const N=3; //количество студентов type FIO = record family...

Создать процедуру, которая выводит значения элементов массива на экран - Pascal
Задание 4. Создать процедуру, которая выводит значения элементов массива на экран.

в текстовом файле дан текст: фамилия, имя, отчество. В новый текстовый файл вывести самое длинное число - Pascal
в текстовом файле дан текст: фамилия, имя, отчество. В новый текстовый файл вывести самое длинное число

Табель успеваемости группы студентов содержит следующие сведения: номер по порядку, фамилию, имя, отчество студента, оценки по каждому экзамену - Pascal
Табель успеваемости группы студентов содержит следующие сведения: номер по порядку, фамилию, имя, отчество студента, оценки по каждому...

Составить программу, которая позволяет найти в телефонном справочнике по номеру телефона ФИО и адрес абонента - Pascal
Здравствуйте, Уважаемые. Очень срочно нужна Ваша помощь, в решении двух задач. 2.В среде TurboPascal составить и отладить программу,...

Создать файл, содержащий сведения о студентах (фамилия, адрес, дата рождения) - PascalABC.NET
помогите!!! Создать файл, содержащий сведения о студентах (фамилия, адрес, дата рождения). Вывести фамилию и адреса тех, у кого день...

3
Assign_me_plz
5 / 5 / 0
Регистрация: 05.06.2011
Сообщений: 40
10.06.2011, 00:30  [ТС] #2
Задачу решил, скоро выложу код, если кому-нибудь нужно.
0
MiBr
1 / 1 / 2
Регистрация: 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
Assign_me_plz
5 / 5 / 0
Регистрация: 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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2011, 00:19
Привет! Вот еще темы с ответами:

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

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

Дан текстовый файл, в котором хранятся данные об учениках нескольких школ: фамилия, имя, отчество, адрес (ул - C#
В очередной раз обращаюсь за помощью. Есть два задания: 1. Дан текстовый файл, в котором хранятся данные об учениках нескольких...

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


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

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

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