|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
24.11.2013, 11:42 | #1 (permalink) |
Member
Регистрация: 16.11.2013
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Написание программы через процедуры и функции
Код:
program pro1; const n = 100; type girl = record id : byte; pts : integer; end; var a : array[1..n] of girl; i, j : byte; m : girl; begin writeln('Участницы:'); randomize; for i := 1 to n do begin a[i].id := i; a[i].pts := 1000 + random(1000); writeln((a[i].id):4, a[i].pts:6) end; for i := 1 to n do for j := n downto i do if a[i].pts >= a[j].pts then begin m := a[i]; a[i] := a[j]; a[j] := m end; writeln('финалистки:'); for i := 1 to 10 do writeln((a[i].id):4, a[i].pts:6) end. |
24.11.2013, 11:42 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обязательно обратите внимание на аналогичные топики Написание программы через процедуры и функции. Паскаль Подпрограммы. Процедуры и функции Паскаль. Процедуры, функции, параметры Задача на процедуры и функции Delfi |
24.11.2013, 14:19 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
program pro1; const n = 100; type girl = record id : byte; pts : integer; end; mas=array[1..n] of girl; var a : mas; i : byte; Procedure Order(G_in:mas; var G_out:mas); var G:mas; m:girl; q,p:byte; begin G:=G_in; for q := 1 to n-1 do for p := n downto q do if G[q].pts < G[p].pts then begin m := G[q]; G[q] := G[p]; G[p] := m end; G_out:=G; end; begin writeln('Участницы:'); randomize; for i := 1 to n do begin a[i].id := i; a[i].pts := 1000 + random(1000); writeln((a[i].id):4, a[i].pts:6) end; Order(a,a); writeln('финалистки:'); for i := 1 to 10 do writeln((a[i].id):4, a[i].pts:6) end. |
|
24.11.2013, 14:35 | #4 (permalink) |
Member
Регистрация: 16.11.2013
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
В конкурсе «Мисс Очаровашка» участвуют 100 девушек. Известен балл, набранный каждой девушкой в ходе первого тура конкурса. Определить десять девушек вышедших во второй тур конкурса. Вот такая задача
|
24.11.2013, 14:44 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
С этим ясно, а в остальном - устраивает? Или еще подпрограммы нужны? |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
24.11.2013, 15:06 | #6 (permalink) |
Member
Регистрация: 16.11.2013
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Да, спасибо
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|