Программирование разветвляющегося вычислительного процесса и Программирование циклического процесса, Помогите плз с задачами!!!))) Опции

[alfa64]

Помогите пожалуйста решить задачи)))

1.Задана периодическая функция f(x), период которой равен 2. На отрезке[-1;1] функция f(x) совпадает с функцией sqr(x)+1. Вычислить значение f(x) в точке x0.


2.Рассмотреть решение предложенной задачи с использованием всех трех видов циклов. Отладить программу с наиболее рациональным вариантом цикла. Обосновать выбор.
Найти сумму первых k чисел последовательности Фибоначи. Последовательность определяется законом: F0=F1=1; Fn=Fn-1+Fn-2 для n>= 2.

Заранее благодарен.))))

Сообщение отредактировано: alfa64 - 22.09.2007 0:38

[мисс_граффити]

По второй поищи - было на форуме что-то похожее.

По первой:

Код

пока х0<-1
  х0:=x0+2;
пока х0>1
  x0:=x0-2;
результат:=sqr(x0)+1

за счет симметричности отрезка можно обойтись одним циклом и смотреть по модулю.
то есть цикл "пока модуль(х0)>1", а внутри него - условие, определяющее, прибавлять 2 или отнимать.
или это задание чисто на ветвление, циклами пользоваться нельзя?

[alfa64]

первая задача чисто на ветвление,циклами нельзя пользоваться.Спасибо за помощь.)))

Сообщение отредактировано: alfa64 - 22.09.2007 1:57

[мисс_граффити]

допустим, у нас число вида X.Y
Период функции равен 2, то есть f(X.Y)=f((X-2).Y)
Соответственно, если Х - четное, f(X.Y)=f(0.Y)
Если Х - нечетное, то получаем f(X.Y)=f(0.Y-1)
Функция четная, f(X)=f(-X)
Поэтому получается что-то типа такого:

if odd(trunc(x0)) then
  x0:=abs(frac(x0))-1
else
  x0:=abs(frac(x0));
fx:=sqr(x0)+1;

Набирала прямо здесь, не тестировала.

[alfa64]

Большое спасибо за помощь Но у меня че то не хочет набиратся вот эта строчка fx:=sqr(x0)+1 а точнее fx у меня не задается че то )

[Артемий]

а точнее fx у меня не задается че то )

fx и x0 должны быть real..

Добавлено через 1 мин.
если конечно я правильно понял проблему..

[alfa64]

fx и x0 должны быть real..

Я так и ввожу токо fx подчеркивается красным цветом как ошибка.)))Че то я ее не догоняю как задать правильно))).

Сообщение отредактировано: alfa64 - 22.09.2007 23:34

[volvo]

не догоняю как задать правильно

Показать полный исходник, а не надеяться на присутствие телепатов на форуме...

[alfa64]

Все спасибо за помощь все сделал.))) просто прога подглючила поэтому задать fx не мог))).