|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.12.2008, 02:35 | #1 |
Пользователь
Регистрация: 01.12.2008
Сообщений: 38
|
Переставить все буквы латинского алфавита в начало строки в порядке следования.
Составить программу обработки строк. Переставить все буквы латинского алфавита в начало строки в порядке следования.
|
01.12.2008, 09:01 | #2 |
Новичок
Джуниор
Регистрация: 01.12.2008
Сообщений: 2
|
Правда сказать давно не писал на Паскале....
Могу только примерно написать алгоритм выполнения задачи.... Должно получиться типа этого: Код:
1. ХХХХ - помню есть какаето стандартная функция определения ASCII код символа,..... (уже лет 5 не писал такие программы) 2. Два цикла вместо одного.... нужны для полной обработки строки... P.S.: Давно не писал на Паскале и Delphi.... сейчас работаю в SAP R3.... Абапером ))) Последний раз редактировалось rpy3uH; 03.12.2008 в 17:17. |
01.12.2008, 10:06 | #3 |
Пользователь
Регистрация: 01.12.2008
Сообщений: 27
|
Вот это тож решение...
program Zadaha_Daniyara;
uses crt; var a,b:string; i,j,k,m,n:integer; p:char; begin clrscr; readln(a); b:='абвгдежзийклмнопрстуфхцчшщъыьэю я'; {Алфавитов я незнаю так что необессуте, особенно Латинского... ну там подставить можно а русский алфавит я в И-нете нашол... } k:=1; while k<>0 do begin k:=0; for i:=1 to length(a)-1 do begin for j:=1 to length(b) do begin if b[j]=a[i] then m:=j; if b[j]=a[i+1] then n:=j; end; if m>n then begin k:=1; p:=a[i]; a[i]:=a[i+1]; a[i+1]:=p; end; end; end; writeln(a); readkey; end. |
01.12.2008, 20:50 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Ребят, я конечно, приношу свои извинения, но, разве, так не проще?:
Код:
|
02.12.2008, 19:35 | #5 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Serge_Bliznykov я имел наглость немного подправить Ваш код:
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
03.12.2008, 15:08 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
alex_fcsm :-) да не поправить, а исправить ошибку. Спасибо. :-)
|
04.12.2008, 06:42 | #7 | |
Новичок
Джуниор
Регистрация: 01.12.2008
Сообщений: 2
|
Цитата:
Но если использовать мой вариант у нас не только все буквы будут в начале строки.... но и сами буквы меж собой отсортируются по возрастанию.... P.S.: Ведь всегда при выполнении Лаб.работ препод что нибудь да придумает |
|
04.12.2008, 08:59 | #8 |
Пользователь
Регистрация: 01.12.2008
Сообщений: 27
|
Да... наши так на всякий случай... Нужно учитывать все!
|
04.12.2008, 12:15 | #9 |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Тогда Вы не выполните исходное условие
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
08.12.2008, 16:55 | #10 |
Пользователь
Регистрация: 01.12.2008
Сообщений: 27
|
- Исходные условия мы перевыполняем!!!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переставить строки | Sergeevich | Помощь студентам | 7 | 20.06.2016 13:46 |
На печать выдать новую строку в которой все слова расположены в порядке возрастание длин слов | Siluet | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 13.12.2008 00:12 |
дан текстовый массив из 200 букв. Выстроить в алфавитном порядке все строчные буквы | Тина | Помощь студентам | 6 | 02.07.2008 22:53 |
процедура, которая выводит все слова, начинающиеся с согласных букв латинского алфавита. | sergeyfsd | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 21.02.2008 22:29 |
Во вводимом тексте переписать все слова в обратном порядке. | menlo | Помощь студентам | 5 | 17.11.2007 10:18 |