|
1)алгоритм определения явл-я ли слово палиндромом....
|
|
| fatum | Дата: Воскресенье, 19.10.2008, 18:04 | Сообщение # 1 |
 Уже "свой"
Группа: Пользователи
Сообщений: 94
Статус: Offline
| Помогите решить пару задачек, буду оч благодарен.
1)написать алгоритм для определения является ли слово палиндромом
2)в текстовом файле mag.txt даны наименования магазинов и их адреса (в кач-е разделителя точка с запятой)Над написать программу , которая после ввода с клавиатуры названия магазина выдает на экран ее адрес. Заранее спасибо!
Нет ничего невозможного!
|
| |
| |
| Alexander | Дата: Воскресенье, 19.10.2008, 18:26 | Сообщение # 2 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| Quote 1)написать алгоритм для определения является ли слово палиндромом
Я пологаю, что здесь достаточно проверить совпадает ли "обратное" слово с "прямым"(хотя на самом деле это не необходимое условие). Например:
топот- являетя
шалаш- является
сарай- нет.
Quote 2)в текстовом файле mag.txt даны наименования магазинов и их адреса (в кач-е разделителя точка с запятой)Над написать программу , которая после ввода с клавиатуры названия магазина выдает на экран ее адрес.
А здесь-то какие проблемы? Это очень простая задача- проблем быть не может.
Скажем дружно- нафиг нужно!
Сообщение отредактировал Alexander - Воскресенье, 19.10.2008, 18:26 |
| |
| |
| fatum | Дата: Воскресенье, 19.10.2008, 19:28 | Сообщение # 3 |
|
Уже "свой"
Группа: Пользователи
Сообщений: 94
Статус: Offline
| я начинающий и не мне эт кажется сложным, к тому же еще и не выходит
Нет ничего невозможного!
|
| |
| |
| Alexander | Дата: Воскресенье, 19.10.2008, 19:52 | Сообщение # 4 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| Quote (fatum) я начинающий и не мне эт кажется сложным, к тому же еще и не выходит
что именно не выходит? Пока даже попыток не видно.
Скажем дружно- нафиг нужно!
|
| |
| |
| fatum | Дата: Воскресенье, 19.10.2008, 20:14 | Сообщение # 5 |
|
Уже "свой"
Группа: Пользователи
Сообщений: 94
Статус: Offline
| 2ю вообще незнаю как сделать, а вот 1я... можешь сказать что неправильно?
Нет ничего невозможного!
|
| |
| |
| Alexander | Дата: Воскресенье, 19.10.2008, 20:20 | Сообщение # 6 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| прикрепи к сообщению файл, или напиши здесь текст.
Скажем дружно- нафиг нужно!
Сообщение отредактировал Alexander - Воскресенье, 19.10.2008, 20:20 |
| |
| |
| fatum | Дата: Воскресенье, 19.10.2008, 22:00 | Сообщение # 7 |
|
Уже "свой"
Группа: Пользователи
Сообщений: 94
Статус: Offline
| я же прикрепил ВОТ ОН!
Нет ничего невозможного!
|
| |
| |
| Alexander | Дата: Воскресенье, 19.10.2008, 22:04 | Сообщение # 8 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| он на файлообменнике и чтоб его скачать нужно вводить циферки и смотреть рекламу. А если посмотреть что находится над кнопкой "Добавить ответ", то приходишь в ужас от надписи "Прикрепить файл: (не более 400Kb)".
Скажем дружно- нафиг нужно!
|
| |
| |
| fatum | Дата: Воскресенье, 19.10.2008, 22:33 | Сообщение # 9 |
|
Уже "свой"
Группа: Пользователи
Сообщений: 94
Статус: Offline
| либо я слепой, либо у меня нет этой кнопки Добавлено (19.10.2008, 15:33)
---------------------------------------------
вот скрин 
Нет ничего невозможного!
Сообщение отредактировал fatum - Воскресенье, 19.10.2008, 22:25 |
| |
| |
| Seqular | Дата: Воскресенье, 19.10.2008, 22:44 | Сообщение # 10 |
 Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| fatum, Что этот исходник делает? О_О
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| Seqular | Дата: Воскресенье, 19.10.2008, 22:50 | Сообщение # 11 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Вообще, fatum, будет лучше забубенить такой цикл:
Code
for i := 1 to (length(s) div 2) do
Begin
If (s[i] <> s[length(s)-i+1]) then
Begin
flag := True;
Break;
End;
End;
Где s - слово, flag - признак того, что НЕ палиндром.
Как работает цикл - сравнивает попарно первую букву с последней, вторую с предпоследней и т.д. до середины слова. Если найдено хоть одно несовпадение - выставляем флаг и выходим из цикла.
Если после прохода flag = Flase, то это палиндром. Кажется так, если я правильно понял
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| fatum | Дата: Воскресенье, 19.10.2008, 23:53 | Сообщение # 12 |
|
Уже "свой"
Группа: Пользователи
Сообщений: 94
Статус: Offline
| Seqular, скрин это то что я сделал по первой задаче но у меня не работает.....ща твой варинт опробую......
Нет ничего невозможного!
|
| |
| |
| Alexander | Дата: Воскресенье, 19.10.2008, 23:55 | Сообщение # 13 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| Теперь давайте со второй разбираться. Вам под силу такая подзадача:
Прочитать из вашего файла наименования магазинов и вывести все на экран?
Скажем дружно- нафиг нужно!
Сообщение отредактировал Alexander - Воскресенье, 19.10.2008, 23:57 |
| |
| |
| fatum | Дата: Понедельник, 20.10.2008, 00:05 | Сообщение # 14 |
|
Уже "свой"
Группа: Пользователи
Сообщений: 94
Статус: Offline
| Alexander, у меня нету такой штуки как у тебя на картинке(((( вторую задачу вообще у меня умения нету решать
Нет ничего невозможного!
|
| |
| |
| Alexander | Дата: Понедельник, 20.10.2008, 00:18 | Сообщение # 15 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| Quote (fatum) у меня нету такой штуки как у тебя на картинке
А куда она делась  . Подождём комментария Seqular'а.
Quote вторую задачу вообще у меня умения нету решать
Хорошо, попробуем иначе. Что делает вот этот код:
Code Read(f,c);
while c<>';' do
begin
s:=s+c;
Read(f,c);
end;
где f: text, s:string, c:char. Точнее что будет в переменной s после выполнения этого фрагмента, если до этого она была пуста.
З.Ы. в вашем текстовом файле может быть более одной строки?
Скажем дружно- нафиг нужно!
Сообщение отредактировал Alexander - Понедельник, 20.10.2008, 00:19 |
| |
| |
