Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| прогрессия |
| BUGerKola |
 
Сообщение
#1
|
|
Гость  |
люди!! помогите составить
S=-1+2^1/2-3^1/2+4^1/2....-13^1/2+14^1/2. пояснения: запись к примеру 3^1/2 равносильна = корню из 3. И ещё. Ваапще не понимаю. Как определить дату следующего дня+квартал(с использованием перечисляемого типа). Подскажите плиззз +) |
 
|
|
| klem4 |
Сообщение
#2
|
 Perl. Just code it!  Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация:  44  |
1)
i := 1;
t := -1;
s := 0;
repeat
s := s+t*sqrt(i);
t := -t;
inc(i);
until i=15;
Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
   |
|
| volvo |
Сообщение
#3
|
|
Гость |
klem4, ты опять за свое? Ну ведь у каждого вида циклов есть своя область применения!!!
Repeat ... Until прекрасно используется когда НЕизвестно точное число итераций, здесь число итераций известно, по логике используем For ... (минус одна переменная, а можно сделать и минус 2 :yes: ) |
|
|
|
| Guest |
Сообщение
#4
|
|
Гость |
Цитата(volvo @ 26.10.2005 21:06) klem4, ты опять за свое? Ну ведь у каждого вида циклов есть своя область применения!!! Repeat ... Until прекрасно используется когда НЕизвестно точное число итераций, здесь число итераций известно, по логике используем For ... (минус одна переменная, а можно сделать и минус 2 :yes: ) чё т ниче не понял! поподробней и скажите плиз что правильно?а что нет |
|
|
|
| klem4 |
Сообщение
#5
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Да, ты прав :yes:, вот более короткое решение :
for i := 1 to 14 do
if odd(i) then
s := s-sqrt(i)
else s := s+sqrt(i);
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| BUGerKola |
Сообщение
#6
|
|
Гость |
пасиб большое
а как второе решать знает кто-нить? |
|
|
|
| volvo |
Сообщение
#7
|
|
Гость |
Цитата вот более короткое решение :  вот еще более короткое:for i := 1 to 14 do
s := s + (1 - 2 * (i mod 2)) * sqrt(i);
|
|
|
|
| klem4 |
Сообщение
#8
|
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
по поводу второй задачи
пользуйся поиском :yes: Вычисление конечной даты господа модеры, не внести ли вопрос о вычислении даты в ФАК ? Может темку там создать целую про даты? Сообщение отредактировано: Altair - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| BUGerKola |
Сообщение
#9
|
|
Гость |
почему при запуске той программы, которая выложена в том разделе, выскакивает ошибка на FOR.
Мне кажется та прога про другую песню поет. Мне нужно определить дату следующего дня+квартал, с использованием перечисляемого типа. Вот как с этим типом работать я не врублюсь! помогите плз |
|
|
|
| volvo |
Сообщение
#10
|
|
Гость |
To: klem4, в следующий раз давай ссылку более точно...
BUGerKola, первая программа действительно сбойная (собственно поэтому человек к нам и обратился)... Проверь мою: Вычисление даты Если тебе нужна работа с перечислимым типом, можно в принципе ввести тип Months и заменить им то, что есть сейчас... Дальнейшее обсуждение (если понадобится) - в той теме... Сообщение отредактировано: volvo - |
|
|
|
|
|
Текстовая версия | 18.04.2025 20:15 |
