Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
shad0w
4 / 4 / 1
Регистрация: 14.11.2010
Сообщений: 37
#1

Массив записи информации - Pascal

21.12.2010, 19:06. Просмотров 471. Ответов 1
Метки нет (Все метки)

Составить программу, которая описывает массив записи жильцов дома, отображает следующию информацию о каждом: № квартиры, Ф.И., возраст;
Для лиц старше 18 лет в зависимости от рода занятий (учёба, работа, пенсия) - записать места учебы, работы, трудового стажа. Для пенсионеров - год выхода на пенсию. Программа должна обеспечивать ввод данных, поиск квартиры с максимальным числом жильцов, поиск самого юного и самого пожилого жильца, поиск студентов, пенсионеров.


если есть желания... посмотрите)

пожалуйста дайте хотябы что то =)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.12.2010, 19:06
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Массив записи информации (Pascal):

Exited with exitcode = 100 при записи информации в файл
Здравствуйте, я написал программу, если организован ввод/вывод через экран то...

Задан массив А(k), K<50. Составьте программу записи в массив В десяти первых положительных элементов массива А
Задан массив А(k), K&lt;50. Составьте программу записи в массив В десяти первых...

Массив, записи, игрушки
Создать массив, который состоит из записей с такими полями: название игрушки,...

Массив через записи!
ЦЕЛЬ ТАКАЯ!!! : Написать программу через записи...

Записи. Описать массив записей, который содержит информацию о нескольких деталях
Описать массив записей,который содержит информацию о нескольких...

Дан массив студентов из полей записи: фамилия, год рождения, оценки по 3 экзаменам
Дан массив студентов из полей записи: фамилия, год рождения, оценки по 3...

1
shad0w
4 / 4 / 1
Регистрация: 14.11.2010
Сообщений: 37
25.12.2010, 14:59  [ТС] #2
Лучший ответ Сообщение было отмечено shad0w как решение

Решение

помогите )) 3 день прошу

Добавлено через 20 часов 56 минут
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
program qqqq;
uses crt;
type
vid = (Ucheba, Rabota, Pensia);
anketa=record
fio: string;
voz: string;
kv: string;
case V : vid of
Ucheba : (u : string);
Rabota : (r : string);
Pensia : (p : integer);
end;
const count1=3;
var q:anketa;
S:array[1..count1] of anketa;
i,k,n,m,count:integer;
Vybor:byte;
BEGIN
clrscr;
writeln ('введите количество жилбцов');
readln (count);
for i:=1 to count do
begin
writeln ('выберите деятельность');
writeln ('1-учеба , 2-работа , 3-пенсия');
readln (Vybor);
case Vybor of
1 : S[i].V:=Ucheba;
2 : S[i].V:=Rabota;
3 : S[i].V:=Pensia;
end; 
with S[i] do
case V of 
Ucheba : begin
writeln ('введите данные' ,i, -ого жильца' );
writeln ('введите фио');
readln (q.fio);
writeln ('введите возраст ');
readln (q.voz);
writeln ('‚введите номер кв');
readln(q.kv);
writeln ('введите место учебы');
readln (u);
end;
Rabota : begin
writeln ('введите данные' ,i, -ого жильца' );
writeln ('введите фио');
readln (q.fio);
writeln ('введите возраст ');
readln (q.voz);
writeln ('‚введите номер кв');
readln(q.kv);
writeln ('введите место работы');
readln (r);
end;
Pensia : begin
writeln ('введите данные' ,i, -ого жильца' );
writeln ('введите фио');
readln (q.fio);
writeln ('введите возраст ');
readln (q.voz);
writeln ('‚введите номер кв');
readln(q.kv);
writeln ('‚ўвведите год выхода на пенсию');
readln (p);
end; 
end;
end;
with S[i] do
for i:=1 to count do 
begin
writeln ('фио ',i,'-ого жильца :', q. fio );
writeln('возраст ',i,'-ого жильца :', q. voz);
writeln('номер кв ',i,'-ого жильца :',q.kv);
writeln;
end;
readln;
END.

Все что получилось надумать...

Добавлено через 18 часов 41 минуту
пожалуйста помогите доработать....
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2010, 14:59
Привет! Вот еще темы с решениями:

Получить новый массив, вычислив для каждого элемента сумму цифр в записи числа
дан двумерный вещественный массив, состоящий из N строк и M столбцов. получить...

Дан одномерный массив целых чисел. Определите сумму всех цифр в записи элементов массива.
Дан одномерный массив целых чисел. Определите сумму всех цифр в записи...

Добавление и удаление записи, поиск записи с максимальной зарплатой, сортировка по алфавиту
Помогите, пожалуйста!:help: Очень нужно сделать до 26!(а если не сложно, то...

Удаление записи из массива записи или файла
Доброго времени суток... Задача стоит такая. Есть массив записей, прочитали из...


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

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

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