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

Форум программистов: 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 ] 


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

Зарегистрированные пользователи: Google [Bot]


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

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