Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 20.03.2014
Сообщений: 10
1

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

20.03.2014, 20:39. Показов 1077. Ответов 5
Метки нет (Все метки)

ввод данных, вывод данных, поиск по номеру квартиры и возрасту. Запись состоит из номера квартиры (тип integer), фамилии (тип string), возраста (тип integer).
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2014, 20:39
Ответы с готовыми решениями:

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

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

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

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

5
138 / 101 / 102
Регистрация: 03.02.2014
Сообщений: 422
20.03.2014, 21:05 2
Динамические структуры данных (списки, очереди, стеки, деревья).
0
79 / 53 / 65
Регистрация: 18.06.2013
Сообщений: 99
20.03.2014, 21:20 3
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
uses crt;
type zapis=record
           fio:string;
           nom:integer;
           voz:integer;
           end;
var
a:array [1..10] of zapis;
n,i,k,np,j,t:integer;
w:char;
begin
clrscr;
writeln('kolichestvo zapisei:');
readln(n);
for i:=1 to n do
begin
writeln('zapis ',i);
write(' - fio: ');readln(a[i].fio);
write(' - nomer: ');readln(a[i].nom);
write(' - vozrast: ');readln(a[i].voz);
end;
clrscr;
writeln('spisok podpischikov:');
writeln('---------------------------------------------------------');
writeln('FIO':15, ' | ', 'Nomer kvartiry':15, ' | ', 'Vozrast':20, ' | ');
writeln('---------------------------------------------------------');
for i:=1 to n do
writeln(a[i].fio:15, ' | ', a[i].nom:15, ' | ', a[i].voz:20,' | ');
writeln('---------------------------------------------------------');
write('Nagmite Enter  ');
readln;
clrscr;
repeat
writeln('Iskat po: nomeru kvariry-1, vozrastu-2');
readln(np);
if np=1 then
begin
writeln('vvedite nomer kvartiry:');
readln(t);
end;
if np=2 then
begin
writeln('vvedite nomer telefona dlya poiska:');
readln(j);
end;
k:=0;
writeln('---------------------------------------------------------');
writeln('FIO':15, ' | ', 'Telefon':15, ' | ', 'Nazvanie gazeti':20, ' | ');
writeln('---------------------------------------------------------');
for i:=1 to n do
begin
if np=1 then
if a[i].nom=t then
begin
k:=1;
writeln(a[i].fio:15, ' | ', a[i].nom:15, ' | ', a[i].voz:20,' | ');
end;
if np=2 then
if a[i].voz=j then
begin
k:=1;
writeln(a[i].fio:15, ' | ', a[i].nom:15, ' | ', a[i].voz:20,' | ');
end;
end;
writeln('---------------------------------------------------------');
if k=0 then writeln('posk ne dal resultatov');
writeln('Nagmite Enter');
readln;
clrscr;
writeln('povtorit poisk? Y/y-yes, drugoe no');
readln(w);
until not (w in ['Y','y']);
end.
1
138 / 101 / 102
Регистрация: 03.02.2014
Сообщений: 422
20.03.2014, 21:47 4
VlaNik, остроумно...
Но код работает)
0
79 / 53 / 65
Регистрация: 18.06.2013
Сообщений: 99
20.03.2014, 22:05 5
Антон1985, конечно работает. Такие задачи уже не в первый раз на форме. меняются только поля записи и условия поиска. Так что остается отредактировать запись, ввод/вывод и задача готова. Но некоторые люди не хотят думать. Даже не пытаются искать и пробовать.
Этот код более уместен, чем ваша ссылка на работу с динамической памятью. Человек не может разобраться с записями, какие там стеки и деревья...
0
138 / 101 / 102
Регистрация: 03.02.2014
Сообщений: 422
21.03.2014, 15:42 6
Цитата Сообщение от VlaNik Посмотреть сообщение
Этот код более уместен, чем ваша ссылка на работу с динамической памятью.
Немного погодя я тоже так начал считать, что поспешил оставлять такой пост
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.03.2014, 15:42

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru