|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.04.2008, 16:51 | #1 |
Пользователь
Регистрация: 14.01.2008
Сообщений: 14
|
Строки и файлы
Здравствуйте. У меня такая проблема,нет возможности подобраться к компу, так что пишу с мобилы . Нужна помощ с решением 2-х задач:
1) Дана строка s, содержащая менее чем 200 символов. Определить, сколько раз в данной строке до первой точки встречается комбинация символов ая. Использовать стандартные процедуры и функции в действиях над строками. 2) Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f , содержащий информацию о багаже нескольких пассажиров, информация о багаже каждого отдельного пассажира представляет собой соответствующую пару чисел *) . Определить, имеются ли 2 пассажира, багаж которых совпадает по числу вещей и различаются по весу не более чем на 0.5 кг. Есть маленькие ньансы ко 2-й задаче:во-первых - отдельный приложения для создания и считывания файла, и во-вторых - не использовать массивы и цикл for И вот еще одна прозьба, проверить работает ли прога: var st:string[200]; i:integer; est:boolean; begin edit1.text:=st; est:=false; for i:=1 to length(st) do if st[i]='.'then begin est:=true; break; end; if pos ('ая',st) <>0 then begin i:=i+1; memo1.lines.Append('est') end else memo1.lines.Append('net'); end; end. Заранее спасибо за понимание Последний раз редактировалось BR@BUS; 08.04.2008 в 17:05. |
08.04.2008, 21:26 | #2 | |
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
Регистрация: 29.09.2007
Сообщений: 1,824
|
Цитата:
Прога компилируеться но постояно собщает net даже если встречаеться 'ая'
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
|
|
08.04.2008, 22:57 | #3 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
st := edit1.text; |
|
08.04.2008, 23:12 | #4 |
Пользователь
Регистрация: 14.01.2008
Сообщений: 14
|
Спасибо. НАрод а насчет задачек, мб кто-нить поможет? Плз оч надо
|
08.04.2008, 23:35 | #5 |
Форумчанин
Регистрация: 15.02.2008
Сообщений: 621
|
1
Код:
-Считываем данные из файла -Сортируем массив по количеству вещей -Пускаем по массиву цикл, который проверяет i-ую и i+1 записи на равентво количества вещей и на отличие масс на неболее чем 0,5кг.
Помог? Ну так нажми на весы!
Последний раз редактировалось SNUPY; 08.04.2008 в 23:41. |
08.04.2008, 23:54 | #6 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
считать из файла две строки, вывести на экран символы первой строки, которые отсутствуют во второй | gotex | Помощь студентам | 4 | 08.05.2008 02:27 |
Массивы символов (строки) символьные файлы. | anarchist | Помощь студентам | 2 | 24.12.2007 09:16 |
как вывести строку поочередно сначала первая буква первой строки потом первая буква второй строки и т.д. | vitalik007 | Помощь студентам | 1 | 25.09.2007 20:45 |
два вредных вопроса:про асю и прикриплёные файлы файлы | steck | Свободное общение | 3 | 17.06.2007 14:53 |