Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Циклы!

Автор: LFTT 24.12.2006 17:50

Здравствуйте!

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

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 24.12.2006 18:15

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);

Автор: Гость 24.12.2006 18:22

Спасибо!
А немоглибы вы написать полный текст программы?

Автор: Гость 24.12.2006 20:59

up

Автор: klem4 24.12.2006 21:05

Твой флуд делу не поможет, все что тебе осталось сделать это описать переменные, добавить ввод исходных данных, и вывод результатов ...