03.05.2012, 22:17 | #1 (permalink) |
Member
Регистрация: 01.05.2012
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нужна блок-схема, помогите
Program Sudna; Type New_type=Record numb,time:integer; end; Arr=Array[1..10000] of New_type; Var A:Arr; i,n:integer; Procedure Read_Data; begin Assign(Input,'dock.dat'); Reset(Input); Readln(Input,n); for i:=1 to n do Readln(A[i].numb,A[i].time); Close(Input); end; Procedure Quicksort (var a:Arr; Lo,Hi:integer); Procedure Sort (L,r:integer); Var i,j,x:integer; Y:New_type; begin i:=L; j:=r; x:=A [(L+r) div 2].time; Repeat While A[i]. time<x do inc (i); While x<A[j]. time do dec (j); if i<=j then begin Y:=A[i]; A[i]:=A[j]; A[j]:=Y; Inc(i); dec(i); end; Until i>j; if L<j then Sort (L,j); if i<r then Sort (i,r); end; begin {quicksort}; Sort(Lo,Hi); end; Procedure Write_Data; begin Assign(Output,'Doc.sol'); Rewrite(Output); for i:=1 to n do Write (A[i].numb,' '); Writeln; Close(Output); end; begin Код:
Read_Data; Write_Data; End. |
03.05.2012, 22:17 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Безусловно схожие по содержанию темы вам должны чем то быть полезны Помогите, нужна схема УНЧ Нужна блок схема к Паскалю. Помогите Нужна помощь. Блок-схема Блок-схема в Qbasic Нужна блок-схема |
05.05.2012, 17:29 | #2 (permalink) | |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Цитата:
Вот: |
|
05.05.2012, 17:45 | #3 (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
|
|
|