процедуры и функции. Паскаль

[radon228]

Даны три слова,в каждом из которых от 1 до 6 строчных латинских букв и за каждым из которых следует пробел.
Напечатать эти слова в алфавитном порядке.

я думаю что здесь нужно делать через код ASCII?

[Utkin]

Я сначала засунул бы слова в массив, а потом отсортировал его.

[radon228]

а ты можешь продемонстрировать как это делать? сижу 3-ю пару не могу сделать...

[Utkin]

Ищи в строке пробел по функции pos. Так ты сможешь распихать слова в массив, дальше применяй любую сортировку, хоть ту же пузырьковую. Строки можно сравнивать также как и числа, через > < =.

[radon228]

хм....а ты можешь написать программу?

[Z1000000]

Я знаю три слова , три матерных слова...

program threeword;
uses crt;
var
 aStr : String;
 i,Previ : Integer;
 ArStr : Array[1..3] of String;
 Counter : Integer;
 Buffer : String;
begin
clrscr;
aStr := 'one two three';
Counter := 0;
Previ := 1;
for i:=1 to Length(aStr) do
 begin
 if aStr[i] = ' ' then
  begin
  Counter := Counter + 1;
  ArStr[Counter] := Copy (aStr,Previ,i-Previ);
  Previ := i+1;
  end;
 end;
if i <> Previ then
 begin
 Counter := Counter + 1;
 ArStr[Counter] := Copy (aStr,Previ,i-Previ+1);
 end;

{Сортировка по-простому}
if ArStr[1] > ArStr[2] then
 begin
 Buffer := ArStr[1];
 ArStr[1] := ArStr[2];
 ArStr[2] := Buffer;
 end;
if ArStr[1] > ArStr[3] then
 begin
 Buffer := ArStr[1];
 ArStr[1] := ArStr[3];
 ArStr[3] := Buffer;
 end;
if ArStr[2] > ArStr[3] then
 begin
 Buffer := ArStr[2];
 ArStr[2] := ArStr[3];
 ArStr[3] := Buffer;
 end;

aStr := ArStr[1] + ' ' + ArStr[2] + ' ' + ArStr[3];
writeln (aStr);

end.

[radon228]

спасибо большое,но ты написал прогу с помощью процедур и функций?

[Grag]

А если завтра встанет задача сортировать 4 или более слов??? Нужно будет ЭТУ ПРОГРАММУ переписывать??? И каждый раз под определенное количество слов??? А где же универсальность??? И зачем тогда вообще программирование??? Три слова мона и так отсортировать, без программы

[radon228]

начал запускать программу,не запускается,все проверил,написано так же как здесь((как быть?

[Grag]

Ваще-то программа запускается и рабочая... Я лично проверял (из любопытства)... Только в конце программы поставь Readln или
repeat
until KeyPressed