03.05.2012, 22:10 | #1 (permalink) |
Member
Регистрация: 01.05.2012
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать блок-схему
Вот код... Program Mediana; Type New_Mas=Array[1..20001] of Integer; Var i,n:LongInt; a,b:^New_Mas; Procedure Sort(L,r:Integer); var i,j,x,y:integer; begin i:=L; j:=r; x:=a^[ (l+r) div 2]; repeat while a^[i]<x do inc(i); while x<a^[j] do dec(j); if i<=j then begin y:=a^[i]; a^[i]:=a^[j]; a^[j]:=y; y:=b^[i]; b^[i]:=b^[j]; b^[j]:=y; i:=i+1; j:=j-1; inc(i); dec(j); end; Until i>j; if L<j then Sort(L,j); if i<r then sort(i,r); end; begin assign(Input,'Median.dat'); reset(input); assign(output,'Median.sol'); rewrite(output); New(a); new(b); readln(n); for i:=1 to 2*n+1 do begin read(a^[i]); b^[i]:=i; end; sort(1,2*n+1); writeln(b^[n+1]); dispose(a); dispose(b); end. |
03.05.2012, 22:10 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Отправлю вам схожие обсуждения, можете поискать там нужную информацию Помогите написать блок-схему для курсовой Помогите написать блок-схему для курсовой |
05.05.2012, 16:32 | #2 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Здравствуйте! Да, видно сразу что курсовая. Вот блок-схема:
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|