Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.64
mihel777
0 / 0 / 0
Регистрация: 09.02.2013
Сообщений: 13
#1

Определить номер позиции, в которой находится заданная буква во введенной строке - Delphi

13.03.2013, 17:00. Просмотров 1722. Ответов 10
Метки нет (Все метки)

Добрый день . Помогите пожалуйста не могу разобрать программу.

Программа в консоле .


Составить программу выполняющую следующие действия : вводим с клавиатуры строку "Приехали".И запрашиваем у программы букву"Е". А она определяет номер позиции в которой находится буква "Е" исходной строке.


Заранее огромное спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2013, 17:00
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить номер позиции, в которой находится заданная буква во введенной строке (Delphi):

Выведите на экран позиции, на которых в строке находится буква 'е'. Посчитайте их количество - Delphi
Помогите решить задачку Условие: Выведите на экран позиции , на которых находится буква 'е'. Посчитайте их количество.

Выдать номер позиции заданной строки, в которой впервые встречается буква "в" - Delphi
Выдать номер позиции заданной строки, в которой впервые встречается буква "в". Если такой буквы в строке нет. выдать сообщение об...

Как определить номер строки, на которой находится выделенный текст? - Delphi
Текст выделяется программно так: Memo1.SetFocus(); Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1; Memo1.SelLength:=Length(FIND); ...

Определить номер позиции первой буквы в строке - Delphi
буква может быть маленькой или большой русского или англ. алфавита. procedure TForm1.Button1Click(Sender: TObject); var st:string; ...

Вывести на экран порядковый номер слова максимальной длины и номер позиции строки с которой оно начинается - Delphi
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами.. Вывести на экран порядковый номер...

Вывести на экран порядковый номер слова максимальной длины и номер позиции строки с которой она начинается. - Delphi
Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Вывести на экран порядковый...

10
Shurvik
43 / 43 / 2
Регистрация: 12.02.2013
Сообщений: 151
13.03.2013, 18:56 #2
Либо перебором в цикле, либо Pos(SubStr, S: string) возвращает первое вхождение искомой строки (в Вашем случае символа"Е")
2
mihel777
0 / 0 / 0
Регистрация: 09.02.2013
Сообщений: 13
15.03.2013, 17:09  [ТС] #3
Спасибо . Но я не могу понять как это делается . Вы моглибы объяснить или показать пример как это делается. Заранее спасибо.
0
droider
Universal
Эксперт Pascal/Delphi
4381 / 2429 / 518
Регистрация: 04.10.2012
Сообщений: 8,835
15.03.2013, 20:50 #4
Shurvik, лучше использовать функцию PosEx, т.к. вхождений буквы в строку может быть несколько.
mihel777, предлагаю такой вариант

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
str, b:string;
i:integer;
begin
Writeln('Введите строку');
Readln(str);
Writeln('Введите букву');
Readln(b);
i:=PosEx(b, str, 1);
if i=0 then 
Writeln('Такой буквы нет')
else
While i>0 do
begin
Writeln;
Writeln('Позиция:');
Writeln(i);
i:=PosEx(b, str, i+1);
end;
readln;
1
Maksim2309
45 / 45 / 2
Регистрация: 17.01.2013
Сообщений: 328
16.03.2013, 13:10 #5
Вот держи, тут еще пробелы считает и длину предложения
1
Вложения
Тип файла: rar Задача.rar (169.1 Кб, 20 просмотров)
droider
Universal
Эксперт Pascal/Delphi
4381 / 2429 / 518
Регистрация: 04.10.2012
Сообщений: 8,835
16.03.2013, 15:11 #6
Maksim2309, это не относится к задаче. Если только для ознакомления.
2
mihel777
0 / 0 / 0
Регистрация: 09.02.2013
Сообщений: 13
17.03.2013, 12:18  [ТС] #7
Спасибо))) Но у меня на вот этой строчки выдает ошибку "i:=PosEx(b, str, 1);".

Добавлено через 1 минуту
Delphi
1
2
i:=PosEx(b, str, 1);
i:=PosEx(b, str, i+1);
В этих двух строчках.
0
FIL
Модератор
3407 / 2545 / 490
Регистрация: 19.09.2012
Сообщений: 7,905
17.03.2013, 12:34 #8
Подключи модуль StrUtils.
1
DangHaos
11 / 11 / 1
Регистрация: 09.02.2013
Сообщений: 90
17.03.2013, 12:39 #9
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses
  SysUtils;
 
var
str, b:string;
i:integer;
begin
Writeln('Введите строку');
Readln(str);
Writeln('Введите букву');
Readln(b);
i:=PosEx(b, str, 1);
if i=0 then 
Writeln('Такой буквы нет')
else
While i>0 do
begin
Writeln;
Writeln('Позиция:');
Writeln(i);
i:=PosEx(b, str, i+1);
end;
readln;
не работает, модуль есть вроде.
0
FIL
Модератор
3407 / 2545 / 490
Регистрация: 19.09.2012
Сообщений: 7,905
17.03.2013, 12:41 #10
Найди пару отличий :
SysUtils
StrUtils
1
DangHaos
11 / 11 / 1
Регистрация: 09.02.2013
Сообщений: 90
17.03.2013, 12:48 #11
спасибо))) сразу не заметил, подключил все работает
0
17.03.2013, 12:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2013, 12:48
Привет! Вот еще темы с ответами:

Вычислить номер четверти, в которой располагается заданная пользователем точка. - Delphi
У прямокутній системі координат задана деяка точка N (x, y. Обчислити номер чверті, до якої належить задана точка. В прямоугольной...

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

Номер позиции в строке - Delphi
Найти номер позиции первой цифры в строке. Я пробовал писать, но не выходит, надеюсь тут кто-нибудь поможет.

Вывести номер координатной четверти, в которой находится данная точка - Delphi
Задача: Даны вещесбенные координаты точки, не лежащей на координатных осях ОХ и ОУ. Вывести номер координатной четверти, в которой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru