Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
MaxLPM
0 / 0 / 0
Регистрация: 08.10.2013
Сообщений: 17
#1

Блок схема - Lazarus

23.11.2013, 07:41. Просмотров 417. Ответов 0
Метки нет (Все метки)

дана строка, состоящая из слов, разделенных пробелами ( одним или несколькими). Определить количество слов, которые содержать ровно три буквы ≪А≫.
программа есть, проверьте правильно ли я описал для курсовой работы программу и как правильно объяснить UTF8? и не могли бы помочь с блок схемой, то не как не могу составить. спасибо.
Pascal
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
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;  
  txt: String;   
  counter: Integer;
{раздел описания переменный, используемых в процедуре}
 procedure WordFound(s: string); {функция для нахождения слов}
  var
    c, n: Integer;
    Ch : string;
{раздел описания переменный, используемых в процедуре}
  begin
    c := 0;
    for n := 1 to UTF8Length(s) do
{цикл с параметром}
    begin
      Ch := UTF8UpperCase(UTF8Copy(s, n, 1));
      if Ch = 'А' then Inc(c);
    end;
  if c = 3 then
   Inc(counter);
  end;
  begin
  counter := 0;
  txt := StringReplace(Memo1.Lines.Text, #13#10, ' ', [rfReplaceAll]) + ' ';
{ Копируем текст из Memo1 в переменную txt, попутно заменяя символ переноса строки на пробел функцией StringReplace
  j := 1;
{в этой переменной хранится положение последнего найденного пробела}
  for i := 1 to Length(txt) do 
{ проверяется в цикле каждый символ переменной txt}
  begin
  if (txt[i] = ' ') then { если найденный символ – пробел}
 begin
 if i <> j then
{Сравниваем позицию найденного символа с переменной J, если равны то это два подряд стоящих пробела, пропускаем}
 WordFound(Copy(txt, j, i - j));
{иначе запускаем функцию обработки слова, в параметр которой копируем строку из переменной txt начиная с последнего найденного пробела и заканчивая текущим найденным пробелом}
  j := i + 1; { обновляем переменную последнего найденного пробела}
 Continue; 
 end;
 end;
ShowMessage('Количество слов с ровно тремя буквами "А" - ' + IntToStr(counter));
{вывод сообщения о результате}
end;

http://www.cyberforum.ru/lazarus/thread1052162.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2013, 07:41
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Блок схема (Lazarus):

Блок-схема по коду программы
Ребят, нужно помощь, кто сможет помочь, по листингу сделать Блок-Схемы? ...

блок-схема
Люди помогите пожалуйста, нарисуйте блок схему в ворде procedure gauss(n:...

Блок схема With do
Помогите пожалуйста, как будет выглядеть блок схема к этому куску: with...

Блок-схема
Ребят, помогите пожалуйста, делаю курсовую, осталось только блок схему (у меня...

Блок-схема по нахождению кротчайшего пути
Постройте пожалуйста б/c алгоритма метода по нахождению кротчайшего пути между...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2013, 07:41
Привет! Вот еще темы с решениями:

Блок-схема (схема нуждается в проверке)
Блок-схемы чертить никогда не умел, поэтому прошу помощи у знатоков. Нашёл в...

Блок схема ( схема алгоритма )
Доброго времени суток . Есть вот такая програмка : bool checktwo(const int x);...

Блок-схема
Здравствуйте, составьте блок-схему для кнопок 1 и 3, пожалуйста. using System;...

Блок-Схема
Можете помочь построить блок-схему??? const N=3; ******M=3; var...


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

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

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