задача со строками

[TRANE82]

Задан одномерный массив , каждым элементом которого является строка символов ,
состоящая из одних цифр. Упорядочить элементы массива по убыванию их числовых значений и
вывести на экран . Подсчитать среднее значение всех элементов.

[TinMan]

Упорядочить - нет проблем. Можно применить любой метод, начиная с "пузырька". Условие применяется непосредственно к строками:

  if s[i]<s[j] then <переставить элементы>

А вот подсчитать среднее - это уже совсем другой вопрос.. Хорошо, если длина строк не более той, которая влезает в целый (или LongInt, или Int64..) тип. Но это совсем не так много (примерно 19 знаков для Int64). А в задаче говорится про строки, длина которых может достигать 255 символов. Для подсчета среднего строк в 20 и более символов придется писать длинную арифметику.

[Serge_Bliznykov]

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

if s[i]<s[j] then <переставить элементы>

к сожалению, это неверно.

В задании чётко оговорен это момент:

по убыванию их числовых значений

но это просто:
взять функцию StrToInt (или, если речь идёт о обычном TurboPascal, то такую функцию написать несложно:

function StrToInt(s : string):longint;
var x : longint;
    i : integer;
begin
  val(s, x, i);
  StrToInt := x;
end;

ну и дальше по тексту:

  if StrToInt( s[i] ) < StrToInt( s[j] ) then <переставить элементы>

[TRANE82]

Я все сделал) Спасибо всем)

program Ex_2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  N=14;
var
  s:array [1..N] of string;
  j,i:Integer;
  per:string;


begin
Writeln('Zapolnite massiv kak skazano v zadanii: ');

for i:=1 to N do
begin
write(i,' element: ');
Readln(s[i]);
end;




for i:=1 to N do
for j:=1 to N do
begin
if StrToInt(s[i])< StrToInt(s[j]) then
begin
per:=s[i];
s[i]:=s[j];
s[j]:=per;
end;
end;


Writeln;
Writeln('Otsortirovsnnuy msssiv:');
for i:=1 to N do
begin
write(s[i],' ');
end;

Readln;
end.

[TRANE82]

Среднее значение я знаю как посчитать))

[Mad_Cat]

а если строка длиной over200 символов и не влезет в Longint или в любой другой из числовых типов?

[Serge_Bliznykov]

я рекомендую Вам код сортировки чуть-чуть оптимальнее записать:

for i:=1 to N-1 do
for j:= i+1 to N do
begin
if StrToInt(s[i])< StrToInt(s[j]) then
  begin
     per:=s[i];
     s[i]:=s[j];
     s[j]:=per;
   end;
end;

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

а если строка длиной over200 символов и не влезет в Longint или в любой другой из числовых типов?

тогда StrToInt выдаст ошибку и данный код работать не будет.
Но, когда задание не говорит об этом прямо, то программист сам выбирает для себя ограничения. Зачем плодить трудности там, где они не предусмотрены? (это такая "презумпция невиновности" для программистов ) В этом случае можно легко написать функцию сравнения числовых значений строк (вне зависимости от длины, которая, кстати, будет работать для больших чисел быстрее, чем двойной StrToInt
Точно так же программа не будет работать, если, например, число строк N будет более 700 000 000... и что? Стоит об этом задуматься сейчас, на этапе решения простой УЧЕБНОЙ задачи?

[TRANE82]

Эту работу я сдал) Все нормально)

[TinMan]

Серж, спасибо за поправку )). И откуда у меня только было это стойкое ощущение, что в Паскале строки сравниваются сначала по длине, а потом уже лексикографически? Странно.. ))
Но все же я не стал бы тут жертвовать длиной (даже если она не нужна такая большая). Достаточно добавить в условие проверку длины:

  if (Length(s[i])<Length(s[j])) or (Length(s[i])=Length(s[j])) and (s[i]<s[j]) then
    <переставить элементы>

Если условием задачи допускаются впередиидущие нули, то их надо предварительно удалить (либо учесть каким-то другим образом).
Впрочем, думаю, нечто подобное ты имел в виду под этим:

В этом случае можно легко написать функцию сравнения числовых значений строк (вне зависимости от длины, которая, кстати, будет работать для больших чисел быстрее, чем двойной StrToInt

Короче, извиняюсь, как за дезу, так и за запоздалый базар )).

[Serge_Bliznykov]

TinMan, согласен. всё так.

но, в связи с тем, что автор топика уже сдал работу, думаю, что он утратил интерес к данной теме.

Посему, закрываю её.

Всем спасибо, все свободны...