Delphi 7. Условный оператор

[Юрий2009]

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

[IT-man]

if sqr(x1)+sqr(y1)> sqr(x2)+sqr(y2) then writeln('B') 
 else writeln('A');

[HoLToFF]

Сообщение от IT-man

if sqr(x1)+sqr(y1)> sqr(x2)+sqr(y2) then writeln('B') 
 else writeln('A');

Вернее будет вот так

if (sqr(x1)+sqr(y1))> (sqr(x2)+sqr(y2)) then writeln('B')
 else writeln('A');

[MalCer]

c1 := sqrt(sqr(x1)+sqr(y1));
c2 := sqrt(sqr(x2)+sqr(y2));
if (c1 < c2) then 
 ShowMessage('первая ближе') 
else
 ShowMessage('вторая ближе');

[__STDC__]

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

c1 := sqrt(sqr(x1)+sqr(y1));
c2 := sqrt(sqr(x2)+sqr(y2));
if (c1 < c2) then 
 ShowMessage('первая ближе') 
else
 ShowMessage('вторая ближе');

хм... я что-то не понимаю?... http://programmersforum.ru/showthread.php?t=47289

[HoLToFF]

Плагиат, чего не понятного та

[worshewitin]

а как применить этот цикл для редактирования текста?

[worshewitin]

в окне формы записывается строка текста. удалите в строке все одинаковые символы.

[__STDC__]

тут циклов нету, но это легко реализовать, используя множество и функцию для работы со строками Delete... проверять для каждого символа в строке есть ли он в мн-ве и если нету - добавлять, а если есть - вырезать из строки..
может так...

var
  i:integer;
  str:string;
  symb:set of char;
begin
  symb := [];
  str := Edit1.Text;
  i := 0;
  while (i <= length(str)) do
    if (str[i] in symb) then
      Delete(str,i,1)
    else begin
      symb := symb+[str[i]];
      inc(i);
    end;
  Edit1.Text := str;
end;

или так покрасивее наверное

var
  i:integer;
  str:string;
  symb:set of char;
begin
  symb := [];
  str := Edit1.Text;
  for i:=length(str) downto 1 do
    if (str[i] in symb) then
      Delete(str,i,1)
    else
      symb := symb+[str[i]];
  Edit1.Text := str;
end;

[MalCer]

Ребят, а как же еще объяснить человеку, который создает по многу одних и тех же тем!!! Это же и есть правильный ответ!!!