|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.06.2008, 09:19 | #1 |
Регистрация: 16.05.2008
Сообщений: 6
|
помогите здать экзамен!!!
ввести набор слов и вывести те слова, которые симметричны относительно середине.Вот я тут че смог сделал,а как выводить из текста не знаю. ВОт прога. помогите!!!
var s:string; i,k:integer; begin clrscr; writeln('vvedite tekst'); readln(s); k:=0; for i:=1 to trunc(length(s)/3) do if s[i]<>s[length(s)+1-i] then k:=1; if k=1 then writeln('slovo ',s, 'ne podhodit') else writeln('slovo ',s, 'podhodit'); readkey; end. |
13.06.2008, 09:47 | #2 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
13.06.2008, 10:39 | #3 |
Форумчанин
Регистрация: 25.04.2008
Сообщений: 476
|
я бы сделал так:
Код:
Life if about choices
Make the right choice |
13.06.2008, 10:42 | #4 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
Я чего то не понял...
Во-первых: не for i:=1 to trunc(length(s)/3) do , а for i:=1 to trunc(length(s)/2) do - это пол строки, а не 1/3 Во-вторых:проверяться на симметричность вся строка. а не слова по отдельности. Вот мой вариант(если будут ошибки не пугайтесь, а исправте, писал в длокноте без колпиляции) Код:
Нет невыполнимых задач, всё дело времени...
|
13.06.2008, 13:35 | #5 | |
Форумчанин
Регистрация: 25.04.2008
Сообщений: 476
|
Цитата:
Life if about choices
Make the right choice |
|
13.06.2008, 13:42 | #6 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
Тоесть проверяется есть ли симметричные слова относительно центра???
Н.П. квас вода квас или квас вода савк что тут симметрично?
Нет невыполнимых задач, всё дело времени...
|
13.06.2008, 13:47 | #7 |
Форумчанин
Регистрация: 25.04.2008
Сообщений: 476
|
assa dflkgjert ddffggffdd
симетричны слова assa и ddffggffdd
Life if about choices
Make the right choice |
13.06.2008, 13:48 | #8 |
Форумчанин
Регистрация: 25.04.2008
Сообщений: 476
|
на симетричность проверяется каждое слово из строки
Life if about choices
Make the right choice |
13.06.2008, 15:06 | #9 |
Форумчанин
Регистрация: 22.06.2007
Сообщений: 414
|
Ну так а моя программа что делает??? Это и делает!!! Запусти посмотри.
Нет невыполнимых задач, всё дело времени...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите плиз с задачами на экзамен | Astor | Помощь студентам | 1 | 27.06.2008 18:49 |
assembler помогите решить задачку !Очень срочно! завтра экзамен! | Taxist | Помощь студентам | 1 | 31.03.2008 20:51 |
Помогите сдать экзамен!!! Нужен код деревьев двоичного поиска и еще 2 програмки | Девчонка | Помощь студентам | 8 | 18.01.2008 19:02 |