Abror
Удален
|
   
А я же не смогу их записать в строчку например 1345831
А потом их надо в разделе var обозночать
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 16 апр. 2006 19:45 | IP
|
|
KMA 
Долгожитель
|
 
А в чем проблема тогда, возьми, да и сравни строчки в этом string, Т. е. совпадают ли первые две буковки и этих рабочих, если да, то вывести...
В строчку ты можешь записать число, LongInt вроде подойдет, а потом простенько div и mod отсчепляешь по цифорке и сравниваешь...
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 16 апр. 2006 22:25 | IP
|
|
Guest
Новичок
|
Вот моя задача
1.Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
Вот что я пробовал сделать:
Var
a:string;
begin
writeln(‘Vvedite slova:’);
readln(a)
Конечно, то что я напечатал может и 9 классник. Дальше я думал как же сравнивать слова, по длине, я понимаю, они могут совпадать, тут я додумался что надо сравнивать по символам, например для себя я это понял так «КОШКА» «КОШКА» «ДОМ» «СВЕТ» «ЗАРЯ» «ЗАРЯ» и по идее он должен вывести «дом» и «свет», если я правильно понял условие задачи, но как реализовать алгоритм сравнения слов?. Я прочитал про процедуры работы со строками(Delete, Copy, Insert), но я думаю что тут надо использовать циклы. Как это сделать?
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 16 апр. 2006 22:53 | IP
|
|
Genrih
Удален
|
Ну а как же без цикла(ов) то ?
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 17 апр. 2006 0:10 | IP
|
|
KMA
Долгожитель
|
Guest
Простеньким перебором тебя не устроит??? Или что-нибудь по круче??? Например сравниваешь первое слово со всеми остальными, если есть похожие, то удаляешь их всех, потом второе с другими, опять же если есть похожие, то удаляешь все эти слова, и так, в конце по любому остаются слова, которые встречаеются всего один раз.... Поближе к коду надо???
Даже девятиклассник может решить эту задачу, в том числе и я, просьба не оскорблять возраст...
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 17 апр. 2006 1:53 | IP
|
|
Abror
Удален
|
Цитата: KMA написал 17 апр. 2006 0:25
А в чем проблема тогда, возьми, да и сравни строчки в этом string, Т. е. совпадают ли первые две буковки и этих рабочих, если да, то вывести...
В строчку ты можешь записать число, LongInt вроде подойдет, а потом простенько div и mod отсчепляешь по цифорке и сравниваешь...
Никак не могу догадаться не поможешь??Заранее спасибо!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 17 апр. 2006 12:27 | IP
|
|
Guest
Новичок
|
KMA , да, если можно, то поближе к коду
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 17 апр. 2006 13:24 | IP
|
|
miss_graffiti
Долгожитель
|
 
Abror, как в var обозначать - я написала...
в строчку? зачем тебе это?
просто вывести на экран?
это без проблем.
KMA, у него сказано: при сравнении использовать массив.
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 17 апр. 2006 17:17 | IP
|
|
KMA
Долгожитель
|
miss graffiti, я ему отвечал на его реализацию, а не на саму задачу, понятное дело, что ваше предложение самое рациональное... Я бы то же стал так делать не задумываясь, в общем Arbor сделать лучше так, объявить надо следующим образом:
var phone: array[1..7] of byte;
В самой проге вывод в строчку:
for i:=1 to 7 do
write (g.phone{i});
Если конечно учитывать твое, ну а сравнить я думаю теперь и ты сможешь, просто создаешь дополнительную переменную, и каждый раз сравниваешь две цифры, у номера телефона...
(Сообщение отредактировал KMA 18 апр. 2006 0:32)
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 17 апр. 2006 23:59 | IP
|
|
Guest
Новичок
|
KMA
Помоги все таки с задачей пожалуйста. Это я про строки. Нужен алгоритм вот "сравниваешь первое слово со всеми остальными, если есть похожие, то удаляешь их всех, потом второе с другими, опять же если есть похожие, то удаляешь все эти слова, и так, в конце по любому остаются слова, которые встречаеются всего один раз". Если не сложно, то помоги пожалуйста.
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 18 апр. 2006 0:09 | IP
|
|
|
Форум
Турбо Паскаль. Программирование на Pascal
