Показать сообщение отдельно
Старый 07.06.2006, 12:38   #5
 
Статус: Гость
Сообщений: n/a
По умолчанию Re: Решебник (turbo pascal, Delphi)

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

Код:
program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
 A:array[1..5] of string[30];
 i,k:integer;
 word:string[30];
begin
 writeln('vvedite slova dlya obrabotki');
 for i:=1 to 5 do
 readln(A[i]);
 for i:=1 to 4 do
                for k:=i to 5 do
                if A[k][1]<A[i][1] then
                begin
                Word:=A[k];
                A[k]:=A[i];
                A[i]:=word;
                end;
 writeln('otsortirovannie slova');
 for i:=1 to 5 do
 writeln(A[i]);
 readln;
end.

Последний раз редактировалось 4айник; 15.12.2008 в 12:59.
  ЦИТИРОВАТЬ