Программа, которая определяет количество слов заданной длины

[jorjanoo]

Вот хоть убейте, до последнего не могу найти код, прошу вот помощи.

[Вадим Мошев]

Сообщение от jorjanoo

до последнего не могу найти код

Его написать надо.
Начните решать задачу самостоятельно. Если что-то не будет получаться, показывайте то, что сделали, задавайте конкретные вопросы.

[jorjanoo]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.MaxLength := 30 ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    str: string;
    i, count: byte;
    flag: boolean;
begin
    readln(str);
    count := 0;
    flag := false;
    for i:=1 to length(str) do begin
        if (str[i] <> ' ') and (flag = false) then begin
            count := count + 1;
            flag := true;
        end
        else
            if str[i] = ' ' then
                flag := false;
    end;
    writeln(count);

   end;
end.

[jorjanoo]

Вот скрины ошибок

[Аватар]

Не чего в оконном приложении консольный формат команд readln и writeln использовать

[jorjanoo]

офк я понял ошибку, ахахах

[jorjanoo]

Нашел другой вар, но при компиляции выходит ошибка

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.MaxLength := 30 ;
end;

procedure TForm1.Button1Click(Sender: TObject);
Function GetWordsCountWithFixedLength(S:String; N: integer):integer;
var
	SL: TStringList;
	I: Integer;
begin
	SL:=TStringList.Create;
	SL.Delimiter:=' ';
	SL.DelimitedText:='Мой текст';
	Result:=0;
	for I:=0 to SL.Count-1 do
		if length(SL[I])=N then Inc(Result); 
end;


end.

[Serge_Bliznykov]

Сообщение от jorjanoo

Нашел другой вар,

Вас на лекциях по программированию только искать чужой код учили, программировать не учили? ;(

ладно. раз у Вас такая любовь к чужому коду, то попробуйте такой:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

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


var
  Form1: TForm1;

implementation

{$R *.dfm}

Function GetWordsCountWithFixedLength(S:String; N: integer):integer;
var
	SL: TStringList;
	I: Integer;
begin
	Result:=0;
	SL:=TStringList.Create;
	SL.Delimiter:=' ';
	SL.DelimitedText:=S;
	for I:=0 to SL.Count-1 do
		if length(SL[I])=N then Inc(Result);
        SL.Free;         
end;


procedure TForm1.Button1Click(Sender: TObject);
var 
  FindLength : integer; {для искомой длины слова}
begin
   FindLength := 5; {считаем слова длиной 5 символов}

   Label1.Caption := 'В строке Edit1 '+
                     IntToStr(GetWordsCountWithFixedLength(Edit1.Text, FindLength ))+
                     ' слов длиной ровно '+IntToStr(FindLength)+' символов.';

end;


end.

p.s. не проверял.

[jorjanoo]

Спасибо конечно), Но знаешь у нас было 4 лекционных занятия) Позже была фраза, не знаете спрашивайте, окей подумал я , спрошу, но нет, после сразу были отговорки мол в инете ищите и в заданиях все написано. Но лол, видел бы ты задачники, мб я реально на столько отстал, но написано в них максимально не понятно.

[jorjanoo]

Да, код рабочий, теперь буду искать, офк надо самому задавать длину искомых слов, через прогу) Спасибо