Программирование циклических алгоритмов в Delphi7

[Rom1k]

Помогите... напишите плиз программу условия задачи вот:
Подсчитать k - количество цифр в десятичной записи целого неотрицательного числа n.

[Дамир]

Function Count(n:Word):Byte;
Var i:Byte;
Begin
i:=0;
While n<>o Do Begin
inc(i);
n:=n div 10;
End;
Count:=i;
End;

[evg_m]

n:=1;cnt:=1;
while x<n do begin
n:=n*10;
cnt:=cnt+1;
end;

[AlexOg]

помогите пожалуйста!!!!
В соответствии с видом функции, приведенном в файле Варианты.doc, вычислить значения функции y=f(x,a,b) для значений аргумента x, изменяющегося в интервале от xнач до xкон с шагом ∆x, и заданных констант a и b.
Исходные данные для отладки программы (xнач, xкон, ∆x, a, b), выбрать само-стоятельно из области определения функции. Результаты (значения аргумента x и функции y) вывести в текстовую таблицу компонента StringGrid, строки таблицы пронумеровать. Построить график функции y=f(x,a,b), используя компонент Chart.

15. у=ln*ln* (модуль x) +b/a * на корень из x

[Roof]

2 AlexOg - ICQ 364817748 - пиши, сделаю.