IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Вычисление последовательности
perfect
сообщение 8.01.2005 14:30
Сообщение #1


Гость






люди, понимаете, у меня экзамен по программированию 16 января и нам дали список задач, как говорит мой знакомый программист на 4 строчки, но я не могу решить 14 из них.Подскажите, плиз, где здесь можно обратиться с помощью написать код. К примеру, одна из задач:"Разработать программу , вычисляющую первые m членов последовательности, заданной её n-ым членом an=1/(n+4)" У нас язык Паскаль
 К началу страницы 
+ Ответить 
perfect
сообщение 8.01.2005 14:31
Сообщение #2


Гость






ладно, очевидно я не туда попала
 К началу страницы 
+ Ответить 
volvo
сообщение 8.01.2005 14:41
Сообщение #3


Гость






perfect
Цитата
ладно, очевидно я не туда попала

Между постами 1 (!!!!) минута. Что вы хотели получить? Готовое решение за 30 секунд?
 К началу страницы 
+ Ответить 
virt
сообщение 8.01.2005 19:36
Сообщение #4


Знаток
****

Группа: Пользователи
Сообщений: 419
Пол: Мужской

Репутация: -  6  +


Код
read(m);
for i:=1 to m do write(1/(i+4):0:3,' ');


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 8.01.2005 23:08
Сообщение #5


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Судя по всему человек вообще слабо въезжает (без обид) так что лучше полностью я думаю smile.gif

Код
uses crt;
var
  m,n : integer;
   An : extended;
Begin
  clrscr;
  write('Input M ');readln(m);
  writeln;
  for n:=1 to m do
   begin
      An:=1/(n+4);
      writeln('a[',n,']=',An:1:4);
   end;
   readln;
end.


ЗЫ
давай остальные задачи, у нас ребята на форуме бравые, в миг размахаем smile.gif)

Сообщение отредактировано: klem4 - 8.01.2005 23:13


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 10.01.2005 16:28
Сообщение #6


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Зря вы ей дали готовое решение, она бы и сама решила... <_<


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
perfect
сообщение 10.01.2005 17:50
Сообщение #7


Гость






спасибо, ребята, я просто тогда не в настроении была, проблемы и все дела!мне уже дали все задачи!!!!
 К началу страницы 
+ Ответить 
Altair
сообщение 10.01.2005 18:11
Сообщение #8


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
мне уже дали все задачи!!!!

Подумай сама- тот, кто это сделал лишил тебя удовольствие самой решить эти задачи.... совет - выкини то, что тебе дали и реши сама, я знаю что ты сама можешь все решить!


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.06.2025 15:00
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"