[melman898]

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

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

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

[Janom]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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;