УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Оффтоп > Болталка
ОЧЕН СРОСНА (кто знает pascal,)

Страница 1 из 2

Опции темы

Поиск в этой теме

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

ОЧЕН СРОСНА (кто знает pascal,)

08.12.2008, 21:08

anti_sec2

Новичок

Регистрация: 18.09.2005

Сообщений: 19

Провел на форуме:
132303

Репутация: 1

ОЧЕН СРОСНА (кто знает pascal,)

помогите пожалуйста
нужна составит прогу на pascale
Решение СНАУ методом Ньютона
пример x^3+2x^2+3x+5=0 задав точность e=0,001
очен срочно плз help

08.12.2008, 21:50

anti_sec2

Новичок

Регистрация: 18.09.2005

Сообщений: 19

Провел на форуме:
132303

Репутация: 1

plz help

08.12.2008, 22:20

Ch3ck

Познавший АНТИЧАТ

Регистрация: 09.06.2006

Сообщений: 1,359

Провел на форуме:
5301021

Репутация: 1879

_http://forum.sources.ru/index.php?showtopic=252282
и на Сипипи есть...

Код:

      #include "iostream.h"

      #include "math.h"

      #include "stdlib.h"

       

      double f(double x)

      {

          return pow(x, 3)+2*pow(x, 2)+3*x+5;
 
      }

       

      double df(double x)

      {

        return 3*pow(x, 2)+4*x+3;

      }

       

      int main()

      {

        double eps = 0.001;

        double x = 0;

        while( fabs(f(x)) > eps )

        {

          x = x - f(x)/df(x);

        }

        cout << x << endl;

        system("pause");

        return 0;
      }

Последний раз редактировалось Ch3ck; 08.12.2008 в 22:26..

08.12.2008, 22:37

anti_sec2

Новичок

Регистрация: 18.09.2005

Сообщений: 19

Провел на форуме:
132303

Репутация: 1

Спасибо этот код у меня ест помоему это прога для решения x^3+2x^2+3x+5=0
мне нужна на паскале
ср3сл спасибо за хелп
плз помогите на pascale

08.12.2008, 22:43

Cthulchu

Познавший АНТИЧАТ

Регистрация: 22.11.2007

Сообщений: 1,822

Провел на форуме:
4468361

Репутация: 1549

Отправить сообщение для Cthulchu с помощью ICQ

Чувак, а не мог бы ты решить уравнение просто так, руками. А то решение школьное я не помню, а за такое решение, которое я могу предложить - тебе двойку поставят, ибо спалят.
Просто напомни, как оно решается в школе.
ЗЫ
вот, щас паскаль вспоминать буду)))
только, автор, если ты хеллоу ворлд на паскале не делал - обьяснять тебе ничего никто не будет.

08.12.2008, 22:43

~~P3L3NG~~

Banned

Регистрация: 04.06.2008

Сообщений: 402

Провел на форуме:
2267346

Репутация: 719

тож не откажусь

08.12.2008, 22:44

Cthulchu

Познавший АНТИЧАТ

Регистрация: 22.11.2007

Сообщений: 1,822

Провел на форуме:
4468361

Репутация: 1549

Пеленг, ты о чем?
ЗЫ
и что означают эти батарейки под авками???

08.12.2008, 22:46

~~P3L3NG~~

Banned

Регистрация: 04.06.2008

Сообщений: 402

Провел на форуме:
2267346

Репутация: 719

Цитата:

Сообщение от Cthulchu

Пеленг, ты о чем?
ЗЫ
и что означают эти батарейки под авками???

да мне тож такая прога пригодица.
ЗЫ
одна батарейка - 500 постов

08.12.2008, 22:47

anti_sec2

Новичок

Регистрация: 18.09.2005

Сообщений: 19

Провел на форуме:
132303

Репутация: 1

program Newtoon;

uses crt;

const
n = 2;
Nn = (n-1)*n/2;

function Nuton(p: array of double; n: integer; x: array of double; Xx: double):double;
var
s:double;
i:integer;
begin
s:=p[n-1];

for i:=n-2 downto 0 do
begin
s:=p[i]+(Xx-x[i])*s;
end;
Nuton:=s;
end;

procedure Nuton1(x: array of double;y: array of double;n:integer;p: array of double);
var
j,m,k,i,l: integer;

begin
for j:=0 to n-1 do
begin
p[j]:=(y[j+1]-y[j])/(x[j+1]-x[j]);
write(p[j],' ');
end;
m := n-1;
l:=2;

for i:= n-2 downto 1 do
begin
k:=0;
for j:= 1 to i do
begin
p[m]:=(p[m-i]-p[m-i-1])/(x[k+l]-x[k]);
inc(m);
inc(k);
end;
i:=i+1
end;

j:=0;
for i:=1 to n-1 do
begin
y[i]:=p[j];
j:=j+(n-i);
end;
end;

var
x: array [1..5] of double;
y: array [1..n] of double;
i: integer;
p: array [1..n] of double;
z: double;
begin
for i:= 0 to n do
begin
y[i] := 1+2*x[i]+3*x[i]*x[i]+4*x[i]*x[i]*x[i]+5*x[i]*x[i]*x[i]*x[i];
end;
z:= 1.5;
Nuton1(x,y,n,p);
writeln(Nuton(y,n,x,z),' ', 1+2*z+3*z*z+4*z*z*z+5*z*z*z*z);
readln;
end.

выдает ошибку встроке i:=i+1 [Error] Project2.dpr(46): Assignment to FOR-Loop variable 'i'