Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
KT[F
1 / 1 / 0
Регистрация: 24.02.2011
Сообщений: 5
1

Вывод данных, поиск по году рождения и личному номеру

28.02.2011, 12:33. Просмотров 679. Ответов 1
Метки нет (Все метки)

Помогите плиз. Очень срочно нужна такая задача! Зарание огромное спс!!


Составьте программу, которая обеспечивает вывод данных, поиск по году рождения и личному номеру. Каждая компонента записи содержит личный номер ученика (тип integer); ФИО (тип string); год рождения (тип integer); адрес (тип string).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2011, 12:33
Ответы с готовыми решениями:

Составьте программу, которая обеспечивает вывод данных, поиск по году рождения и личному номеру
Помогите пожалуйста. Задали 3 задачи 2 сделал... А это немогу понять(( ...

Составьте программу, которая обеспечивает вывод данных, поиск по году рождения и личному номеру
Составьте программу, которая обеспечивает вывод данных, поиск по году рождения...

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

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

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

1
PsiYar
122 / 118 / 54
Регистрация: 10.02.2011
Сообщений: 199
28.02.2011, 12:54 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
uses crt;
type tv=record
        fio:string;
        god:integer;
        lin:integer;
        adr:string;
       end;
  mas=array [1..100] of tv;
var
buf:mas;
ch:char;
i,n:integer;
procedure vv(var buf:mas;var n:integer);
var c:char;
i:integer;
begin
i:=1;
while c<>'n' do
begin
  n:=i;
 clrscr;
 write('vvedite FIO:                  ');
 readln(buf[i].fio);
 write('vvedite god rojdenia:         ');
 readln(buf[i].god);
 write('vvedite litchniy nomer:       ');
 readln(buf[i].lin);
 write('vvedite adres:                ');
 readln(buf[i].adr);
 writeln;
 write('prodolgit? y/n: ');
 inc(i);
 readln(c);
  end;
end;
 
procedure poisk_l(buf:mas;n,i:integer);
var _lin:integer;
ch2:char;
k:byte;
begin
while ch2<>'n' do
begin
 clrscr;
 write('vvedite litchniy nomer dly poiska: ');
 readln(_lin);
 for i:=1 to n do
  if buf[i].lin = _lin then
 begin
 clrscr;
 writeln('FIO:                  ',buf[i].fio);
 writeln('god rojdenia:         ',buf[i].god);
 writeln('litchniy nomer:       ',buf[i].lin);
 writeln('adres:                ',buf[i].adr);
 writeln;
 inc(k);
 end;
 
if k=0 then writeln('poisk ne dal rezultata');
k:=0;
writeln('eche raz? y/n: ');
readln(ch2);
end;
end;
 
procedure poisk_g(buf:mas;n,i:integer);
var _god:integer;
ch2:char;
k:byte;
begin
while ch2<>'n' do
begin
 clrscr;
 write('vvedite god dly poiska: ');
 readln(_god);
 for i:=1 to n do
  if buf[i].god = _god then
 begin
 clrscr;
 writeln('FIO:                  ',buf[i].fio);
 writeln('god rojdenia:         ',buf[i].god);
 writeln('litcnhiy nomer:       ',buf[i].lin);
 writeln('adres:                ',buf[i].adr);
 writeln;
 inc(k);
 end;
 
if k=0 then writeln('poisk ne dal rezultata');
k:=0;
writeln('eche raz? y/n: ');
readln(ch2);
end;
end;
 
procedure vivod(buf:mas;n,i:integer);
begin
 clrscr;
 for i:=1 to n do
 begin
 writeln('FIO:                  ',buf[i].fio);
 writeln('god rojdenia:         ',buf[i].god);
 writeln('litchniy nomer:       ',buf[i].lin);
 writeln('adres               : ',buf[i].adr);
 writeln;
 end;
readln;
end;
 
BEGIN
while ch<>'5' do
begin
clrscr;
writeln;
writeln('1:vvod dannih');
writeln('2:poisk po litchnomu nomeru');
writeln('3:poisk po godu');
writeln('4:vivod vsego spiska');
writeln('5:vihod');
readln(ch);
case ch of
'1':vv(buf,n);
'2':poisk_l(buf,n,i);
'3':poisk_g(buf,n,i);
'4':vivod(buf,n,i);
end;
end;
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2011, 12:54

Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по номеру
Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по...

Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по номеру
Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по...

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


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

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

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