Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите понять суть задачи...
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Volonter
3.04.2006 19:11
Привет всем... подталкните меня smile.gif... с чего начать данную задачку? А то что-то я недогнал самого условия...

Условие:

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

Понятно что вводится 10 чисел.... но как записать вот этот интервал (Lnx, e в степени x) и как проверить входит число в этот интервал или нет?
volvo
3.04.2006 19:15
А что,
If (num >= ln(x)) and (num <= e(x)) then ...

уже запрещенная комбинация? blink.gif
Volonter
3.04.2006 19:42
Посмотрите хоть правильно начал? или галиматью понаписывал....
Код
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;
volvo
3.04.2006 19:48
Цитата(Volonter @ 3.04.2006 15:42)

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
3.04.2006 19:52
volvo, но всеже спасибо... good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.