Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.06.2010, 09:51   #1
Hallucinogin
Пользователь
 
Регистрация: 31.05.2010
Сообщений: 21
По умолчанию турбо паскаль

Помогите пожалуйста сделать блок-схему к задаче, а то у меня это не получается совсем...

Вычислить:
Y= Cos(1+Cos(2+…+Cos(39+Cos40)…))


Код:
program recurs;
var
y : real;
function rec_func(idx : integer) : real;
begin
  if idx <>40 then 
      rec_func := idx + cos (rec_func(idx+1))
  else
      rec_func := 40;
end;
begin
     y:= rec_func(0);
writeln (`Otvet = `, y:6:6);
end.

Последний раз редактировалось Stilet; 11.06.2010 в 10:29.
Hallucinogin вне форума Ответить с цитированием
Старый 11.06.2010, 16:12   #2
RUSt88
Участник клуба
 
Регистрация: 29.12.2009
Сообщений: 1,166
По умолчанию

функйия создается отдельной блок схемой, сама программа тоде отдельной, должно получиться 2 блоксхемы

могу нарисовать в пайнте за символическое вознаграждение
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть]
RUSt88 вне форума Ответить с цитированием
Старый 11.06.2010, 22:38   #3
Hallucinogin
Пользователь
 
Регистрация: 31.05.2010
Сообщений: 21
По умолчанию

поздно((
я здала семместровую без блок-схемы..
Hallucinogin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
турбо паскаль RenFAn Фриланс 10 18.03.2010 09:27
турбо паскаль glavad Помощь студентам 2 14.12.2009 21:36
Турбо Паскаль Jondeer Помощь студентам 3 28.10.2007 12:42
Турбо Паскаль Jondeer Помощь студентам 5 27.10.2007 17:19