Форум программистов, компьютерный форум CyberForum.ru

Перевести с Borland Pascal на язык С++ - C++

Восстановить пароль Регистрация
 
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
31.10.2010, 20:28     Перевести с Borland Pascal на язык С++ #1
Помогите пожалуйста ))))
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses Crt;
const
  n=16; 
  x=0.5;
  p:array [1..n] of real=(0,0.016,0.025,0.083,0.125,0.16,0.25,0.35,0.416,0.625,0.758,0.866,0.93,0.983,1,1);
var
  a1,a2,a3,a4,m0,m1,m2,m3,t:real;
  i:integer;
  z:array[0..25] of real;
BEGIN
  ClrScr;
  m0:=0; m1:=0; m2:=0; m3:=0;
  for i:=1 to n do
    begin
      z[i]:=(1-p[i])*x;
      m0:=m0+z[i];
      t:=(i-1)*x;
      m1:=m1+z[i]*t;
      m2:=m2+z[i]*t*t;
      m3:=m3+z[i]*t*t*t;
    end;
  a1:=m0-z[1]/2;
  a2:=a1*a1-m1;
  a3:=a2*m0-a1*m1+m2/2;
  a4:=a3*m0-a2*m1+a1*m2/2-m3/6;
  writeln('    a1         a2         a3         a4');
  writeln(a1:8:7,'  ',a2:8:7,'  ',a3:8:7,'  ',a4:8:7);
  readln;
END.
 Комментарий модератора 
Используйте теги форматирования кода. И хотябы намекните, что эта чудо-программа делать должна...
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2010, 20:28     Перевести с Borland Pascal на язык С++
Посмотрите здесь:

Borland C 3.1 exe приложение и язык ввода C++
Как перевести с Borland Builder C++ на VS С++ C++
C++ Перевести на язык С++
C++ ламеру перевести в язык с++
C++ перевести на язык С++ с Паскаля
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Lyohich84
177 / 176 / 67
Регистрация: 30.04.2010
Сообщений: 260
01.11.2010, 06:46     Перевести с Borland Pascal на язык С++ #2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#include "stdafx.h"
#include <iostream>
using namespace std;
 
 
int main(int argc, char* argv[])
{
    const int n=16;
    const double x=0.5;
    double p[n]={0,0.016,0.025,0.083,0.125,0.16,0.25,0.35,0.416,0.625,0.758,0.866,0.93,0.983,1,1};
    double a1,a2,a3,a4,t;
    double m0=0,m1=0,m2=0,m3=0;
    double z[25];
    for (int i=0;i<n;i++)
    {
        z[i]=(1-p[i])*x;
        m0=m0+z[i];
                t=i*x;
                m1=m1+z[i]*t;
                m2=m2+z[i]*t*t;
                m3=m3+z[i]*t*t*t;
    }
    a1=m0-z[0]/2;
    a2=a1*a1-m1;
    a3=a2*m0-a1*m1+m2/2;
    a4=a3*m0-a2*m1+a1*m2/2-m3/6;
    cout <<"    a1         a2           a3          a4"<<endl;
    cout <<a1<<"     "<<a2<<"       "<<a3<<"       "<<a4<<" "<<endl;
    return 0;
}
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
01.11.2010, 20:48  [ТС]     Перевести с Borland Pascal на язык С++ #3
А что нужно написать что бы программа сразу не закрывалась ???
silent_1991
Эксперт C++
4938 / 3014 / 149
Регистрация: 11.11.2009
Сообщений: 7,024
Завершенные тесты: 1
01.11.2010, 20:55     Перевести с Borland Pascal на язык С++ #4
перед return 0; написать cin.get();
M128K145
Эксперт C++
 Аватар для M128K145
8272 / 3491 / 142
Регистрация: 03.07.2009
Сообщений: 10,707
02.11.2010, 00:23     Перевести с Borland Pascal на язык С++ #5
http://www.cyberforum.ru/cpp-beginners/thread10807.html
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
03.11.2010, 21:56  [ТС]     Перевести с Borland Pascal на язык С++ #6
В конце выполнения программы должно выходить 4 значения а1 а2 а3 а4 !!!!!
А они не выходят, хотя ошибок нет (((((
Lyohich84
177 / 176 / 67
Регистрация: 30.04.2010
Сообщений: 260
04.11.2010, 10:37     Перевести с Borland Pascal на язык С++ #7
Цитата Сообщение от Tim novicvok Посмотреть сообщение
В конце выполнения программы должно выходить 4 значения а1 а2 а3 а4 !!!!!
А они не выходят, хотя ошибок нет (((((
А это что в 28-ой строке?

C++
1
cout <<a1<<"     "<<a2<<"       "<<a3<<"       "<<a4<<" "<<endl;
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
04.11.2010, 12:16  [ТС]     Перевести с Borland Pascal на язык С++ #8
Написано, но на экран то не выводит...
Попробуй, сделай компиляцию, такое ощущение что программы и вовсе нет ((((
dihlofos
Бродяга
 Аватар для dihlofos
302 / 256 / 17
Регистрация: 27.08.2010
Сообщений: 553
04.11.2010, 12:28     Перевести с Borland Pascal на язык С++ #9
Tim novicvok, вы прикалываетесь?) Всё там работает. Какой у вас компилятор? cin.get(); добавили? Попробуйте перед return 0 написать system("pause");
Миниатюры
Перевести с Borland Pascal на язык С++  
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
04.11.2010, 16:09  [ТС]     Перевести с Borland Pascal на язык С++ #10
У меня вот что вылезает ((((((
[Linker Error] Unresolved external '_Form1' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\PROJECT1.OBJ
[Linker Error] Unresolved external 'TForm1::' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\PROJECT1.OBJ
А компилирую я через C++ builder 6.
dihlofos
Бродяга
 Аватар для dihlofos
302 / 256 / 17
Регистрация: 27.08.2010
Сообщений: 553
04.11.2010, 16:14     Перевести с Borland Pascal на язык С++ #11
Какая ещё Form1? Вы консольный проект создаёте?
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.11.2010, 16:54     Перевести с Borland Pascal на язык С++
Еще ссылки по теме:

C++ перевести программу из паскаля в с++(для среды Borland C++)
Нужно перевести на язык Pascal C++
C++ Правильно перевести на язык c++

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
04.11.2010, 16:54  [ТС]     Перевести с Borland Pascal на язык С++ #12
Все получилось !!!!!!!! Спасибо огромное )) А какая разница между консольным и другим ???
Yandex
Объявления
04.11.2010, 16:54     Перевести с Borland Pascal на язык С++
Ответ Создать тему
Опции темы

Текущее время: 23:57. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru