Помощь - Поиск - Пользователи - Календарь
Полная версия: Программирование разветвляющегося вычислительного процесса и Программирование циклического процесса
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.

smile.gif Заранее благодарен.))))
мисс_граффити
По второй поищи - было на форуме что-то похожее.

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

за счет симметричности отрезка можно обойтись одним циклом и смотреть по модулю.
то есть цикл "пока модуль(х0)>1", а внутри него - условие, определяющее, прибавлять 2 или отнимать.
или это задание чисто на ветвление, циклами пользоваться нельзя?
alfa64
первая задача чисто на ветвление,циклами нельзя пользоваться.Спасибо за помощь.)))
мисс_граффити
допустим, у нас число вида 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
Большое спасибо за помощь smile.gif Но у меня че то не хочет набиратся вот эта строчка fx:=sqr(x0)+1 а точнее fx у меня не задается че то )
Артемий
Цитата
а точнее fx у меня не задается че то )

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

Добавлено через 1 мин.
если конечно я правильно понял проблему..
alfa64
smile.gif fx и x0 должны быть real..

Я так и ввожу токо fx подчеркивается красным цветом как ошибка.)))Че то я ее не догоняю как задать правильно))).
volvo
Цитата
не догоняю как задать правильно
Показать полный исходник, а не надеяться на присутствие телепатов на форуме...
alfa64
Все спасибо за помощь все сделал.))) smile.gif просто прога подглючила поэтому задать fx не мог))). rolleyes.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.