Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 26.05.2013, 23:14   #1 (permalink)
denisova
Member
 
Регистрация: 13.04.2013
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите составить программу в Паскале

1) найти обобщенную формулу (или формулы) вычисления;
2) разработать алгоритм вычисления значения переменной S (см. задания) и построить на
экране таблицу ее значений в виде:
s[i] - все промежуточные значения полученные в процессе вычислений.



S = 3 + 4*(1/(2*3*4) – 1/(4*5*6) + 1/(6*7*8) – 1/(8*9*10) +
+ 1/(10*11*12))
Миниатюры
den_1.jpg  
denisova вне форума   Ответить с цитированием

Старый 26.05.2013, 23:14
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Решение для вашей проблемы возможно найдется тут

Помогите составить программу в Паскале
Помогите составить программу в Паскале

Старый 26.05.2013, 23:15   #2 (permalink)
denisova
Member
 
Регистрация: 13.04.2013
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Обработать приведенную последовательность.
Пусть вводится последовательность из целых чисел, оканчивающаяся нулем. Найдите
наименьшее из всех положительных чисел последовательности.
denisova вне форума   Ответить с цитированием
Старый 27.05.2013, 09:56   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

И Вам здравствовать.
Разрешите приступить? Разрешаете? Благодарю - Вы чрезвычайно любезны!
Цитата:
Сообщение от denisova Посмотреть сообщение
1) найти обобщенную формулу (или формулы) вычисления;
Боже, как пышно! Нашел:
den_2.jpg
Цитата:
Сообщение от denisova Посмотреть сообщение
2) разработать алгоритм вычисления значения переменной S (см. задания) и построить на экране таблицу ее значений в виде: s[i] - все промежуточные значения полученные в процессе вычислений.
Разработал. Построил. Вот:
Код:
Var
 i:byte;
 p:Integer;
 S:Real;
Begin
 Writeln('i         S[i]');
 Writeln('-----------------');
 S:=0;
 p:=-1;
 For i:=1 to 5 do
  begin
   p:=-p;
   S:=S+p/(2*i*(2*i+1)*(2*i+2));
   writeln(i,3+4*S:16:8);
  end;
 Readln
End.
den_3.jpg

А что касается второй задачи, то, несмотря на очаровательно-изысканную форму выражения просьбы, вынужден данную просьбу отклонить, ибо решением программистских задач для второгодников младшей группы яслей для умственно-отсталых, увы, не занимаюсь.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:42.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.