Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > ПОМОГИТЕ СДЕЛАТЬ ЗАДАЧУ!!!!

Автор: shef 1.12.2005, 20:44

У меня такая задачка: я с компа ввожу в ряд слова, разделены пробелом, они могут быть как английские так и руские.Нужно так роставить слова чтобы сначала ишли английские, а потом руские(по алфавиту).
Мне нужно ето сделать со словами до 1000 символов!!

Например:
Входящие
i take part in an olympiad мама папа я Аня

Исходящие
an
i
in
olympiad
part
pragma
take
Аня
мама
папа
я
smile

Автор: Snowy 1.12.2005, 22:07

Модератор: Просьба не дублировать темы
http://forum.vingrad.ru/index.php?showtopic=72774

Автор: Rick 2.12.2005, 12:50

Код


uses crt;
const m=10;
var a:array [1..m] of string;
    i,j,n,r:integer;
    s,st:string;
begin
clrscr;
writeln('write stroka');
read(s);
n:=length(s);
r:=1;
for i:=1 to n do begin
if s[i]=' ' then begin
r:=r+1;
continue;
end;
a[r]:=a[r]+s[i];
end;
for i:=1 to r-1 do begin
 for j:=1 to r-1 do begin
  if a[j]>a[j+1] then begin
  st:=a[j]; a[j]:=a[j+1]; a[j+1]:=st;
  end;
 end;
end;
for i:=1 to r do begin
write(a[i],' ');
end;
readln;
readln;
end.

PS давай теме соответствующее имя, сам подумай, во что превратится форум если все будут так писать

Автор: Guest 2.12.2005, 18:03

Rick твоя задача не работает!!!!!!

Автор: Rick 3.12.2005, 13:27

изменил, вроде работает (по крайней мере с англицким).

оффтоп:
не работает русская раскладка, подскажите где можно исправить это недоразумение.

Автор: Snowy 3.12.2005, 17:38

HKLM\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes
Меняем параметр 00000409 с "us" на "ru".
В файле С:\WINNT\System32\autoexec.nt пpописать следующую стpоку:
lh %SystemRoot%\System32\kb16 ru.
После перезагрузки системы переключение раскладки клавиатуры в DOS-приложениях будет производиться комбинациями Ctrl+Left Shift (английская) и Ctrl+Right Shift (русская).

Автор: Rick 3.12.2005, 18:24

Snowy, а "HKLM\SYSTEM\CurrentControlSet\Control\Keyboard Layout\DosKeybCodes" - это
в каком каталоге?

Автор: Snowy 3.12.2005, 18:26

Это в реестре