Задачка, Если не угадал с разделом, подкорректируйте, плз |
Задачка, Если не угадал с разделом, подкорректируйте, плз |
Dec 30 2010, 19:59
Сообщение
#41
|
|
Добрый Дух Гедеона Группа: Admin Сообщений: 47627 Регистрация: 4 Sep 2004 Вставить ник Цитата Из: Москва, Фили Пользователь №: 514 |
Имелась в виду абсолютно любая вещественная степень. странно почему не считает...да и ладно..её наверно сама препод тока знает как делать Скинь сюда свой текст программы. -------------------- Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
--- О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома. --- Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор) --- Как это возможно, что невозможное может быть не только возможно, но и неизбежно? |
|
|
Dec 30 2010, 20:42
Сообщение
#42
|
|
Обреченный мечтать Группа: Indoril-Common + WoT-Club Сообщений: 14891 Регистрация: 24 Nov 2003 Вставить ник Цитата Из: Владивосток Пользователь №: 49 Игра: TESO Персонаж:OLeary |
program z1;
var x,m,i:integer; ci,ci1,sum,pn1:real; begin writeln ('vvedite x'); read(x); writeln ('vvedite m'); read (m); pn1:=exp(m*ln(1+x)); begin i:=1; ci:=1; sum:=1; while i<=m do begin ci1:=ci*(m-i+1.0)/(i+1.0-1.0); sum :=sum*ci1*exp(x*ln(i)); ci:=ci1; i:=i+1; end; pn1:=sum; writeln (pn1:3:3); writeln (sum:3:3); end; end. -------------------- Величие - это ответственность.
|
|
|
Dec 30 2010, 21:01
Сообщение
#43
|
|
Добрый Дух Гедеона Группа: Admin Сообщений: 47627 Регистрация: 4 Sep 2004 Вставить ник Цитата Из: Москва, Фили Пользователь №: 514 |
program z1;
var x,m,i:integer; ci,ci1,sum,pn1:real; begin writeln ('vvedite x'); read(x); writeln ('vvedite m'); read (m); pn1:=exp(m*ln(1+x)); begin i:=1; ci:=1; sum:=1; while i<=m do begin ci1:=ci*(m-i+1.0)/(i+1.0-1.0); sum :=sum + ci1*exp(i*ln(x)); ci:=ci1; i:=i+1; end; pn1:=sum; writeln (pn1:3:3); writeln (sum:3:3); end; end. Я там выше где-то вместо i*ln(x) писал m*ln(x) - тоже бага. Ты вроде ее заметила, но вписала вместо нее свою. ЗЫ. Жуть Сообщение отредактировал iMagus - Dec 30 2010, 21:02 -------------------- Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
--- О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома. --- Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор) --- Как это возможно, что невозможное может быть не только возможно, но и неизбежно? |
|
|
Dec 31 2010, 9:41
Сообщение
#44
|
|
Обреченный мечтать Группа: Indoril-Common + WoT-Club Сообщений: 14891 Регистрация: 24 Nov 2003 Вставить ник Цитата Из: Владивосток Пользователь №: 49 Игра: TESO Персонаж:OLeary |
вот где ты выделил я описалась просто в проге тоже +......
-------------------- Величие - это ответственность.
|
|
|
Dec 31 2010, 12:16
Сообщение
#45
|
|
Добрый Дух Гедеона Группа: Admin Сообщений: 47627 Регистрация: 4 Sep 2004 Вставить ник Цитата Из: Москва, Фили Пользователь №: 514 |
в проге тоже + Там не только в плюсе дело. Тоже описалась? Тогда (не помню, как в Паскале приведение типов делается) попробуй написать вместо i * ln(x): real(i)*ln(x) и в строке выше вместо i и m - real(i) и real(m) -------------------- Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
--- О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома. --- Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор) --- Как это возможно, что невозможное может быть не только возможно, но и неизбежно? |
|
|
Dec 31 2010, 14:44
Сообщение
#46
|
|
Обреченный мечтать Группа: Indoril-Common + WoT-Club Сообщений: 14891 Регистрация: 24 Nov 2003 Вставить ник Цитата Из: Владивосток Пользователь №: 49 Игра: TESO Персонаж:OLeary |
Там не только в плюсе дело. Тоже описалась? Тогда (не помню, как в Паскале приведение типов делается) попробуй написать вместо i * ln(x): real(i)*ln(x) и в строке выше вместо i и m - real(i) и real(m) в проге тоже +...а real(i) тож не вариант.. -------------------- Величие - это ответственность.
|
|
|
Dec 31 2010, 16:33
Сообщение
#47
|
|
Добрый Дух Гедеона Группа: Admin Сообщений: 47627 Регистрация: 4 Sep 2004 Вставить ник Цитата Из: Москва, Фили Пользователь №: 514 |
-------------------- Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
--- О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома. --- Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор) --- Как это возможно, что невозможное может быть не только возможно, но и неизбежно? |
|
|
Jan 1 2011, 10:37
Сообщение
#48
|
|
Обреченный мечтать Группа: Indoril-Common + WoT-Club Сообщений: 14891 Регистрация: 24 Nov 2003 Вставить ник Цитата Из: Владивосток Пользователь №: 49 Игра: TESO Персонаж:OLeary |
бесполезно..
-------------------- Величие - это ответственность.
|
|
|
Jan 1 2011, 12:23
Сообщение
#49
|
|
Добрый Дух Гедеона Группа: Admin Сообщений: 47627 Регистрация: 4 Sep 2004 Вставить ник Цитата Из: Москва, Фили Пользователь №: 514 |
Я только что не поленился, нашел где скачать Паскаль (фри паскаль 2.4.0), скачал его, установил, и выполнил с помощью него программу из поста номер 43 (твоя программа с моей правкой). Ни единого символа в ней не менял. Все работает.
Сообщение отредактировал iMagus - Jan 1 2011, 12:25 -------------------- Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
--- О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома. --- Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор) --- Как это возможно, что невозможное может быть не только возможно, но и неизбежно? |
|
|
Jan 1 2011, 15:37
Сообщение
#50
|
|
Обреченный мечтать Группа: Indoril-Common + WoT-Club Сообщений: 14891 Регистрация: 24 Nov 2003 Вставить ник Цитата Из: Владивосток Пользователь №: 49 Игра: TESO Персонаж:OLeary |
program z1;
var x,m,i:integer; ci,ci1,sum,pn1:real; begin writeln ('vvedite x'); read(x); writeln ('vvedite m'); read (m); pn1:=exp(m*ln(1+x)); if x=0 then begin pn1:=1; end; i:=1; ci:=1; sum:=1; while i<=m do begin ci1:=ci*(m-i+1.0)/(i+1.0-1.0); sum :=sum*ci1*exp(i*ln(x)); ci:=ci1; i:=i+1; end; pn1:=sum; writeln (pn1:3:3); writeln (sum:3:3); end. я ошибку нашла в exp(x*ln(i)) и ещё когда всё исправила он ошибку выдает типа логарифм не может быть равен 0.... когда я ввожу x=0...что с этим делать? и у меня turbo pascal 7.0// -------------------- Величие - это ответственность.
|
|
|
Jan 1 2011, 16:16
Сообщение
#51
|
|
Добрый Дух Гедеона Группа: Admin Сообщений: 47627 Регистрация: 4 Sep 2004 Вставить ник Цитата Из: Москва, Фили Пользователь №: 514 |
я ошибку нашла в exp(x*ln(i)) и ещё когда всё исправила он ошибку выдает типа логарифм не может быть равен 0.... когда я ввожу x=0...что с этим делать? и у меня turbo pascal 7.0// Я про это уже писал выше (см. посты 24 и 28). Тебе поможет проверка: если x=0, то результат = 1 -------------------- Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
--- О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома. --- Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор) --- Как это возможно, что невозможное может быть не только возможно, но и неизбежно? |
|
|
Jan 1 2011, 16:53
Сообщение
#52
|
|
Обреченный мечтать Группа: Indoril-Common + WoT-Club Сообщений: 14891 Регистрация: 24 Nov 2003 Вставить ник Цитата Из: Владивосток Пользователь №: 49 Игра: TESO Персонаж:OLeary |
перед sum поставить if чтоли?
-------------------- Величие - это ответственность.
|
|
|
Jan 2 2011, 10:33
Сообщение
#53
|
|
Обреченный мечтать Группа: Indoril-Common + WoT-Club Сообщений: 14891 Регистрация: 24 Nov 2003 Вставить ник Цитата Из: Владивосток Пользователь №: 49 Игра: TESO Персонаж:OLeary |
Ну вы тут и развели...) пока я тут службу служил)
-------------------- Величие - это ответственность.
|
|
|
Jan 3 2011, 17:45
Сообщение
#54
|
|
Обреченный мечтать Группа: Indoril-Common + WoT-Club Сообщений: 14891 Регистрация: 24 Nov 2003 Вставить ник Цитата Из: Владивосток Пользователь №: 49 Игра: TESO Персонаж:OLeary |
я ввела if перед sum типа что sum =1 ошибку выдает при x=0...помоги пожалста)))последний штрих остался...)))!
-------------------- Величие - это ответственность.
|
|
|
Jan 3 2011, 18:22
Сообщение
#55
|
|
Добрый Дух Гедеона Группа: Admin Сообщений: 47627 Регистрация: 4 Sep 2004 Вставить ник Цитата Из: Москва, Фили Пользователь №: 514 |
Код program z1; function calc_binom_directly( x: real; m: integer ): real; begin calc_binom_directly := exp( m * ln(1+x) ); end; function calc_binom_series( x: real; m: integer ): real; var i: integer; ci, ci1, sum: real; begin if x = 0 then begin calc_binom_series := 1; exit; end; i := 1; ci := 1; sum := 1; while i <= m do begin ci1 := ci * (m-i+1.0)/i; sum := sum + ci1 * exp(i*ln(x)); ci := ci1; i := i + 1 end; calc_binom_series := sum; end; var x: real; m: integer; begin writeln('Vvedite'); write('x: '); read( x ); write('m: '); read( m ); writeln('Rezultat'); writeln( ' (1+x)^m: ', calc_binom_directly( x, m ):3:3 ); writeln( 'sum(ci*x^i): ', calc_binom_series( x, m ):3:3 ); end. Закрыто =\ -------------------- Если большинство привержено ошибочным принципам и предпочитает недостойных кандидатов, то не существует иного лекарства, кроме как попытаться изменить их умонастроения, излагая более разумные принципы и рекомендуя более достойных людей. Меньшинство никогда не сможет добиться устойчивого успеха другими средствами. (Мизес Людвиг)
--- О будущем: пищевые брикетики, инкубаторы, общественный транспорт, мировое правительство, прижизненное изменение собственного генома. --- Эксперт - это человек, который в узкой области допустил все возможные ошибки. (Нильс Бор) --- Как это возможно, что невозможное может быть не только возможно, но и неизбежно? |
|
|
Текстовая версия | Сейчас: 14th June 2024 - 15:14 |