|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
12.10.2021, 13:31 | #1 (permalink) |
Новичок
Регистрация: 12.10.2021
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать программу на Паскаль
|
12.10.2021, 13:31 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Участники нашего форума ранее создавали подобные топики, отсылаю вам ссылки Помогите написать программу, Паскаль паскаль, помогите написать программу Помогите написать программу. Паскаль Помогите написать программу на Паскаль |
12.10.2021, 13:44 | #2 (permalink) |
Новичок
Регистрация: 12.10.2021
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
var x,eps,y,z,S: real;
i:integer; begin write ('x='); readln(x); write ('eps='); readln(eps); i=2; z:=x; S:=z; repeat z:=-exp(ln(x)*(2*i))*((1/i!)+(1/((2i)!)) S:S+z; i:=i+1 until (abs(z)> eps); writeln('S=',S); y:=2-(exp(ln(e)*(exp(ln(-x)*2))))-cos(x); writeln('Y=',y); end. моя формула |
12.10.2021, 15:13 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да... плохи Ваши дела! Мало того, что Вы в Паскале слабоваты, но и математику знаете так... вот именно! Все эти бессмысленные экспоненты от логарифмов, а уж перл типа "ln(e)" и вовсе ни в какие ворота (к Вашему сведению, это ТОЖДЕСТВЕННАЯ ЕДИНИЦА по определению). Прочтите, что ли, вот это моё стародавнее эссе. А что до Паскаля, так он, такой-сякой, ни малейшего представления о факториалах не имеет, так что факториалы извольте программировать сами. Ручками. Равно как и постоянную Эйлера (число e), уж если Вы хотите, за каким-то лешим, её вводить в программу, нужно тоже задавать вручную. Впрочем, повторю, здесь она и нафиг не нужна.
Ну ладно, вот Вам программа, отлаженная и оттестированная. Уж и не знаю, сколь Вам это поможет. Код:
var x,eps,z,a,b,c,S: real; i:integer; function f(t:real):real; begin f:=2.0-Exp(-Sqr(t))-Cos(t); end; begin write ('eps = '); readln(eps); Repeat write ('x = (enter "0" to quit) '); readln(x); if x<>0 then begin i:=1; a:=1/i; b:=1/(2*i); c:=a+b; z:=SQR(x)*c; S:=z; repeat Inc(i); z:=z/c; a:=a/i; b:=b/((2*i-1)*2*i); c:=a+b; z:=-z*SQR(x)*c; S:=S+z; until Abs(z)<eps; Writeln('Result: ',S:0:5,' Pure value: ',f(x):0:5); end; Until x=0; end. извините, не улавливаю. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|