|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
10.10.2011, 12:55 | #1 |
Пользователь
Регистрация: 29.09.2011
Сообщений: 44
|
объяснение задачи
объясните пожалуйста как работает эта задача. Условие задачи: "Пусть вводится последовательность символов, длина которой не превышает 80. Напечатайте те русские буквы (в алфавитном порядке), которые встречаются в заданной последовательности"
Program kati_mn; Uses Crt; Var i:integer; a:array[1..80] of char; j:integer; s:string; g:integer; b:char; Begin Clrscr; Writeln('vvedi posledovtelnost simvolov'); Readln(s); j:=0; For i:=1 to Length(s) do If (s[i]>'Ђ') and (s[i]<'с') Then Begin j:=j+1; a[j]:=s[i]; End; If j<>0 Then Begin For i:=1 to j do For g:=i+1 to j do If a[i]>a[g] Then Begin b:=a[i]; a[i]:=a[g]; a[g]:=b; End; For i:=1 to j do Write(' ',a[i]); End; Readkey; End. |
10.10.2011, 13:12 | #2 |
Пользователь
Регистрация: 29.09.2011
Сообщений: 44
|
помогите пожалуйста
|
10.10.2011, 13:16 | #3 | ||
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Цитата:
Код:
Цитата:
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. Последний раз редактировалось Alex11223; 10.10.2011 в 13:24. |
||
10.10.2011, 13:34 | #4 |
Пользователь
Регистрация: 29.09.2011
Сообщений: 44
|
If j<>0 Then
Begin For i:=1 to j do For g:=i+1 to j do If a[i]>a[g] Then Begin b:=a[i]; a[i]:=a[g]; a[g]:=b; End; For i:=1 to j do Write(' ',a[i]); А что это означает? |
10.10.2011, 14:13 | #5 |
Пользователь
Регистрация: 29.09.2011
Сообщений: 44
|
ответьте пожалуйста, а то я ничего понять не могу...(((
|
10.10.2011, 14:30 | #6 |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
Катюш, это упорядочение массива по возрастанию.
Предпочитаю на "ты".
|
10.10.2011, 14:39 | #7 |
Пользователь
Регистрация: 29.09.2011
Сообщений: 44
|
хорошо на ты...) объясни тогда пожалуйста, как имеенно происходит это упорядочивание на примере...
|
10.10.2011, 14:42 | #8 | |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Выше же пример
Цитата:
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
|
10.10.2011, 14:46 | #9 |
Пользователь
Регистрация: 29.09.2011
Сообщений: 44
|
так у меня же пример с символами, т.е. с русскими буквами? разве тоже самое будет?
|
10.10.2011, 14:52 | #10 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Да, в char хранятся номера символов из таблицы ASCII т.е. каждому символу соответствует какое-то число (от 0 до 255), причем буквы там в алфавитном порядке (от а до я и от А до Я (между а..я и А..Я есть какие-то другие символы) ).
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. Последний раз редактировалось Alex11223; 10.10.2011 в 14:55. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Объяснение программы | man-utd- | Помощь студентам | 4 | 23.11.2010 21:46 |
Объяснение программы | ForzaJuve | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 13.11.2010 09:27 |
Объяснение проги на ассемблере | DrHome | Помощь студентам | 0 | 17.04.2010 18:35 |
Нужно объяснение задачки((( | Настенька..Блонди | Помощь студентам | 3 | 26.02.2009 23:13 |
Объяснение к задаче коммивояжер. | enik pi | Помощь студентам | 2 | 14.06.2007 00:54 |