Помощь - Поиск - Пользователи - Календарь
Полная версия: Циклы!
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
LFTT
Здравствуйте!

Мне нужно сделать эти задачи:

1) Ввести x и вычислить y=cosx+cosx(квадрат)+cosx(куб)+...+cos(30степень)

2)Дана некоторая последовательность С. Найти максимальный номер i, при котором выполнено нижеследующее условие:
С1=1/2!, С2=1/4!, С3=1/6! ... Сi>2.0e-12

Заранее СПАСИБО!

С ув. LFTT.
klem4
1)

  y := 0;
temp := x;

for n := 1 to 30 do begin
y := y + cos(temp);
temp := temp * x;
end;



2)

  fact := 2;
i := 2;

repeat

fact := fact * 2 * i * pred(2 * i);

inc(i);

until (1 / fact < 2E-12);
Гость
Спасибо!
А немоглибы вы написать полный текст программы?
Гость
up
klem4
Твой флуд делу не поможет, все что тебе осталось сделать это описать переменные, добавить ввод исходных данных, и вывод результатов ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.