Ребята помогите пожалуйста с решением задачек в Delphi

[Mad_Cat]

Дано символьний рядок S. Отримати символи Sn/2+1…. Sn , S1…. Sn/2 , тобто поміняти місцями першу половину тексту з другою.

var k:integer;s:string;
begin
s:=edit1.text;
k:=Length(s) div 2
s:=s+Copy(s,1,k);
delete(s,1,k);
edit2.text:=s;
end;

[Marika Polskyh]

Дано символьная строка S. Распечатать позиции всех точек.

[ACE Valery]

Marika Polskyh, не лезьте в чужую тему со своими заданиями. Быстрее их от этого не решат, а штраф можете получить.

[Marika Polskyh]

тема по-моему называется "Ребята помогите пожалуйста с решением задачек в Delphi" я вроде б тоже задачки кидаю
илил только автор может тут писать?

[Kate23]

Помогите решить!!!
Организовать разветвляющийся процесс для решения следующей задачи.

Заданы радиус круга R и сторона квадрата А. Определить, можно ли вписать квадрат в круг.

[Mad_Cat]

Заданы радиус круга R и сторона квадрата А. Определить, можно ли вписать квадрат в круг.

if a/2>R then {можно}
else {нельзя}

[Marika Polskyh]

Дано символьная строка S. Распечатать позиции всех точек. плизззз
Mad_Cat я знаю ты поможешь

[999]

Ребят,помогите пожалуйста!На плоскости ХОУ задана своими координатами точка А. Указать, где она расположена (на какой оси или в каком координатном угле).
В чем тут ошибка?)
var
x,y:real;
begin
x:=StrtoFloat(Edit1.Text);
y:=StrtoFloat(Edit2.Text);
if x=0 and y=0 then Edit3.Text:=('В начале координат')
else if x=0 and y<>0 then Edit3.Text:=('На оси Y')
else if x<>0 and y=0 then Edit3.Text:=('На оси X')
else if x>0 and y>0 then Edit3.Text:=('I четверть')
else if x<0 and y>0 then Edit3.Text:=('II четверть')
else if x<0 and y<0 then Edit3.Text:=('III четверть')
else Edit3.Text:=('IV четверть');

end;
end.

[Serge_Bliznykov]

Нечего тему превращать в свалку всех возможных тем/вопросов/задач!

Один автор - одна задача/проблема - одна тема.
И точка.

ТЕМА ЗАКРЫТА.

Модератор.