![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Саня |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Реальное имя: Sasha Репутация: ![]() ![]() ![]() |
Всех поздравляю с наступившим Новым годом!
Помогите пожалуйста, поискал в ФАКЕ вроде ничего подобного нет. подскажите как решить эту задачу! Вычислить значение выражения: cos(1+cos(3+cos(5+…+cos(23+cos(25))…))) У меня ещё один вопросик, как записать в Паскале след-ю формулу(она прикреплена) Прикрепленные файлы ![]() |
![]() ![]() |
APAL |
![]()
Сообщение
#2
|
![]() Смотрю... ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: ![]() ![]() ![]() |
Var Res : Real;
Procedure FFF(aa);
Begin
If aa>=3 then
Begin
Res:=aa-2+cos(Res);
FFF(aa-2);
End
else
Res:=cos(Res);
End;
Begin
Res:=25;
FFF(Res);
Writeln(Res:6:4);
End.
Так как не даны заведомо правильные входные и выходные данные - результат требует проверки. Не думаю что это лучший вариант, на на лучшее в половине 5-го утра мозги не варят... бессонница, млин... ![]() -------------------- |
volvo |
![]()
Сообщение
#3
|
Гость ![]() |
Я бы все-таки привел это к "хвостовой рекурсии":
function f(x: real): real;
begin
if x > 25 then f := 0
else f := cos(x + f(x + 2));
end;
begin
writeln(f(1):10:5);
end.
|
klem4 |
![]()
Сообщение
#4
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
вариант с использованием цикла :
uses crt;
const n : integer = 25;
var
s : single;
a : integer;
begin
clrscr;
s := cos(n);
a := 23;
while(a >= 1) do begin
s := cos(a + s);
dec(a,2);
end;
writeln(s:6:5);
readln;
end.
Сообщение отредактировано: klem4 - 7.01.2006 15:03 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
![]()
Сообщение
#5
|
Гость ![]() |
klem4, а если подумать?
Может, while(a >= 1) do begin
![]() |
klem4 |
![]()
Сообщение
#6
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
хаха, тока проснулся я
![]() исправил Сообщение отредактировано: klem4 - 7.01.2006 15:03 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
![]() ![]() |
![]() |
Текстовая версия | 27.07.2025 4:44 |