Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2008, 20:24   #1
STEEL-F
 
Регистрация: 21.01.2008
Сообщений: 4
По умолчанию простая задача по строковым переменным

Помогите плиз) она мне как допуск к завтрашнему экзамену
Условие: дано слово или предложение на русском языке. Указать количество букв "о" в последнем слове
delphi7
STEEL-F вне форума Ответить с цитированием
Старый 21.01.2008, 20:34   #2
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

В цикле просматриваешь символы с конца... Находишь "о", значит +1.
Находишь пробел, значит завершение цикла.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 21.01.2008, 20:43   #3
STEEL-F
 
Регистрация: 21.01.2008
Сообщений: 4
По умолчанию

Цитата:
Сообщение от Карась Посмотреть сообщение
просматриваешь символы с конца...
Спасибо большое, но можно это место поподробней пожалуйста?
STEEL-F вне форума Ответить с цитированием
Старый 21.01.2008, 21:02   #4
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Код:
var S : string;
    i : integer;
begin
Readln (S); i := Length(s);
While S[i] <> ' ' do
  Begin
    .......
    i := i - 1;
  End;
Readln;
end.
Вместо точек реакция на нужные символы..

АДД: особено нужно дописать выход из цикла при i = 0.
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...

Последний раз редактировалось Карась; 21.01.2008 в 21:31.
Карась вне форума Ответить с цитированием
Старый 21.01.2008, 22:01   #5
STEEL-F
 
Регистрация: 21.01.2008
Сообщений: 4
По умолчанию

Цитата:
Сообщение от Карась Посмотреть сообщение
Код:
var S : string;
    i : integer;
begin
Readln (S); i := Length(s);
While S[i] <> ' ' do
  Begin
    .......
    i := i - 1;
  End;
Readln;
end.
Вместо точек реакция на нужные символы..

АДД: особено нужно дописать выход из цикла при i = 0.
я наверно уже сплю и не могу понять...как привязать это к полю ввода (edit1) и к полю вывода (edit2) и к кнопке расчета
помогите, если несложно
STEEL-F вне форума Ответить с цитированием
Старый 21.01.2008, 22:16   #6
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Понятно.... тоже сессия, тоже жопа...

Код:
procedure TForm1.Button1Click(Sender: TObject);
var i, z : integer;
     S : String;

begin
S := Edit1.Text; i := Length(S); z := 0;
While S[i] <> ' ' do
  Begin
    if S[i] = 'î' Then z := z + 1;
    i := i - 1;
    if i = 0 Then Break;
  End;
Edit2.Text := IntToStr(z);
end;

end.
На форму бросаешь два едита и кнопку..
Программа рухнет если в поле ничево нету.
Если предложение заканчивается пробелом то цикл непроходит а результат равен нулю...
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 21.01.2008, 22:32   #7
STEEL-F
 
Регистрация: 21.01.2008
Сообщений: 4
По умолчанию

Огромное спасибо) все работает...
STEEL-F вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не простая задача !!! MaxZoa Microsoft Office Excel 2 06.03.2008 18:07
Простая и в то же время сложная задача fiveelement Microsoft Office Excel 1 28.10.2007 21:03
Простая задача еще utyyf Помощь студентам 28 23.10.2007 00:07
Простая задача utyyf Помощь студентам 25 18.10.2007 14:50