→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Помогите пожалуйста програму на паскале переписать на с++ 
Автор Сообщение
Начинающий

Регистрация: 14.12.2010
Сообщения: 1

Репутация: 0 [ ? ]
Сообщение Помогите пожалуйста програму на паскале переписать на с++
TYPE VEC=ARRAY [0..100] OF REAL;
VAR I:INTEGER;
BEGIN
FOR I:=0 TO N DO BEGIN X[I]:=A+I*H; F[I]:=Y(X[I]) END
END;
PROCEDURE CS(N:INTEGER; VAR X,F,C:VEC);
VAR I,J,M:INTEGER; A,B,R:REAL; K:VEC;
BEGIN K[1]:=0.0; C[1]:=0.0;
FOR I:=2 TO N DO BEGIN J:=I-1; M:=J-1;
A:=X[I]-X[J]; B:=[J]-X[M]; R:=2*(A+B)- B*C[J]; C[I]:A/R;
K[I]:=(3.0*((F[I]-F[J])/A-(F[J]-F[M])/B)-B*K[J]/R
END;
C[N]:=K[N];
FOR I:=N-1 DOWNTO2 DO C[I]:=K[I]-C[I]*C[I+1]
END;
PROCEDURE SSP(N:INTEGER; H:REAL;VAR F,C:VEC; VAR S:REAL);
VAR I:INTEGER; R:REAL;
BEGIN S:=(F[0]+F[N])/2; R:=0.0;
FOR I:=1 TO N-1 DO BEGIN S:=S+F[I]; R:=R+C[I+1] END;
S:=(S-R*H*H/6.0)*H
END;
BEGIN
REPEAT WRITE('N,A,B?'); REALN(N,A,B); ; H:=(B-A)/N;
TAB(N,A,H,Y,X,F); CS(H,X,F,C); SSP(N,H,F,C,S);
WRITELN('S=',S)
UNTIL FALSE
END.


14.12.2010 20:30
Профиль Отправить email
Эксперт

Регистрация: 09.12.2010
Сообщения: 80
Откуда: Лисичанск
Языки:

Репутация: 0 [ ? ]
Сообщение Re: Помогите пожалуйста програму на паскале переписать на с++
еси знаешь с++ то пиши ее заново


27.12.2010 9:08
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 


Кто сейчас на конференции

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

Перейти:  
© 2013 «Форум программистов Украины»