Breaking News: Grepper is joining You.com. Read the official announcement!

Shell-Sort Pascal

Awful Alligator answered on August 23, 2021 Popularity 1/10 Helpfulness 1/10

answer Shell-Sort Pascal

Shell-Sort Pascal

Comment

Pascal
1  gap := X;
2  repeat
3  ok := 1;
4  for i := 1 to N - gap do
5    if A[i] > A[i+gap] then
6      begin temp:=a[i];
7        A[i]:=A[i+gap];
8        A[i+gap] := temp;
9        ok := 0
10     end;
11 if gap div 2>1 then gap:=gap div 2 else gap:=1
12 until ok=1;

Popularity 1/10 Helpfulness 1/10 Language whatever

Source: mendo.mk

Tags: pascal whatever

Link to this answer
Share Copy Link

Contributed on Aug 23 2021

Awful Alligator

0 Answers Avg Quality 2/10

Continue with Google

By continuing, I agree that I have read and agree to Greppers's Terms of Service and Privacy Policy.

Shell-Sort Pascal

Contents

More Related Answers

Shell-Sort Pascal

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.