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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
#1

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

31.10.2010, 20:28. Просмотров 772. Ответов 11
Метки нет (Все метки)

Помогите пожалуйста ))))
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.
 Комментарий модератора 
Используйте теги форматирования кода. И хотябы намекните, что эта чудо-программа делать должна...
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.10.2010, 20:28
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести с Borland Pascal на язык С++ (C++):

Нужно перевести на язык Pascal - C++
Помогите перевести на язык Pascal, заранее благодарен! struct PRICE { char tovar; char mag; int cena; }; ...

Перевести код с языка Pascal на язык C++ - C++
Необходимо переписать данный код на C++. const eps = 1e-4; function pow(x : Real; k : Integer) : Real; var r : Real; begin ...

Перевести код с языка Pascal на язык С++ - C++
var i,n,a:integer; rez:integer; begin Write('Enter digit A = ');readln(a); Write('Enter count = ');readln(n); rez:=1; ...

Borland C 3.1 exe приложение и язык ввода - C++
Созданное в BC 3.1 exe приложение запускаю под XP. Трабл такой - не могу переключить язык ввода для scanf на русский. Куда копать?

Как перевести с Borland Builder C++ на VS С++ - C++
или не это не возможно сделать? //--------------------------------------------------------------------------- #include <stdlib.h> ...

перевести программу из паскаля в с++(для среды Borland C++) - C++
Помогите пожалуйста перевести программу из паскаля в с++(для среды Borland C++) Условие: дан символ С, изображающий цифру или...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Lyohich84
177 / 176 / 67
Регистрация: 30.04.2010
Сообщений: 260
01.11.2010, 06:46 #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;
}
1
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
01.11.2010, 20:48  [ТС] #3
А что нужно написать что бы программа сразу не закрывалась ???
0
silent_1991
Эксперт С++
4964 / 3040 / 149
Регистрация: 11.11.2009
Сообщений: 7,027
Завершенные тесты: 1
01.11.2010, 20:55 #4
перед return 0; написать cin.get();
1
M128K145
Эксперт С++
8288 / 3508 / 143
Регистрация: 03.07.2009
Сообщений: 10,706
02.11.2010, 00:23 #5
http://www.cyberforum.ru/cpp-beginners/thread10807.html
0
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
03.11.2010, 21:56  [ТС] #6
В конце выполнения программы должно выходить 4 значения а1 а2 а3 а4 !!!!!
А они не выходят, хотя ошибок нет (((((
0
Lyohich84
177 / 176 / 67
Регистрация: 30.04.2010
Сообщений: 260
04.11.2010, 10:37 #7
Цитата Сообщение от Tim novicvok Посмотреть сообщение
В конце выполнения программы должно выходить 4 значения а1 а2 а3 а4 !!!!!
А они не выходят, хотя ошибок нет (((((
А это что в 28-ой строке?

C++
1
cout <<a1<<"     "<<a2<<"       "<<a3<<"       "<<a4<<" "<<endl;
0
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
04.11.2010, 12:16  [ТС] #8
Написано, но на экран то не выводит...
Попробуй, сделай компиляцию, такое ощущение что программы и вовсе нет ((((
0
dihlofos
Бродяга
303 / 257 / 17
Регистрация: 27.08.2010
Сообщений: 553
04.11.2010, 12:28 #9
Tim novicvok, вы прикалываетесь?) Всё там работает. Какой у вас компилятор? cin.get(); добавили? Попробуйте перед return 0 написать system("pause");
1
Миниатюры
Перевести с Borland Pascal на язык С++  
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
04.11.2010, 16:09  [ТС] #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.
0
dihlofos
Бродяга
303 / 257 / 17
Регистрация: 27.08.2010
Сообщений: 553
04.11.2010, 16:14 #11
Какая ещё Form1? Вы консольный проект создаёте?
1
Tim novicvok
1 / 1 / 0
Регистрация: 12.10.2010
Сообщений: 43
04.11.2010, 16:54  [ТС] #12
Все получилось !!!!!!!! Спасибо огромное )) А какая разница между консольным и другим ???
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.11.2010, 16:54
Привет! Вот еще темы с ответами:

Перевести на язык С++ - C++
Помогите пожалуйста записать эти строчки на языке С++: int* val = (int*)calloc(1, sizeof(int)); for (j = 0, *val = 1; j &lt;...

сравнительные характеристики систем программирования Turbo Pascal и Borland C - C++
сравнительные характеристики систем программирования Turbo Pascal и Borland С??????

перевести на язык С++ с Паскаля - C++
переведите пожалуйста сумму бесконечного ряда uses crt; var a,s,x:real; i:integer; eps:real; function fct(n:integer):...

ламеру перевести в язык с++ - C++
Задание: проверить, есть ли в массиве несколько элементов с максимальным значением. const n = 7; var x: array of real; ...


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
04.11.2010, 16:54
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru