Помогите понять суть задачи..., Минизадача Опции

[Volonter]

Привет всем... подталкните меня ... с чего начать данную задачку? А то что-то я недогнал самого условия...

Условие:

Вводится 10 чисел по одному. вычислите сумму квадратов тех чисел, которые попадают в интервал (Lnx, e в степени x) х>1.

Понятно что вводится 10 чисел.... но как записать вот этот интервал (Lnx, e в степени x) и как проверить входит число в этот интервал или нет?

[volvo]

А что,

If (num >= ln(x)) and (num <= e(x)) then ...

уже запрещенная комбинация?

[Volonter]

Посмотрите хоть правильно начал? или галиматью понаписывал....

Код

program ln;
var num,i: integer;
begin
for i:= 1 to 10 do
begin
writeln ('Vvedite ',i,'shislo');
read(num);
if (num >= ln(x)) and (num<= e(x)) then i:=num
end;

Сообщение отредактировано: Volonter - 3.04.2006 19:43

[volvo]

program ln; { Рискуешь с таким названием огрести проблемы при вызове ФУНКЦИИ Ln }
var num,i: integer;
begin
for i:= 1 to 10 do
begin
writeln ('Vvedite ',i,'shislo');
read(num);
if (num >= ln(x)) and (num<= e(x))
  then i:=num { А вот это не пропустит ни один здравомыслящий компилятор }
end;

Кроме того:
1) где у тебя описан Х ?
2) тебе надо искать сумму квадратов - вот и ищи вместо всяких сомнительных присваиваний

У тебя Паскаль есть? Ты думаешь что, тебе здесь будут все время проверять на ошибки? Ничего похожего. Компилируй и смотри, где неправильно. Не сможешь исправить - обращайся, а делать из форума удаленный компилятор НЕ НУЖНО.

[Volonter]

volvo, но всеже спасибо...