Построить блок схему алгоритма!

[Михон]

Есть код сортировки массива по возрастанию , нужна блок схема алгоритма! Сам не силён в этом , кто может помочь? Хотя бы на листке ручкой набросать


procedure TForm1.Button3Click(Sender: TObject);
var h,min,s,ms:word;
m,i:integer;
begin
Label10.Caption:=Floattostr(time);
for m:=1 to 100000 do
for i:=0 to high(A) do tmpA[i]:=0; // заполняем массив нулями
for i:=min to n do begin
A[i]:=A[i]+1;
end;
// устанавливаем значение в правильную позицию
index:=min;
for i:=min to high(A)-1 do begin
for j:=0 to A[i]-1 do begin
A[index]:=i;
index:=index+1;
end;
end;
repeat
priz:=false;
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
buf:=a[i];
a[i]:=a[i+1];
a[i+1]:=buf;
priz:=true;
end;
for k:=1 to n do
until priz=false;
for i:=1 to n do
StringGrid2.Cells[i-1,0]:=inttostr(a[i]);
DecodeTime(Time-Strtofloat(Label10.Caption),h,min,s ,ms);
Label10.Caption:='по возрастанию '+Inttostr(s)+' '+'с'+' '+Inttostr(ms)+' '+'мс';
end;

[Mad_Cat]

Держите)))

[Михон]

Сообщение от Mad_Cat

Держите)))

Честно даже не ожидал , что кто то захочет мне почь! Потратить своё личное время. Очень приятно, большое Вам человеческое спасибо Можно с Вами сейчас связаться в icq?

[Mad_Cat]

Можно с Вами сейчас связаться в icq?

контакты указаны) стучите!

[Михон]

Сообщение от Mad_Cat

контакты указаны) стучите!

вас нет в аське, ответье пожалуйста!

[Михон]

Если можно вот ещё код поиска числа в массиве , тоже блок схему алгоритма! Нужна для курсавого , если трудно

procedure TForm1.Button1Click(Sender: TObject);

Var
i, isr, m, k : integer;
flag: boolean; //flag "число найдено"
s4: integer; //счётчик значения m=0
h,min,s,ms:word;
begin
Label4.Caption:=Floattostr(time);
Label8.Caption:=''; //очистить метку
Label9.Caption:=''; //очистить метку

k:=StrToInt(Edit2.Text);

//isr - середина отрезка, на котором производился неудачный поиск,
//это номер первого элемента нового отрезка для посика;
//m - длина отрезка для поиска
isr:=0;
m:=0;
s4:=0;
flag:=false;

for i:=1 to n do //заполнить массив таблицы 2 (отсортированный по возрастанию)
a[i]:=Strtoint(StringGrid2.Cells[i-1,0]);

isr:=Ceil(N/2); // Ceil - округление до бОльшего
m:=Floor(N/2); // Floor - округление до меньшего


//по возрастанию
repeat

if m=0 then s4:=s4+1
else
begin
if k=a[isr]
then flag:=true
else
begin
if k<a[isr] then
begin
isr:=isr-Ceil(m/2);
m:=Floor(m/2);
end
else
begin
isr:=isr+Ceil(m/2);
m:=Floor(m/2);
end;
end;
end;
until (s4=2) or flag;


if flag then
Label8.Caption:=Label8.Caption+'Сов падение с элементом в массиве по возрастанию '+''+Inttostr(isr)
else
Label8.Caption:=Label8.Caption+'В массиве по возрастанию образец не найден';

isr:=0;
m:=0;
s4:=0;
flag:=false;

for i:=1 to n do //заполнить массив таблицы 3 (отсортированный по убыванию)
b[i]:=Strtoint(StringGrid3.Cells[i-1,0]);


isr:=Ceil(N/2); // Ceil - округление до бОльшего
m:=Floor(N/2); // Floor - округление до меньшего


//по убыванию
repeat

if m=0 then s4:=s4+1
else
begin
if k=b[isr]
then flag:=true
else
begin
if k<b[isr] then
begin
isr:=isr+Ceil(m/2);
m:=Floor(m/2);
end
else
begin
isr:=isr-Ceil(m/2);
m:=Floor(m/2);
end;
end;
end;
until (s4=2) or flag;


if flag then
Label9.Caption:=Label9.Caption+'Сов падение с элементом в массиве по убыванию '+''+Inttostr(isr)
else
Label9.Caption:=Label9.Caption+'В массиве по убыванию образец не найден';


//вывод времени поиска
DecodeTime(Time-Strtofloat(Label4.Caption),h,min,s, ms);
Label4.Caption:=Inttostr(s)+' '+'с'+' '+Inttostr(ms)+' '+'мс';

end;

[Mad_Cat]

свою напиши
Вот

[Михон]

Сообщение от Mad_Cat

свою напиши

483606423 вот . напишити пожалуйста!

[Михон]

Сообщение от Mad_Cat

свою напиши
Вот

спасибо большое ! очень меня выручали! Напишите мне пожалуста в асю кое что спрошу у Вас. иного времени не займу

[Михон]

Mad_Cat. подскажите а блок схему программы (вот эти коды) каки мобразом строятся? Вот вы посроили блок схемы алгоритма , а блок схемы программы возможно построить?