miss_graffiti
Долгожитель
|
      
тогда и цикл в цикле не нужен.
грубо говоря, так:
x:=5;
S:=0;
prom:=x;
for i:=0 to 20 do
begin
if (i mod 2=0) then //то есть выполняется через раз
prom:=sin(prom)
else
prom:=cos(prom);
S:=S+prom;
end;
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 21 марта 2006 14:28 | IP
|
|
Draconit
Новичок
|
А тогда не можете ли вы обьяснить что это такое: prom. Просто мы наверное это ещё не проходили. А то мне не очень понятен смысл этой программы.
|
Всего сообщений: 27 | Присоединился: март 2006 | Отправлено: 21 марта 2006 15:27 | IP
|
|
miss_graffiti
Долгожитель
|
prom - промежуточная переменная.
можешь ее назвать a,b или даже abc.
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 21 марта 2006 16:02 | IP
|
|
Draconit
Новичок
|
Спасибо большое, я попробую.
|
Всего сообщений: 27 | Присоединился: март 2006 | Отправлено: 21 марта 2006 16:54 | IP
|
|
KMA 
Долгожитель
|
Про русский хочу объсянить, в ХР, толком мне этого не удавалось сделать, он кодировку не понимает, запускать приходиться только с помощью Fara. Вот, а на самом деле должен быть файлик такой помещенный в одну папку с exeшником, называется просто keyrus... Вот, если его поместить, то получиться понимание русского языка, но говорю, что с ХР помогает только командная строка, или запуск из под Досовских оболочек...
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 21 марта 2006 22:49 | IP
|
|
Stokly
Удален
|
Здесь кто-нибудь может мне помочь написать программу на Паскале по матрице
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 23 марта 2006 12:50 | IP
|
|
miss_graffiti
Долгожитель
|
Да, конечно.
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 23 марта 2006 18:51 | IP
|
|
|
|
Draconit
Новичок
|
Я снова хочу Вас побеспокоить с этим примером: sin(x)+cos(sin(x))+sin(cos(sinx))+...+cos(sin(...(cos(sinx)...)); и так 2n раз. Есть какой-нибудь другой способрешения?
|
Всего сообщений: 27 | Присоединился: март 2006 | Отправлено: 31 марта 2006 15:32 | IP
|
|
KMA
Долгожитель
|
Тебе же вроде объяснили как решаются такие задачи, но если не понятно, то повторю...
for i:=1 to n do
begin
buf:=x;
for j:=1 to i do
if j mod 2 = 0
then buf:=cos (buf)
else buf:=sin (buf);
s:=s+buf
end;
Вот и все... Такие задачи решаются единообразно, и кроме как таких решений рациональнее не найти... Не знаю, что ты хочешь???
(Сообщение отредактировал KMA 1 апр. 2006 1:10)
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 1 апр. 2006 1:06 | IP
|
|
Форум
Турбо Паскаль. Программирование на Pascal
