Нужна блок-схема, помогите
Всем привет у меня сдача курсовой, пожалуйста помогите написать блок схему к это программе((( вот код...:tehnari_ru_942:
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. |
Вложений: 1
Цитата:
Вот: |
Вот теория, чтобы разобраться: Блок-схемы.
|
Часовой пояс GMT +4, время: 21:32. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.