Заранее говорю про вывод слов в алфавитном порядке читала ,но честно ниичего не поняла, а моя задача звучит так Даны три слова одинаковой длины, начинающиеся на буквы А, В,К в любом порядке следования. Напечатать их в алфавитном порядке. Срочняк!!!!! Завтра нужно сдать!!!!!!! Еще раз извините, но тех темах ничеего не поняда, заранее огромное спасибо!!!!!!!
klem4
15.10.2006 19:44
Ну вот попробуй разберерись как говорится
function Compare(a, b: String): Integer;
function Min(a, b: Integer): Integer; begin if a < b then Min := a else Min := b; end;
var i, n, lA, lB: Integer; begin
lA := Length(a); lB := Length(b);
n := Min(lA, lB);
i := 1;
while (i <= n) and (a[i] = b[i]) do inc(i);
if (i > n) then begin if (lA = lB) then Compare := 0 else if lA > lB then Compare := - 1 else Compare := 1; end else if ord(a[i]) < ord(b[i]) then Compare := 1 else Compare := -1 end;
Copmare(a, b) = 0; // Строки одинаковые Compare(a, b) = 1; // строка A < B, то есть : 'A' < 'B', 'AA' < 'AAA', 'ABB' < 'ABC' Compare(a, b) = -1; // строка A > B, то есть : 'AZ' > 'AB'