Циклы и математика... Опции

[Перун]

Привет всем.
Завтра зачет по информатике, каждому дали индив. задания, не знаю как их написать.
Первое задание цикл, а второе не пойму...
Помогите плиззз!!!


1)
Вычислить наибольшее целое число а, удовлетвор. условию.
-4a + 81№a + 3>=0
№ - корень из a

2)
Определить приближ. значение при х, лежащем в интервале (-R,R)
Е в степени -x в квадрате = 1 - х в квадрате / 1! + х в 4-ой степени / 2! - ...+(-1) в N-ой степени * (х в квадрате*N) / N!
(R = бесконечность)

[volvo]

Перун, насчет второй задачи - здесь был? FAQ: Разложение функции в ряд

Тут же есть почти то, что тебе надо...

[Перун]

На счет второй, теперь я разобрался.
А первая прописывается с помощью: while и в конце цикла until?

[klem4]

А помоему это кваджратное уравнение, только с условиме что корни должны быть не отрицательные (из-за квадратного корня)

Сообщение отредактировано: klem4 - 30.12.2005 13:12

[Перун]

Так что получается, если это квадратное ур-ие, то и писать его через дискриминант.
И как это будет выглядеть?

[volvo]

Во-первых, в FAQ-е было и это ("Решение уравнений различных степеней"), а потом, если тебе дали задание на сумму ряда, то неужели ты с квадратным уравнением, не можешь разобраться? Ты где учишься?

[Перун]

-4a + 81№a + 3>=0, если избавиться от корня, то -4a в квадрате + 81а + 9 >=0

Var a,b:Real;
Discr:Real;
x1,x2:Real;
Begin
Writeln();
readln(a,b);
If (a=0) and (b=0) then
begin
Write();
Writeln();
end
else
begin
Discr:= b*b - 4*a*c;
If Discr>0 then
begin
x1:=(-b + sqrt(Discr))/(2*a);
x2:= (-b - sqrt(Discr))/(2*a);
Writeln();
end
else
If Discr = 0 then
begin
x1:= -b/(2*a);
Writeln();
end
End.

И не надо язвить на счет моих знаний Паскаля, я его изучаю всего три месяца...
Лучше подскажите, что я делаю неправильно.

Для выделения кода у нас существуют специальный тэг [pascodе]

Сообщение отредактировано: GoodWind - 31.12.2005 0:39