|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
26.05.2013, 23:14 | #1 (permalink) |
Member
Регистрация: 13.04.2013
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите составить программу в Паскале
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)) |
26.05.2013, 23:14 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Решение для вашей проблемы возможно найдется тут Помогите составить программу в Паскале Помогите составить программу в Паскале |
26.05.2013, 23:15 | #2 (permalink) |
Member
Регистрация: 13.04.2013
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Обработать приведенную последовательность.
Пусть вводится последовательность из целых чисел, оканчивающаяся нулем. Найдите наименьшее из всех положительных чисел последовательности. |
27.05.2013, 09:56 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
И Вам здравствовать.
Разрешите приступить? Разрешаете? Благодарю - Вы чрезвычайно любезны! Боже, как пышно! Нашел: Цитата:
Код:
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. А что касается второй задачи, то, несмотря на очаровательно-изысканную форму выражения просьбы, вынужден данную просьбу отклонить, ибо решением программистских задач для второгодников младшей группы яслей для умственно-отсталых, увы, не занимаюсь. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|