Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 1
Регистрация: 24.01.2011
Сообщений: 30
1

Вывести на экран первые три буквы каждого слова

13.05.2011, 08:41. Просмотров 1899. Ответов 2
Метки нет (Все метки)


дана строка содержащая текст, заканчивающийся точкой. вывести на экран первые три буквы каждого слова.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.05.2011, 08:41
Ответы с готовыми решениями:

Удалить из каждого слова повторяющиеся буквы. Заново вывести на экран
Ввести строку, состоящую из слов, разделенных пробелами. Удалить из каждого слова повторяющиеся...

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

Найти слова, в которых одинаковые первые три буквы!
Дана строка символов S, длиной n. Слова разделены пробелами, в конце точка. Найти слова, в которых...

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

2
magirus
13.05.2011, 09:18
  #2
 Комментарий модератора 
называйте темы информативно
0
13064 / 5850 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
13.05.2011, 12:27 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
function ProcStr(const aStr : String) : String;
const
  //Разделители слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  i, Len, Cnt : Integer;
begin
  Len := Length(aStr);
  Result := '';
  Cnt := 0;
  for i := 1 to Len do begin
    //Из исходной строки в строку результата записываем разделители.
    if aStr[i] in D then begin
      Result := Result + aStr[i];
      Continue;
    end;
    //Добавляем первые три буквы слова к результату.
    if Cnt < 3 then begin
      Result := Result + aStr[i];
      Inc(Cnt);
    end;
    //Отслеживаем конец слова и обнуляем счётчик.
    if (i = Len) or (aStr[i + 1] in D) then Cnt := 0;
  end;
end;
 
var
  S : String;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте текст: ');
    Readln(S);
    S := ProcStr(S);
    Writeln('Результат:');
    Writeln(S);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2011, 12:27

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Как получить первые три буквы из слов
Всем доброго времени суток! Нужно из Edit1 и Edit2 , в которых вводится слово, получить только...

Даны два слова. Вывести на экран общие буквы в этих словах.
Помогите пожалуйста написать код. Даны два слова. Вывести на экран общие буквы в этих словах....

Дана строка. Вывести первые три символа и последние три символа
Доброе утро, господа. Необходима Ваша помощь по решению этого вопроса, вроде как и не сложно, но в...

Вывести на экран все слова, в которых все буквы разные
Дан текст из слов, разделенных пробелами. Вывести на экран все слова, в которых все буквы разные....


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

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

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