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

07.05.2012, 22:14. Показов 415. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Delphi

ype
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i,x,k:byte;
     a:string;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=edit1.text;
x:=length(a); {определяем длину слова}
k:=0;
for i:=1 to x do if a[i]=' ' then k:=k+1;
  label1.caption:='в предложении значимых пробелов: '+inttostr(k);
  label2.Caption:='в предложении незначимых пробелов'+ inttostr(k-1);

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.05.2012, 22:14

Ответы с готовыми решениями:

Дано предложение. Определить количество пробелов в нем
Дано предложение. Определить количество пробелов в нем.

Дано предложение. Определить число пробелов в нем
.1 Дано предложение. Определить число пробелов в нем. 2Дано предложение. Определить число...

Дано предложение. Определить число пробелов в нем
не могу составить программу в турбо паскале Дано предложение. Определить число пробелов в нем

Дано предложение. Определить число пробелов в нем
34. Дано предложение. Определить число пробелов в нем. 35. Дано предложение. Все его символы,...

	07.05.2012, 22:14

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.05.2012, 22:14

Помогаю со студенческими работами здесь

Дано предложение. Найти наибольшее количество идущих подрят пробелов
Дано предложение. Найти наибольшее количество идущих подрят пробелов. помоте плиз

Дано предложение. Найти наибольшее количество идущих подряд пробелов
Условие 9.152. Дано предложение. Найти наибольшее количество идущих подряд пробелов.

Дано предложение. Определите наибольшее количество идущих подряд пробелов
Дано предложение. Определите наибольшее количество идущих подряд пробелов.

Дано предложение, найти наибольшее количество идущих пробелов подряд
Дано предложение,найти наибольшее количество идущих пробелов подряд!

Дано предложение, найти наибольшее количество идущих подряд пробелов
2) дано предложение, найти наибольшее кол-во идущих подряд пробелов.

Дано предложение. Найти наибольшее количество идущих подряд пробелов
9)Дано предложение. Найти наибольшее количество идущих подряд пробелов.

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

Или воспользуйтесь поиском по форуму:

Наверх