0 / 0 / 0
Регистрация: 25.12.2014
Сообщений: 22
1

Определить, сколько раз введенная буква стоит в слове на четных местах

26.05.2015, 05:50. Показов 1429. Ответов 4
Метки нет (Все метки)

Дано слово и буква.Определить,сколько раз введенная буква стоит в слове на четных местах.

Добавлено через 8 часов 53 минуты
Помогите пожалуйста!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.05.2015, 05:50
Ответы с готовыми решениями:

Определите, сколько раз введенная буква стоит в слове на четных местах
Дано слово и буква.Определите сколько раз введенная буква стоит в слове на четных местах.

Определить, сколько букв 'у' в слове стоит на четных местах
Здравствуйте, помогите пожалуйста с заданием: "сколько букв 'у' в слове стоит на четных местах?"....

Напишите программу, выясняющую сколько раз вторая буква слова X встречается в слове Y на чётных местах
Напишите программу, выясняющую сколько раз вторая буква слова X встречается в слове Y на чётных...

Определить, сколько букв «о» стоит в заданном слове на четных местах
Напишите программу, определяющую, сколько букв «о» стоит в заданном слове на четных местах. ...

4
0 / 0 / 1
Регистрация: 09.06.2015
Сообщений: 4
09.06.2015, 10:46 2
Помогите пожалуйста кто знает нам!
0
507 / 459 / 179
Регистрация: 11.12.2013
Сообщений: 2,434
09.06.2015, 11:23 3
вот функция, которая Вам поможет:
Delphi
1
2
3
4
5
6
7
8
9
function Qty(const slovo, bukva: string): Integer;
var i: integer;
begin
 result:=0;
 if (Trim(slovo)='')or(Trim(bukva)='') then Exit;
 for i:=1 to Length(slovo) do
  if slovo[i]=bukva then
   result:=result+1;
end;
0
Житель Земли
2993 / 2985 / 391
Регистрация: 26.07.2011
Сообщений: 11,452
Записей в блоге: 1
09.06.2015, 11:27 4
во-первых, bukva должна иметь тип Char, иначе конструкция
if slovo[i]=bukva then
будет ошибочной

во-вторых, нет проверки на "четность" места положения буквы в слове
0
0 / 0 / 1
Регистрация: 09.06.2015
Сообщений: 4
09.06.2015, 14:14 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Алексей! Спасибо Вам большое!

Добавлено через 2 часа 0 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
  Form1: TForm1;
 
   i,result:integer;
  slovo,bukva:string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 result:=0;
 slovo:=edit1.Text;
 bukva:=edit2.Text;
 for i:=1 to Length (slovo) do
 if slovo [i]= bukva then
 if i mod 2 =0 then
 result:=result+1;
 Memo1.Lines.Add(IntToStr(result));
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.Clear; edit2.Clear; memo1.clear;
end;
 
end.
Добавлено через 2 минуты
Droby, решение точное, пользуйтесь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.06.2015, 14:14
Помогаю со студенческими работами здесь

Строки и множества. Определить, сколько букв «о» стоит в заданном слове на четных местах
Напишите программу, определяющую, сколько букв «о» стоит в заданном слове на четных местах

Строки. Множества. Определить, сколько букв «о» стоит в заданном слове на четных местах
3.1. Напишите программу, определяющую, сколько букв «о» стоит в заданном слове на четных местах....

Определить, сколько раз заданный символ стоит в тексте на четных местах
1)Задан текст. Слова в тексте разделены одним пробелом. В конце текста – точка. Определить, сколько...

Подсчитать, сколько раз заданная буква (введенная пользователем) встречается в каждом слове
Задача: Дана строка, в которой слова разделены одним пробелом. Подсчитайте, сколько раз заданная...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru