Помогите пожалуйста с задачками.

arhan1 · 20.09.2009

1.Дано натуральное число n(n 100), определяющее возраст человека (в годах). Дать для этого числа наименование " год ", " года " или " лет ": например, один год, 23 года, 45 лет и т.д.
2.Дано вещественное число А. Определить количество цифр после десятичной запятой у данного числа.
3.Дан массив А(10). Найти элементы, абсолютная величина которых больше 5.

Zato · 23.11.2009

1- преобразовываем переменную в текст, берём крайний справа символ, а дальше через Select проставляем значения.

2-преобразовываем число в текст, дальше можно просто Split ом разбить число на две части и через Len посмотреть размер. А можно просто перебирать число через Mid.

3-ну это тупо перебор типа:

Код:

for i=0 to 10
if a(i)>5 then msgbox(str(i)+" больше.")
next

hosm · 23.11.2009

Zato сказал(а):
1- преобразовываем переменную в текст, берём крайний справа символ, а дальше через Select проставляем значения.

уже обсуждали как-то похожее для "наименования", в ветке по лотусу. надо учитывать диапазон 11-19 лет, остальное проверять последнюю цифру 1 - год, 2-4 - года, остальное - лет.
3.

arhan1 сказал(а):
Найти элементы, абсолютная величина которых больше 5

насколько я знаю, абсолютная величина - это модуль числа

т.е. либо abs(a(i))>5 (если есть такая ф-ция), либо проверка выполнения условия (a(i)>5) OR (a(i)<-5)