Delphi 7

[jkjkj14]

1. Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.

задаётся с помощью ComboBox.

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

[dosha]

причём ComboBox? можн просто эдит использовать

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
 for i:=1 to Length(ComboBox1.Text) do
  if ComboBox1.Text[i]='b' then
   begin
     ShowMessage(IntToStr(Length(ComboBox1.Text)-i));
     Break;
   end;
end;

[5naip]

я вот так решил эту задачу:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,k:integer;
begin
k:=0;
for i:=1 to length(Edit1.text) do
  begin
    if (edit1.text[i] = 'b') and (edit1.text[i-1] = ' ')
      then k:=k+1;
  end;
ShowMessage(inttostr(k));
end;

[Mad_Cat]

я вот так решил эту задачу:

а если с буквы b будет первое слово) то его не посчитает

[5naip]

ммм...это верно недоглядел.
ну, думаю, исправлять смысла нет, там итак уже все ясно...

[Роман Романов]

помогите полностью решить задачу
В заданном массиве размером N определить среднее значение его элементов, предварительно отбросив максимальный и минимальный по модулю элементы

[Hacker19_90]

sum := 0;
for i := 1 to n do
begin
     sum := sum + massiv[i];
end;
sr := sum/n;

Хочется больше? стучите в асю!

[Роман Романов]

пожалуйста...срочно надо ...плиииз

[Роман Романов]

тока одну задачку

[Роман Романов]

буду очень благодарен