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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Работа со строками? Пришлите что нибудь почитать по теме!! 
:(
    Опции темы
A13
Дата 20.1.2008, 17:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
[Delphi]
 smile 
Пришлите что нибудь почитать по теме, или решите!!!

1.    Написать функцию, которая удаляет из заданной строки все русские буквы?
2.    Написать функцию, которая удаляет из заданной строки все латинские буквы?
3.    Заданная строка содержит имя файла вместе с расширением написать функцию, которая удаляет расширение из названия файла?
4.    Заданная строка содержит имя файла вместе с расширением написать функцию, которая возвращает расширение файла?
5.    Написать функцию, возвращающую количество знаков препинания в заданной строке?
6.    Написать функцию, возвращающую количество латинских литер в заданной строке?
7.    Отобразить в ListBox все литеры заданной строки кроме пробелов?
8.    Отобразить в ListBox все литеры латинские литеры из заданной строки?
9.    Отобразить в ListBox все числа не превышающие заданного числа и оканчивающиеся на заданную цифру?
10.    Написать функцию, возвращающую первое слово из заданной строки?
11.    Написать функцию, возвращающую последнее слово из заданной строки?
12.    Написать функцию, возвращающую число присутствующее в зазданной строке среди жругих слов?

Для каждого алгоритма написать независимую процедуру и применить ее в обработчике события.
Использовать цикл FOR.
13.    Отобразить количество непробельных литер?
14.    Отобразить количество пробелов?
15.    Отобразить количество лидирующих пробелов?
16.    Отобразить количество хвостовых пробелов?
17.    Удалить все пробелы?
18.    Удалить лидирующие пробелы?
19.    Удалить хвостовые пробелы?
20.    Количество латинских литер?
21.    Количество русских литер?
22.    Количество цифр?
Спасибо!!!!!!!!!!!!!!
PM MAIL   Вверх
tommy256
Дата 20.1.2008, 17:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Сейчас решим...1 сек   smile А почитать.... любую книгу для начинающих
PM MAIL ICQ   Вверх
A13
Дата 20.1.2008, 18:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(A13 @ 20.1.2008,  17:25)
[Delphi]
 smile 
Пришлите что нибудь почитать по теме, или решите!!!

1.    Написать функцию, которая удаляет из заданной строки все русские буквы?
2.    Написать функцию, которая удаляет из заданной строки все латинские буквы?
3.    Заданная строка содержит имя файла вместе с расширением написать функцию, которая удаляет расширение из названия файла?
4.    Заданная строка содержит имя файла вместе с расширением написать функцию, которая возвращает расширение файла?
5.    Написать функцию, возвращающую количество знаков препинания в заданной строке?
6.    Написать функцию, возвращающую количество латинских литер в заданной строке?
7.    Отобразить в ListBox все литеры заданной строки кроме пробелов?
8.    Отобразить в ListBox все литеры латинские литеры из заданной строки?
9.    Отобразить в ListBox все числа не превышающие заданного числа и оканчивающиеся на заданную цифру?
10.    Написать функцию, возвращающую первое слово из заданной строки?
11.    Написать функцию, возвращающую последнее слово из заданной строки?
12.    Написать функцию, возвращающую число присутствующее в зазданной строке среди жругих слов?

Для каждого алгоритма написать независимую процедуру и применить ее в обработчике события.
Использовать цикл FOR.
13.    Отобразить количество непробельных литер?
14.    Отобразить количество пробелов?
15.    Отобразить количество лидирующих пробелов?
16.    Отобразить количество хвостовых пробелов?
17.    Удалить все пробелы?
18.    Удалить лидирующие пробелы?
19.    Удалить хвостовые пробелы?
20.    Количество латинских литер?
21.    Количество русских литер?
22.    Количество цифр?
Спасибо!!!!!!!!!!!!!!

три книги взял в библиотеке и ни в одной ничего по теме нет smile .
PM MAIL   Вверх
Alexeis
Дата 20.1.2008, 18:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Тема перенесена! 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
A13
Дата 20.1.2008, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
А вы что то посоветовать почитать не порекомендуете????? только по подробнее о теме работа со строками??????????????????
PM MAIL   Вверх
ivan219
  Дата 20.1.2008, 18:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 1
Всего: 12
Цитата(A13 @  20.1.2008,  18:47 Найти цитируемый пост)
только по подробнее о теме работа со строками??????????????????

Это самые основы в любой книге по Паскалю есть.
Вот тебе 3 основных функции по строкам Pos(); Delete(); Copy(); что неужели их нет в твоих книгах smile ещё тебе понадобится циклы for, while.


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
source777
Дата 20.1.2008, 19:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 5
Всего: 56
Цитата

три книги взял в библиотеке и ни в одной ничего по теме нет 
А что в твоём понимании значит "по теме"? типа "А сейчас мы рассмотрим как отобразить количество пробелов ..." ? 


--------------------
Если бы программистам платили за то, чтобы убирать код из программы вместо того, чтобы добавлять его, программы были бы намного лучше © Николас Негропонте
PM MAIL   Вверх
A13
Дата 20.1.2008, 19:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(source777 @ 20.1.2008,  19:41)
Цитата

три книги взял в библиотеке и ни в одной ничего по теме нет 
А что в твоём понимании значит "по теме"? типа "А сейчас мы рассмотрим как отобразить количество пробелов ..." ?

Ну типа да, если это возможно!!! smile 
PM MAIL   Вверх
THandle
Дата 20.1.2008, 21:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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



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

Репутация: 30
Всего: 372
Цитата(A13 @  20.1.2008,  19:44 Найти цитируемый пост)
Ну типа да, если это возможно!!!

Такое невозмоно впринципе. Повнимательнее почитай работу со строками, и всё получится. smile 
PM   Вверх
A13
Дата 20.1.2008, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Цитата(THandle @ 20.1.2008,  21:03)
[

чем и занят. а между делом прислал задания а вдруг прокатит кто нибудь да поможет? smile 
PM MAIL   Вверх
JSinx
Дата 20.1.2008, 22:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Примерный алгоритм smile

1) Делаешь массив из русских буков
2) по очереди ищешь эти буквы в нужной строке
3) если есть, удаляешь и ищешь эту букву заново
4) если нет, то переходишь к следующей букве
Как закончились все буквы, так возвращаешь результат.



С расширением - ищешь точку, вариант один - уделяешь все что до точки, второй - после точки.


P.S. Ну и честно говоря школьные задачки то, надо просто подумать головой немного, а не искать простейшие алгоритмы в книгах и по инету. Хотя не спорю вопросов таких много.
PM MAIL   Вверх
JSinx
Дата 20.1.2008, 23:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Посмотрел последние книги по delphi 2005 и старше, даже нет описания функций работы со строками.  Видимо в наш век актуально xml, базы данных и пр.

Попробуй поискать книгу "Петр Дарахвелидзе. Delphi - среда визуального программирования", может и не самая лучшая книга, но много базисных вещей есть.

Если нормально с английским, то должен помочь простой help smile

Еще есть сайт, где решают много подобных задачек, но не помню его :(
PM MAIL   Вверх
Palladin
Дата 22.1.2008, 03:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
создаеш переменную типа String потом пишешь в едит строку, на строку смотришь как на массив символов и в цикле проверяешь, вот к примеру процедура для поиска пробелов:

Код

procedure Button1.Click(Sender:TObject);
var
s:String;
i,k:integer;
begin
 s:=Edit1.text;

for i:=1 to Length(s) do
if s[i]=' ' then k++;

memo1.text:="Кол-во пробелов в строке"+s+" :"+inttostr(k);
end;


На Pascale и Delphi уже полтара года ничего не писал, такчто не ругай smile 

Это сообщение отредактировал(а) Palladin - 22.1.2008, 03:28


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
THandle
  Дата 22.1.2008, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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



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

Репутация: 30
Всего: 372
Palladin, в Паскале вместо k++ используется inc(k).

То есть твоя процедурка выглядит так:
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  s:String;
  i,k:integer;
begin
  s:=Edit1.text;
  k := 0;
  for i := 1 to Length(s) do
    if s[i] = ' ' then
      inc(k);
  ShowMessage('Колличество пробелов в строке: ' + s + ' : ' + inttostr(k));
end;


Это сообщение отредактировал(а) THandle - 22.1.2008, 11:54
PM   Вверх
Palladin
Дата 22.1.2008, 14:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17
Цитата(THandle @  22.1.2008,  11:54 Найти цитируемый пост)
Palladin, в Паскале вместо k++ используется inc(k).

Я ж говорю полтора года не писалsmile спасибо что не пинал сильноsmile
а вообще можно и так 
Код
k:=k+1
 smile 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

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


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

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

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

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


 




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


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

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