Помогите решить задачу. Срочно!!! Дана последовательность от 1 до 30 слов. Напечатать:...

Question

Помогите решить задачу. Срочно!!! Дана последовательность от 1 до 30 слов. Напечатать: все слова в алфавитном порядке. ПОЖАЛУЙСТА!

Answer 1

А еще эту задачу можно решить вот так, но почему-то в школе обычно так не учат:

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  ReadlnString('->').ToWords.Sorted.Println
end.

Тестовое решение: (данные взяты у предыдущего автора):
-> панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм приведение паскаль тетрадь разум

панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм приведение разум тетрадь явный

Comments

Поэтому до всего приходится доходить экспериментальным путём.

---

Да они взяли за базу Haskell и методы из .NET

---

Поэтому если в теме, доходить почти ни де чего и не нужно. Так, мелочевка.

---

Зато почти все школьные задачи пишутся в несколько строк. А скоро еще веселее будет: уже добавили кортежи и на очереди срезы. как в Пайтоне.

---

И - начало положено. Я н д е к с контест уже включил эту версию в набор компиляторов для олимпиад.

---

Но в моём прекрасном городе олимпиады будут писаться на free чуть дольше вечности.

---

В городе - может быть. Но с FPS на региональных олимпиадах будет делать нечего: Вы видели свое решение и мое, какое написать быстрее и безошибочнее?

---

В ЕГЭ школьникам уже разрешено выбирать язык и версию - любые, только указывать их надо.

---

В ЕГЭ осталась только 2(или 3) задачи на программирование(я не имею ввиду чтение). Они настолько унылы, что можно обойтись и без .Net. Был бы вызов - юзал бы новые методы.

---

Это начало. Дальше язык постепенно FPS вытеснит. Ибо Паскаль, как язык для реального программирования давно погиб, а для учебных целей лучше то, на чем короче и понятнее.

Answer 2

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=30;

 type
 tys=array[1..n] of string;

Var
 ars:tys;
 i,j:integer;
 s:string;

 procedure sorts(var ars:tys;n1:integer);
Var
 i,j:integer;
 c:string;
begin
 for i:=1 to n1-1 do
  for j:=i to n1 do
   if ars[i]>ars[j] then
    begin
     c:=ars[i];
     ars[i]:=ars[j];
     ars[j]:=c;
    end;
end;
   begin
 readln(s);
 j:=1;
 while pos(' ',s)<>0 do
  begin
   for i:=1 to pos(' ',s) do
    ars[j]:=ars[j]+s[i];
   delete(s,1,pos(' ',s));
   inc(j);
  end;
  ars[j]:=s;
 sorts(ars,j+1);
 writeln('Result=');
 for i:=1 to n do  writeln(ars[i]);
end.

Пример ввода:
панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм приведение паскаль тетрадь разум
Пример вывода:
панамка параллелепипед паскаль паста пена пенал пинать подражатель полиморфизм приведение разумтетрадь явный 

Comments

Пожалуйста, отворматируйте текст

---

*отФорматируйте

---

Уже сделано, прошу прощения. Дело в том, что теперь перенос не сохраняется и с ноутбука.

---

спасибо