Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Решение задач со строками. 
:(
    Опции темы
Летиция
Дата 12.3.2010, 22:57 (ссылка) | (голосов:4) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 12.3.2010

Репутация: нет
Всего: нет
Нужно решить две задачи в Делфи, 1 курс.

1. Дана строка, состоящая из русских слов, разделённых пробелами (одним или несколькими). Определить количество слов, которые содержат ровно три буквы "а".

2. Дан текстовый файл, каждая строка которого изображает целое число, дополненное слева и справа несколькими пробелами. Вывести сумму этих чисел и их количество.
PM MAIL   Вверх
Proxin
Дата 12.3.2010, 23:55 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: нет
Всего: 3
ви-таки совсем все лекции проспали?
PM MAIL   Вверх
Летиция
Дата 13.3.2010, 00:08 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 12.3.2010

Репутация: нет
Всего: нет
Если бы проспала - было бы не так обидно.

Это сообщение отредактировал(а) Летиция - 13.3.2010, 00:09
PM MAIL   Вверх
kami
Дата 13.3.2010, 00:19 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 72
Применят ли модераторы ко мне санкции или нет за это сообщение - не знаю, но не высказать не могу.
Цитата(Летиция @  12.3.2010,  22:57 Найти цитируемый пост)
Нужно решить две задачи в Делфи

Нужно - решайте.
Ни "заранее спасибо", ни "помогите пожалуйста" - сухая четкая постановка задачи. РЕШИТЬ! НУЖНО! Кстати, даже не пояснено - кому нужно?
И Вы, Летиция, похоже даже не сомневаетесь, что Ваша задача моментально принята к исполнению ?
PM MAIL WWW   Вверх
Данкинг
Дата 13.3.2010, 00:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(Летиция @  12.3.2010,  22:57 Найти цитируемый пост)
Нужно решить две задачи в Делфи, 1 курс.

Нужно? Нужно - решай, кто мешает? smile 

Первую задачу сделал, извиняюсь за некоторую кривизну, но суть должна быть понятна:

Код

function TForm1.getwordnum(slovo,razd,nomer: string): string;
var i,c,int1,int2:integer;
res,ss:string;
begin
result:=slovo;
if (length(trim(slovo))=0) or (length(trim(razd))<>1)then exit;
slovo:=trim(razd)+trim(slovo)+trim(razd);
c:=0;
int1:=0;
int2:=0;
for i:=1 to length(slovo) do
 begin
  ss:=copy(slovo,i,1);
  if ss=razd then
    begin
     inc(c);
     if c=strtoint(nomer) then int1:=i;
     if c=strtoint(nomer)+1 then int2:=i;
    end;
 end;
result:=copy(slovo,int1+1,int2-int1-1);
end;


procedure TForm1.Button1Click(Sender: TObject);
var s:string;
slovo:string;
i,j,aaa,total:integer;
begin
 s:='Это тестовааая строкааа,      в натуре';
 listbox1.Clear;
 while pos('  ',s)<>0 do s:=stringreplace(s,'  ',' ',[rfReplaceAll]);
 s:=trim(s);
 total:=0;
 for i:=1 to length(s) do
  if s[i]=' ' then inc(total);
 s:=stringreplace(s,' ','@',[rfReplaceAll]);
 for i:=1 to total+1 do
  begin
   slovo:=getwordnum(s,'@',inttostr(i));
   aaa:=0;
    for j:=1 to length(slovo) do
     if slovo[j]='а' then inc(aaa);
  if aaa=3 then listbox1.Items.Add(slovo);
  end;
end;


Добавлено через 45 секунд
kami, опередил.

Добавлено через 2 минуты и 27 секунд
Цитата(kami @  13.3.2010,  00:19 Найти цитируемый пост)
И Вы, Летиция, похоже даже не сомневаетесь, что Ваша задача моментально принята к исполнению ? 

Дык, конечно: я вместо того, чтобы поиграть в "Midtown madness", наваял этот вот код. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Летиция
Дата 13.3.2010, 09:14 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 12.3.2010

Репутация: нет
Всего: нет
Я вообще не думала, моментально сделают или нет. Мне без разницы как-то было.
Данкинг, большое спасибо!!!
PM MAIL   Вверх
THandle
Дата 13.3.2010, 10:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372
Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена! 
PM   Вверх
Frees
Дата 14.3.2010, 00:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: нет
Всего: 54
ОФФ
Данкинг, поощряешь бездельников




--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Данкинг
Дата 14.3.2010, 00:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(Frees @  14.3.2010,  00:08 Найти цитируемый пост)
поощряешь бездельников

Кстати, нет: обычно матерю. smile Видимо, настроение хорошее было. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0491 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.