Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
DenHuk
3 / 3 / 1
Регистрация: 04.06.2010
Сообщений: 15
#1

Создать тип данных и описать структуру, отображающую следующую информацию

26.11.2010, 18:33. Просмотров 936. Ответов 1
Метки нет (Все метки)

Создать тип данных и описать структуру, отображающую следующую информацию:
• название государства,
• площадь территории,
• численность населения,
• общий доход населения в долларах,
• количество больниц, школ, вузов,
• наличие выхода к морю,
• форма государства (республика, монархия, малое государство)
Создать динамическое кольцо из данных о 5-6 государствах. Предусмотреть вывод всей введенной информации, промежуточных результатов и результатов выполнения указанного ниже задания. После выполнения удаления добавить в кольцо два новых элемента.
Вывести данные о трех государствах с минимальными доходами населения,
указав среднее количество вузов на душу населения. данные о государстве с наибольшим показателем удалить
не работает((
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
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
Program BBC;
uses crt;
type
mas=array [1..3] of integer;
gos=record
     naz: string[20];
     pl,ch,doh: Integer;
     kol: mas;
     mor: char;
     case form: integer of
         1: ();
         2: ();
         3: ();
     end;
Pelem=^Telem;
Telem=record
       Inf: gos;
       Left, Right: Pelem;
      end;
Var
   Head: Pelem;
   n,i,j:integer;
   x: gos;  el: pelem;
Procedure Tab(n: Integer); Begin GoToXY(n,WhereY); End;
 
Procedure vvod;
begin
      with x do
      begin
          WriteLn('Государство № ',i);
          Write('Название: '); ReadLn(naz);
          Write('Площадь территории: '); ReadLn(pl);
          Write('Численность населения: '); ReadLn(ch);
          Write('Общий доход населения в $: '); ReadLn(doh);
          Write('Количество больниц: '); ReadLn(kol[1]);
          Write('Количество школ: '); ReadLn(kol[2]);
          Write('Количество вузов: '); ReadLn(kol[3]);
          Write('Наличие выхода к морю: '); ReadLn(mor);
          WriteLn('Форма правления: ');
          WriteLn('(1-Республика, 2-Королевство');
          WriteLn('     3-малое гос-во        )');
          ReadLn(form);
          clrscr;
       end;
  end;
Procedure newring(x: gos);
begin
     New(Head); Head^.inf:=x;
     Head^.Left:=Head;
     Head^.Right:=Head;
end;
Procedure add(x: gos);
begin
     New(El); El^.inf:=x;
     Head^.left^.Right:=El;
     El^.Left:=Head^.Left;
     El^.right:=Head;
     Head^.Left:=El;
End;
procedure upor;
var d: pelem;
begin
     for i:=1 to n do
     begin
     el:=head;
     while el^.right<>head do
     begin
     d:=el^.right;
     if el^.inf.doh>d^.inf.doh then
     begin
      x:=d^.inf;
      d^.inf:=el^.inf;
      el^.inf:=x;
     end;
     el:=el^.right;
     end;
     end;
     for i:=1 to n do
     begin
     el:=head;
     while el^.right<>head do
     begin
     d:=el^.right;
     if (el^.inf.doh=d^.inf.doh) and (el^.inf.kol[3]/el^.inf.ch>d^.inf.kol[3]/el^.inf.ch) then
     begin
      x:=d^.inf;
      d^.inf:=el^.inf;
      el^.inf:=x;
     end;
     el:=el^.right;
     end;
     end;
end;
procedure print;
begin
     El:=Head;  j:=1;
     repeat
     with El^.inf do
     begin
          WriteLn('Государство № ',j);
          WriteLn('Название: ',naz);
          WriteLn('Площадь территории: ',pl);
          WriteLn('Численность населения: ',ch);
          WriteLn('Общий доход населения в $: ',doh);
          WriteLn('Количество больниц: ',kol[1]);
          WriteLn('Количество школ: ',kol[2]);
          WriteLn('Количество вузов: ',kol[3]);
          WriteLn('Наличие выхода к морю: ',mor);
          WriteLn('Форма правления: ');
          if form=1 then writeln('Рeспублика');
          if form=2 then writeln('Монархия');
          if form=3 then writeln('Малое гос-во');
       readkey;  clrscr;
     end;  j:=j+1;
    El:=El^.right;
    until El=Head;
end;
Procedure delmax;
begin
el:=Head;
while el^.right<>Head do
begin
     if el^.inf.doh>300 then
     begin
      El^.left^.right:=El^.right;
      El^.right^.left:=El^.left;
      Dispose(el);
     end;
el:=el^.right;
end;
WriteLn('Данные  удалены');
end;
 
 
begin
     clrscr;
     Write('Введите кол-во государств: '); ReadLn(n);
     clrscr; i:=1;
     with x do vvod;
     newring(x);
     for i:=2 to n do
     begin
     vvod;
     add(x);
     end;
     WriteLn('Формирование кольца завершено');
     WriteLn('Элементы кольца');
     print;
     upor;
 
     WriteLn('Упорядоченные элементы кольца');
     print;
     delmax;
 
     WriteLn('Кольцо после удаления c наибольшим доходом');
     print;
 
 
      Writeln('Введите данные ещё о двух государствах: ');
     i:=1;
     with x do vvod;
     newring(x);
     for i:=2 to 2 do
     begin
     vvod;
     add(x);
     end;
 
     repeat until keypressed;
 end.
Добавлено через 17 минут
помогите баг исправить...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2010, 18:33
Ответы с готовыми решениями:

Описать, используя структуру данных запись, завод
Доброго дня всем. Такое вот задание: Описать, используя структуру данных...

Описать, используя структуру данных запись, почтовую сортировку
Требуется помощь специалистов,надеюсь на вашу помощь,если не трудно то...

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

Создать программу, которая сохраняет информацию в типизированном файле для определённого элемента ( используя структуру )
Помогите пожалуйсто! У меня имеются програмы по типизированым файлам по...

Описать пользовательский тип данных с именем TRAIN типа запись
Всем, кто помогал мне ранее с задачами - спасибо, особенно пользователю ...

1
DenHuk
3 / 3 / 1
Регистрация: 04.06.2010
Сообщений: 15
06.12.2010, 17:47  [ТС] #2
люди гляньте.....завтра сдача(((
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2010, 17:47

Описать пользовательский тип данных с именем MARSH типа запись
1. Описать пользовательский тип данных с именем MARSH типа запись (RECORD),...

Можно ли описать тип данных, который включал бы как цифры, так и буквы?
Доброго времени суток. Можно ли описать тип данных,который включал бы как...

Описать, используя структуру данных запись, квартиросъемщика (фамилия и инициалы, город, улица, дом, квартира, количество комнат)
Помогите пожалуста!!!!!!!! Описать, используя структуру данных запись,...


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

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

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