Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
15 / 15 / 13
Регистрация: 11.10.2012
Сообщений: 127
1

Вывести на экран порядковый номер слова максимальной длины и номер позиции строки с которой оно начинается

04.05.2013, 21:45. Показов 1226. Ответов 1
Метки нет (Все метки)

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

Уже есть код, но его нужно изменить.. помогите пожалуйста подогнать под условие задачи!

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
57
58
59
unit Tema5;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm2 = class (TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
//Обработка события активизации формы
procedure TForm2.FormActivate(Sender:TObject);
begin
ComboBox1.SetFocus; //передача фокуса в ComboBox1
end;
//Обработка события нажатия левой кнопки мыши
procedure TForm2.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then //если нажата клавиша Enter
    begin 
    ComboBox1.Items.Add(ComboBox1.Text); //строка из окна редактирования              // заносится в список выбора
    ComboBox1.Text:=''; //очистка окна редактирования
    end;
end;
procedure TForm2.ComboBox1Click(Sender: TObject);
var     st:string;
    n,i,nst,ind:integer;
begin
    n:=0;    //n-число слов в строке
    ind:=0;
    nst:=ComboBox1.ItemIndex; // определение номера выбранной строки
    st:=ComboBox1.Items[nst]; //занесение выдел. строки в переменную st
    for i:=1 to Length(st) do //просмотр всех символов строки st
    begin
        case ind of
        0:  if st[i]<>' ' then //если встретился символ после пробела
            begin
            ind:=1;
            n:=n+1; //число слов увеличивается на единицу
            end;
        1:  if st[i]=' 'then ind:=0; //если встретился пробел после                                    //символов
        end;
    Label3.Caption:=IntToStr(n); //вывод числа слов в Label3 
end;
end;
end.
Добавлено через 38 минут
HELP!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2013, 21:45
Ответы с готовыми решениями:

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

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

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

Найти порядковый номер слова максимальной длины в строке и номер позиции, с которой оно начинается
помогите пожалуйста с программой( среда Visual C ) Дана строка символов, состоящая из...

__________________
1
15 / 15 / 13
Регистрация: 11.10.2012
Сообщений: 127
05.05.2013, 21:51  [ТС] 2
помогите плиз кто-нибудь!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.05.2013, 21:51

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

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

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

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

Вывести на экран порядковый номер слова максимальной длины
Задание: Дана строка символов состоящая из произвольного текста на английском языке слова...


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

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

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