Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
2 / 2 / 0
Регистрация: 19.01.2010
Сообщений: 25
1

Найти телефон сотрудника по его фамилии и инициалам.

19.01.2010, 21:33. Просмотров 943. Ответов 7
Метки нет (Все метки)

Дан файл f, содержащий различные даты. Каждая дата -
это число, месяц и год. Найти:
а) год с наименьшим номером;
б) все весенние даты;
в) самую позднюю дату.
25. Дан файл f, который содержит номера телефонов сотруд-
ников учреждения: указывается фамилия сотрудника, его инициалы
и номер телефона. Найти телефон сотрудника по его фамилии и
инициалам.
+ блок схема
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.01.2010, 21:33
Ответы с готовыми решениями:

Найти телефон сотрудника по его фамилии и инициалам
дан файл f1 fкоторый содержит номера телефонов сотрудников учреждения:указывается фамилия...

Найти телефон сотрудника по его фамилии и инициалам
Сижу в кабинете и не могу решить эту задачу так как тему ету почти не знаю (знаю только основное),...

Получить: номер телефона сотрудника по его фамилии и инициалам
В файл Telephone записать номера телефонов сотруднико учреждения указать фамилии , инициалы,...

Найти телефон сотрудника по его фамилии и инициалам
Создать файл , содержащий номера телефонов сотрудников учреждения . Указывается фамилия сотрудника...

7
2 / 2 / 0
Регистрация: 19.01.2010
Сообщений: 25
19.01.2010, 23:24  [ТС] 2
касякнул только это оказывается---

Дан файл f, содержащий различные даты. Каждая дата -
это число, месяц и год. Найти:
а) год с наименьшим номером;
б) все весенние даты;
в) самую позднюю дату.

сейчас попытаюсь сделать
0
174 / 171 / 40
Регистрация: 14.11.2009
Сообщений: 507
19.01.2010, 23:27 3
а как это год с наименьшим номером?то есть самый меньший год?
1
2 / 2 / 0
Регистрация: 19.01.2010
Сообщений: 25
19.01.2010, 23:28  [ТС] 4
да наверное .
0
174 / 171 / 40
Регистрация: 14.11.2009
Сообщений: 507
19.01.2010, 23:30 5
месяц "фефраль" или 0.2?
1
2 / 2 / 0
Регистрация: 19.01.2010
Сообщений: 25
19.01.2010, 23:32  [ТС] 6
0.2 как я понял =)
0
174 / 171 / 40
Регистрация: 14.11.2009
Сообщений: 507
19.01.2010, 23:35 7
Pascal
1
2
3
12 0.2 1995
12 0.4 2008
16 0.8 1997
тогда я делаю под такой формат
1
174 / 171 / 40
Регистрация: 14.11.2009
Сообщений: 507
20.01.2010, 00:45 8
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
type
date=record
c:integer;
m:real;
g:integer;
end;
mas=array[1..100] of date;
mas1=array[1..100] of integer;
 
procedure FileRead (var f:text; var a:mas; var i:integer);
var
k:real;
l:integer;
begin
reset(f);
i:=0;
while not eof(f) do begin
inc(i);
read(f,a[i].c);
read(f,l);
if l in [1..9] then begin
k:=l/10;
a[i].m:=k;
end;
a[i].m:=l;
read(f,a[i].g);
readln(f);
end;
close(f);
end;
 
procedure solution (a:mas; n:integer);
 
function minimum(a:mas; n:integer):integer;
var
min,i:integer;
begin
min:=1;
for i:=2 to n do
if a[i].g<a[min].g then
min:=i;
minimum:=a[min].g;
end;
 
function maximum (a:mas; n:integer):integer;
var
max,i:integer;
begin
max:=1;
for i:=2 to n do begin
if (a[i].g>a[max].g) then
max:=i;
if (a[i].g=a[max].g) and (a[i].m>a[max].m) then
max:=i;
if (a[i].g=a[max].g) and (a[i].m=a[max].m) and (a[i].c>a[max].c) then
max:=i;
end;
maximum:=max;
end;
 
var
i:integer;
begin
writeln('Year with the littlest number = ',minimum(a,n));
writeln('Autumn Dates :');
for i:=1 to n do
if (a[i].m=0.9) or (a[i].m=10) or (a[i].m=11) then begin
write(a[i].c,' ',a[i].m:0:0,' ',a[i].g,' ');
writeln;
end;
i:=maximum(a,n);
writeln('Latest Date : ');
write(a[i].c,' ',a[i].m:0:0,' ',a[i].g);
end;
 
 
var
f:text;
a:mas;
n,i:integer;
BEGIN
assign(f,'F.txt');
FileRead(f,a,n);
writeln('All Dates In File');
for i:=1 to n do begin
write(a[i].c,' ',a[i].m:0:0,' ',a[i].g,' ');
writeln;
end;
Solution(a,n);
readln
END.
Добавлено через 59 секунд
файл должен выглядеть отак
Pascal
1
2
3
12 09 1995
12 11 2008
16 12 1997
тоесть без крапок!
если есть вопросы по поводу решения обращайся
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2010, 00:45

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

Файл записей: Найти телефон сотрудника по его фамилии и инициалам
Дано файл f, содержащий номера телефонов сотрудников учреждения: указывается фамилия сотрудника,...

Найти номер телефона сотрудника по его фамилии и инициалам
Help plz Дана переменная Т, которая содержит номера телефонов сотрудников учреждения:...

Найти телефон работника по его фамилии и инициалам
Дан файл, который содержит номера телефонов работников учреждения. Указывается фамилия работника,...

Найти номер студента по его фамилии и инициалам
дано файл. В нем находятся номера телефонов студентов их ФИО . найти номер студента по его фамилией...


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

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

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