сколько слов являются перевертышами

[rustam1994]

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

[TilerDerton]

Перевертыши до вычеркивания или после?
Вообще, в разрезе Delphi, я бы использовал "Pos", "Copy".
Предложение = строка, при этом пробелы разделяют слова. Если есть запятые, из бы я удалил вместе с "А", (Процедура "delete").
Если точка в конце предложения - обязательное условие, то можно просто работать до "length-1" строки.

[rustam1994]

после вычеркивания написано же.в новом предложении сколько слов являются перевертышами

[DiemonStar]

А язык программирования какой? или телепатировать нужно?

[rustam1994]

извиняюсь....на Делфи

какие идеи

[Rififi]

какие идеи

конечно есть

1. разбить текст на массив слова
2. в цикле по массиву в каждом слове вырезать все вхождения буква 'а'
3. каждое преобразованное слово проверить на перевертыш, если да - увеличить счетчик
4. вывести значение счетчика на консоль или в memo
...
PROFIT!

[rustam1994]

никто не подскажет куда мне надо вводить эту фигню...


{$R *.dfm}
//ввод только до первой точки
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if pos('.',Edit1.Text)>0 then key:=#0;
end;

[DiemonStar]

1. разбить текст на массив слова
2. в цикле по массиву в каждом слове вырезать все вхождения буква 'а'
3. каждое преобразованное слово проверить на перевертыш, если да - увеличить счетчик
4. вывести значение счетчика на консоль или в memo

а я бы чуть по-другому сделал:

1. в строке вырезать все вхождения буква 'а'
2. разбить текст на массив слов
3. каждое преобразованное слово проверить на перевертыш, если да - увеличить счетчик
4. вывести значение счетчика на консоль или в memo

в принципе, все действия довольно элементарны и проблем не составляют.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if pos('.',Edit1.Text)>0 then key:=#0;
end;

и здесь я бы немножко изменил:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Edit1.Enabled := pos('.',Edit1.Text) <=0; 
end;

[Rififi]

никто не подскажет куда мне надо вводить эту фигню...

Голубчик, это форум программистов а не sex-education.ru
Выражайте свои мысли яснее oO

[rustam1994]

уже сделал

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if pos('.',edit1.Text)>0 then key:=#0;
end;

procedure TForm1.Button1Click(Sender: TObject);
const rz=[' ',',','.'];//разделители пробел, запятая, точка, можно добавить
var s,s1,s2:string;
    i,j,k,n:integer;
begin
if (Edit1.Text='')or(pos('.',Edit1.Text)=0) then
 begin
  showmessage('Вы не ввели предложение или не поставили в конце точку');
  Edit1.Clear;
  exit;
 end;
s:=Edit1.Text; 
//удаление всех букв а, лaтинских и русских
for i:=length(s) downto 1 do
if s[i] in ['A','a','А','а'] then delete(s,i,1);
Edit2.Text:=s;
//поиск перевертышей
n:=length(s);
i:=1;
k:=0;
while i<=n do
if not(s[i] in rz)and((i=1)or (s[i-1] in rz)) then
 begin
  s1:='';
  j:=i;
  while(j<=n)and not(s[j] in rz) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  s2:='';
  for j:=length(s1)downto 1 do
  s2:=s2+s1[j];
  if s2=s1 then k:=k+1;
  i:=i+length(s1);
 end
else i:=i+1;
Edit3.Text:=IntToStr(k);
end;
end.

end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.