Форум программистов, компьютерный форум, киберфорум
Наши страницы
C# Windows Forms
Войти
Регистрация
Восстановить пароль
 
Жанна1
0 / 0 / 0
Регистрация: 04.06.2015
Сообщений: 29
#1

Перевести с Delphi на C#. Найти слово, начинающееся буквой а и оканчивающееся буквой я - C#

24.12.2015, 09:40. Просмотров 305. Ответов 5
Метки нет (Все метки)

Вот сама задача : дана строка. найти какое-нибудь слово, начинающееся буквой а и оканчивающееся буквой я. если таких слов нет, то сообщить об этом.

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
29
30
31
32
33
34
35
procedure TForm1.BitBtn1Click(Sender: TObject); 
var 
str:TStringList; 
s, mes:string; 
i:integer; 
begin 
str:=TStringList.Create; 
s:=Memo1.lines.Text; 
for i:=0 to Length(s) - 1 do 
if s[i]=' ' then s[i]:=#10; 
memo1.Lines.Text:=s; 
for i:=0 to Memo1.Lines.Count - 1 do 
if Memo1.Lines[i]='' then Memo1.Lines.Delete(i); 
Str.AddStrings(Memo1.Lines); 
mes:=''; 
for i:=0 to str.Count - 1 do 
begin 
s:=str[i]; 
if s[Length(s)]<>'.' then 
begin 
if (LowerCase(s[1])=LowerCase('А')) and (LowerCase(s[Length(s)])=LowerCase('Я')) or (LowerCase(s[1])=LowerCase('а')) and (LowerCase(s[Length(s)])=LowerCase('я')) then 
Mes:=Mes+(str[i])+#13#10; 
end 
else if (LowerCase(s[1])=LowerCase('А')) and (LowerCase(s[Length(s)-1])=LowerCase('Я')) or (LowerCase(s[1])=LowerCase('а')) and (LowerCase(s[Length(s)])=LowerCase('я')) then 
Mes:=Mes+(str[i])+#13#10; 
end; 
memo1.Text:=str[0]; 
for i:=1 to str.Count - 1 do 
memo1.text:=memo1.text+' '+str[i]; 
if mes='' then ShowMessage('Таких слов нет') 
else 
Showmessage(Mes); 
str.free; 
end; 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2015, 09:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перевести с Delphi на C#. Найти слово, начинающееся буквой а и оканчивающееся буквой я (C#):

Найти позицию первого символа строки, не являющегося буквой
Напишите функцию NonAlpha(str: string), которая получает параметр str типа...

Найти количество строк файла, которые начинаются и заканчиваются одной буквой
Дан текстовый файл. Найти количество строк, которые начинаются и заканчиваются...

Найти в строке слова, которые начинаются и оканчиваются одной и той же буквой (C++ -> C#)
Здравствуйте. Помогите переписать с C++ на C# Дана строка. Найти в ней те...

Найти количество букв в строке, которые по алфавиту идут перед последней буквой данной строки
найти количество букв в строке которые по алфавиту идут перед последней буквой...

TextBox. Не печатает с пробелом и буквой Ё
Привет программисты) Я пишу программу и возникла такая проблема, не печатает...

Вывести слова, которые начинаются и заканчиваются одной и той же буквой
есть ли в тексте слова, которые начинаются и заканчиваются одной и той же...

5
HectorPrima
137 / 72 / 52
Регистрация: 19.12.2014
Сообщений: 252
24.12.2015, 09:54 #2
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
string s = "мама мыла раму";
var all = s.Split(new Char[] { ' ', ',', '.' });
string found_string="";
foreach (string str in all)
{
    if (str.StartsWith("м") && str.EndsWith("а")) { 
        found_string = str;
        break;
    }
}
if (found_string.Length > 0)
    Console.WriteLine("Нашли слово "{0}"", found_string);
else
    Console.WriteLine("Ничего не найдено.");
Console.ReadKey();
0
Hikari
Хитрая блондиночка $)
1451 / 960 / 399
Регистрация: 21.12.2015
Сообщений: 3,785
24.12.2015, 10:02 #3
Цитата Сообщение от Жанна1 Посмотреть сообщение
найти какое-нибудь слово, начинающееся буквой а и оканчивающееся буквой я. если таких слов нет, то сообщить об этом.
C#
1
2
3
4
            string s = "найти какое-нибудь слово";
            var a = s.Split(' ').Where(i => i.First() == 'а' && i.Last() == 'я');
            Console.Write((a.Count()>0)?String.Join(" ",a):"Не, таких нет");
            Console.ReadKey();
1
HectorPrima
137 / 72 / 52
Регистрация: 19.12.2014
Сообщений: 252
24.12.2015, 10:06 #4
Для последнего кода не забудь добавить в начало
C#
1
using System.Linq;
0
Жанна1
0 / 0 / 0
Регистрация: 04.06.2015
Сообщений: 29
24.12.2015, 10:24  [ТС] #5
Выводит одно слово "аня", а мне надо чтобы все слова выводила "аня прик аннпя"
надо чтобы вывело "нашли слова аня аннпя"
0
HectorPrima
137 / 72 / 52
Регистрация: 19.12.2014
Сообщений: 252
24.12.2015, 10:50 #6
Цитата Сообщение от Жанна1 Посмотреть сообщение
чтобы все слова выводила
второй пример так и делает.
0
24.12.2015, 10:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2015, 10:50
Привет! Вот еще темы с решениями:

Выбор конкретной буквы из текстбокса для сравнение с той же по счету буквой в другом текстбоксе
как написать вот такое отрывок: &quot;выбор конкретный буквы из текстбокса для...

Найти в заданном тексте слово, начинающееся буквой “а” и оканчивающееся буквой “я”
Найти в заданном тексте слово, начинающееся буквой “а” и оканчивающееся буквой...

Найти в строке слово, начинающееся буквой "а" и оканчивающееся буквой "я"
Дана строка символов. Будем рассматривать слова, образованные символами,...

Найти в строке слово, начинающееся буквой "а" и оканчивающееся буквой "я"
дана строка. найти какое-нибудь слово, начинающееся буквой а и оканчивающееся...


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

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

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