Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Помогите понять суть задачи...
Автор: Volonter 3.04.2006 19:11
Привет всем... подталкните меня 
... с чего начать данную задачку? А то что-то я недогнал самого условия...
Условие:
Вводится 10 чисел по одному. вычислите сумму квадратов тех чисел, которые попадают в интервал (Lnx, e в степени x) х>1.
Понятно что вводится 10 чисел.... но как записать вот этот интервал (Lnx, e в степени x) и как проверить входит число в этот интервал или нет?
Автор: volvo 3.04.2006 19:15
А что,
If (num >= ln(x)) and (num <= e(x)) then ...
уже запрещенная комбинация?
Автор: 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;
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, но всеже спасибо... 