Помогите c 3 прогами на Delphi!

[aks]

1. Написать программу построения графика функций:
y=log(x)+30x
2. Строка T состоит из слов равной длинны, разделенных запятыми.
Поменять местами первое и последнее слово.
3. Натуральное число M Называется совершенным, если оно равно сумме всех своих делителей, включая единицу, но исключая себя. Напечатать все совершенные числа, Меньше заданного числа N.

[Stilet]

Наработки есть? Поиском пользуемся?

[aks]

Есть наработка по второй проге только нужно чтобы зн X Вычислялось цыклам!

ST:=StrToInt(Edit1.Text);
fom:=ln(st)+30*st;
Series1.Add(fom,'',clRed);

[начинающий кодер]

так не лучше

procedure vyvod_grafik(i:integer;cht:tchart);
var
x,y:Real;
begin
  x:=1;
  repeat
  y:= ln(x)+30*x;
  cht.Series[i].Add(y,FloatToStr(x),clRed);
  x:=x+0.2;
  until x>=4;

end;

[sheka]

тогда уже так:

    x:=1;while x<=4 do begin
      form1.Series1.AddXY(x,y(x));
      x:=x+0.02;
    end;

так, ведь, сплошной график получается.

[ОДИНОЧЕСТВО В СЕТИ]

3

VAR
  I,N,Summa,k: LONGINT;
  Delitel: INTEGER;
begin readln(k);
  FOR I:=3 TO k DO BEGIN
    Summa:=1;
    FOR Delitel:=2 TO SQRT(I) DO BEGIN
      N:=(I DIV Delitel);
      IF N*Delitel=I THEN
        Summa:=Summa + Delitel + (I DIV Delitel);
    END;
    IF INT(SQRT(I))=SQRT(I) THEN
      Summa:=Summa-INT(SQRT(I));
    IF I=Summa THEN WRITELN(I,' - ',Summa);
  END;
END.

2

function ReplaceWords (s: string): string;
var
  fword: string;
  sword: string;
 
  function doword (last: boolean = False): string;
  var
    i, idx: integer;
  begin
    for I := 1 to length(s) do
      begin
      if s[i] in [' ', ',', '.', '!', '?', ':', '-'] then
        begin
        idx := i;
        if not last then
          break;
        end;
      end;
 
    if not last then
      begin
      Result := copy(s, 1, idx - 1);
      Delete(s, 1, idx - 1);
      end
    else
      begin
      Result := copy(s, idx + 1, length(s) - idx);
      Delete(s, idx + 1, length(s) - idx);
      end;
 
  end;
 
begin
  fword := doword();
  sword := doword(True);
  s := sword + s + fword;
  Result := s;
end;
 
ShowMessage(ReplaceWords('Строка ваша вот она'));

[aks]

что означает

SQRT

и

INT(SQRT(I))

[Stilet]

INT(SQRT(I))

Вернуть целое от корня числа I

[aks]

Все понятно!! Всем спасибо!!!!! тему можно считать закрытой!!