[melman898]

1.Нужно исключить из строки слова, начинающиеся и заканчивающиеся на одну и ту же букву.
Пользователем вводится текст в Memo1, после нажатия кнопки из текста исчезают слова, начинающиеся и заканчивающиеся на "с" оставшиеся появляются в Memo2

2.Определить глобальный тип записи и глобальную файловую переменную.Записать обработчик,создающий пустой файл,обработчик для ввода данных в файл, основной обработчик.
Дано множество пар(отрезок,круг) Найти число таких пар, которыми задан отрезок внутри круга и вывести их номера.

Кто чем может помогите)для меня это пока слишком тяжко сделать

[Janom]

Сам угадаешь на какую задачую это ответ?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  S,M:String;
begin
Memo2.Clear;
M:=Memo1.Text+' ';
S:='';
for i:=1 to Length(M) do
  begin
    if M[i] <> ' ' then
      S:=S+M[i]
    else begin
    if S<>'' then
      if (LowerCase(S[1])<>'с')or(LowerCase(S[Length(S)])<>'с') then
        Memo2.Text:=Memo2.Text+' '+S;
      S:='';
    end;
  end;
end;

[chainik]

Если начало отрезка и его конец лежат внутри круга то
любая точка отрезка лежит внутри круга.


{-------------------------------------------------------------
функция возвращает True если отрезок внутри круга включ границу
иначе-false
Входные данные- коорд начала отрезка, его конца и радиус окруж
Начало коорд- в центре круга!
-------------------------------------------------------------}
function LinInCircle(X1,Y1,X2,Y2,R:extended):boolean;
begin
Result:=(sqrt(X1*X1+Y1*Y1) <=R) and (sqrt(X2*X2+Y2*Y2) <=R)
end;