Версия для печати темы

Автор: -DaGGer- 23.12.2007 2:44

Помогите, пожалуйста, с задачей :
Дан массив записей, содержащих данные об областях России: название области, численность населения, число школ и ВУЗов. Получить список областей в порядке возрастания числа школ на 1000 человек и в порядке убывания числа ВУЗов, приходящихся на 1000 человек.

Автор: мисс_граффити 23.12.2007 4:32

Показывай, что пробовал...
И рассказывай, с чем проблемы.

Автор: Гость 24.12.2007 17:42

Цитата(мисс_граффити @ 23.12.2007 0:32)

program oblast;
type
	oblast=record;
	nazv:string [20];
	nas:real;
	vuz:real;
	end;
var
	vozr:real;
	ob:oblast;
	tab:array [1..25] of oblast;
	i:integer;
begin
	for i:=1 to n do
	with tab [i] do begin
	writeln ('Vvedite oblast');
	readln (nazv);
	writeln ('Vvedite kol-vo naseleniya');
	readln (nas);
	{непонятно, как здесь сделать порядок возрастания}
	end;
	writeln ('Vvedite kol-vo vuzov');
	readln (vuz);
	{как сделать здесь убывание на 1000 человек}
	for i:=1 to n do
	if tab [i]. vuz > vozr
	then vozr:=tab [i]. vuz;
	for i:=1 to n do begin
	write (nazv,vuz,nas);
	writeln;
	end;
end.

Автор: Скрытная 24.12.2007 18:14

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

Автор: -DaGGer- 24.12.2007 23:23

Цитата(Скрытная @ 24.12.2007 14:14)

Автор: volvo 25.12.2007 2:44

Автор: -DaGGer- 27.12.2007 6:57

Мне кажется, что различаются.

Автор: volvo 27.12.2007 7:04

Ну, естественно... У тебя - про области России, там - про республики бывшего СССР. Там - отсортировать по отношению население/площадь, здесь - по отношению число школ (или институтов)/население... Ужасные различия. Просто катастрофические...

Ну, в таком случае ищи в Гугле свое задание слово в слово, может уже где-то кто-то решал, если не можешь десяток символов в программе поменять...

Автор: -DaGGer- 27.12.2007 7:15

Цитата(volvo @ 27.12.2007 3:04)

Автор: -DaGGer- 6.01.2008 6:17

Всё работает! Большое спасибо за помощь!