Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Турбо Паскаль. Программирование на Pascal
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]
Модераторы: paradise, KMA
  

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... Вот, если его поместить, то получиться понимание русского языка, но говорю, что с ХР помогает только командная строка, или запуск из под Досовских оболочек...  

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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
KMA



Долгожитель

http://exir.ru/cgi-bin/ikonboard/topic.cgi?forum=3&topic=8&start=50 посмотри, может быть здесь есть все, что тебе нужно, или хотя бы часть

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 24 марта 2006 10:27 | 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)

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 1 апр. 2006 1:06 | IP

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]

Форум работает на скрипте © Ikonboard.com