Работа со строками

[immortal12388]

Процедуры еще не проходили, сейчас внимательно изучал. Странно, но программа не запускается в delphi 7 в console application, точнее когда в консоле ввожу строку и жму интер выдает ошибку

[andrewpalkin]

procedure TBubbleSort.Sort(var A: array of Integer);
var
  I, J, T: Integer;
begin
  for I := High(A) downto Low(A) do
    for J := Low(A) to High(A) - 1 do
      if A[J] > A[J + 1] then
      begin
        VisualSwap(A[J], A[J + 1], J, J + 1);
        T := A[J];
        A[J] := A[J + 1];
        A[J + 1] := T;
        if Terminated then Exit;
      end;
end;

[andrewpalkin]

				
!**************************************
! Name: Bubble Sort w/ Pascal & Delphi
! Description:To sort an array of data or records into either alphabetical or numbered order (this is defined by the user though in the variables)
! By: Michael Allen
!
! Inputs:It's all shown in the procedure definitions. :)
!
! Returns:Although it doesn't technically return any value, it sorts the array live, and the results are live. :)
!
! Assumes:USAGE: bubble_sort(arrayorrecordtosort, row, rows_used)
!
! Side Effects:None.
!
!This code is copyrighted and has! limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=970&lngWId=7!for details.!**************************************

procedure bubble_sort (var arr : ArrayOrRecordTypeToSort; row, rows_used : integer);
var
x, y : integer;
temp : ArrayEntry;
begin
while row > rows_used do
begin
 y := row;
 for x := row to rows_used-1 do
 if arr[x].sortdata > arr[x+1].sortdata then
 begin
temp := arr[x];
arr[x] := arr[x+1];
arr[x+1] := temp;
y := x;
 end;
 rows_used := y;
end;
end;

[andrewpalkin]

for i:= 1 to 9 do
   begin
     for j:= 10 downto (i+1) do
     begin
     if data[j] < data [j-1] then
        begin
            bubble:=data[j];
            data[j]:=data[j-1];
            data[j-1]:=bubble;
        end;
     end;
  end;

[andrewpalkin]

function BubbleSort( list: TStringList ): TStringList;
var
  i, j: Integer;
  temp: string;
begin
  // bubble sort
  for i := 0 to list.Count - 1 do begin
    for j := 0 to ( list.Count - 1 ) - i do begin
      // Condition to handle i=0 & j = 9. j+1 tries to access x[10] which
      // is not there in zero based array
      if ( j + 1 = list.Count ) then
        continue;
      if ( list.Strings[j] > list.Strings[j+1] ) then begin
        temp              := list.Strings[j];
        list.Strings[j]   := list.Strings[j+1];
        list.Strings[j+1] := temp;
      end; // endif
    end; // endwhile
  end; // endwhile
  Result := list;
end;

[alex_fcsm]

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

Процедуры еще не проходили, сейчас внимательно изучал. Странно, но программа не запускается в delphi 7 в console application, точнее когда в консоле ввожу строку и жму интер выдает ошибку

Текст полный выложите

TO andrewpalkin
Используйте кнопку правка, чтобы не плодить однотипные сообщения

[immortal12388]

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

Текст полный выложите

TO andrewpalkin
Используйте кнопку правка, чтобы не плодить однотипные сообщения

PROGRAM Sort(input, output);

{$APPTYPE CONSOLE}
CONST
(* Max array size. *)
MaxElts = 50;
TYPE
(* Type of the element array. *)
IntArrType = ARRAY [1..MaxElts] OF Integer;

VAR
(* Indexes, exchange temp, array size. *)
i, j, tmp, size: integer;

(* Array of ints *)
arr: IntArrType;

(* Read in the integers. *)
PROCEDURE ReadArr(VAR size: Integer; VAR a: IntArrType);
BEGIN
size := 1;
WHILE NOT eof DO BEGIN
readln(a[size]);

IF NOT eof THEN
size := size + 1;
END;
END;

BEGIN
(* Read *)
ReadArr(size, arr);

(* Sort using bubble sort. *)
FOR i := size - 1 DOWNTO 1 DO
FOR j := 1 TO i DO
IF arr[j] > arr[j + 1] THEN BEGIN
tmp := arr[j];
arr[j] := arr[j + 1];
arr[j + 1] := tmp;
END;

(* Print. *)
FOR i := 1 TO size DO
writeln(arr[i]);
END.

[alex_fcsm]

Вы выложили пример сортировки. Только вам надо было взять кусок из этой программы и вставить в свою. При чем в прошлом сообщении я указал какой

[immortal12388]

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

Вы выложили пример сортировки. Только вам надо было взять кусок из этой программы и вставить в свою. При чем в прошлом сообщении я указал какой

А что значит здесь "size"?

[immortal12388]

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

Вы выложили пример сортировки. Только вам надо было взять кусок из этой программы и вставить в свою. При чем в прошлом сообщении я указал какой

И arr-это переменная или в данном случае обозначение массива?