Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Записи на TURBO PASCAL |
| -DaGGer- |
Сообщение
#1
|
|
Гость  |
Помогите, пожалуйста, с задачей :
Дан массив записей, содержащих данные об областях России: название области, численность населения, число школ и ВУЗов. Получить список областей в порядке возрастания числа школ на 1000 человек и в порядке убывания числа ВУЗов, приходящихся на 1000 человек. |
 
|
|
| мисс_граффити |
Сообщение
#2
|
 просто человек  Группа: Пользователи Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация:  55  |
Показывай, что пробовал...
И рассказывай, с чем проблемы. -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
   |
|
| Гость |
Сообщение
#3
|
|
Гость |
Цитата(мисс_граффити @ 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.
.Непонятно, как получить список в порядке возрастания и убывания. |
|
|
|
| Скрытная |
Сообщение
#4
|
 Группа: Пользователи Сообщений: 9 Пол: Женский Реальное имя: Катерина Репутация: 0 |
я бы добавила еще два столбца в запись, в которые бы занесла отношение вузов и школ к кол-ву человек, а потом отсортировала по ним
|
|
|
|
| -DaGGer- |
Сообщение
#5
|
|
Гость |
Цитата(Скрытная @ 24.12.2007 14:14) я бы добавила еще два столбца в запись, в которые бы занесла отношение вузов и школ к кол-ву человек, а потом отсортировала по ним А как это? Хотя бы приблизительно. |
|
|
|
| volvo |
Сообщение
#6
|
|
Гость |
Цитата как это? Хотя бы приблизительно. Приблизительно - вот так:Записи (задания не очень сильно различаются, правда?) |
|
|
|
| -DaGGer- |
Сообщение
#7
|
|
Гость |
Мне кажется, что различаются.
|
|
|
|
| volvo |
Сообщение
#8
|
|
Гость |
Ну, естественно... У тебя - про области России, там - про республики бывшего СССР. Там - отсортировать по отношению население/площадь, здесь - по отношению число школ (или институтов)/население... Ужасные различия. Просто катастрофические...
Ну, в таком случае ищи в Гугле свое задание слово в слово, может уже где-то кто-то решал, если не можешь десяток символов в программе поменять... Сообщение отредактировано: volvo - |
|
|
|
| -DaGGer- |
Сообщение
#9
|
|
Гость |
Цитата(volvo @ 27.12.2007 3:04) Ну, естественно... У тебя - про области России, там - про республики бывшего СССР. Там - отсортировать по отношению население/площадь, здесь - по отношению число школ (или институтов)/население... Ужасные различия. Просто катастрофические... Ну, в таком случае ищи в Гугле свое задание слово в слово, может уже где-то кто-то решал, если не можешь десяток символов в программе поменять... Не надо так на новичков набрасываться! Нам надо опираться на вас, опытных программистов! А объяснить можно и по нормальному... |
|
|
|
| -DaGGer- |
Сообщение
#10
|
|
Гость |
Всё работает! Большое спасибо за помощь!
|
|
|
|
|
|
Текстовая версия | 17.04.2025 8:09 |
