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

@Tim novicvok · Регистрация: 12.10.2010

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста ))))

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.

Комментарий модератора

Используйте теги форматирования кода. И хотябы намекните, что эта чудо-программа делать должна...

@Lyohich84 · 01.11.2010, 06:46

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 · 01.11.2010, 20:48 **[ТС]**

А что нужно написать что бы программа сразу не закрывалась ???

silent_1991 · 01.11.2010, 20:55

перед return 0; написать cin.get();

@M128K145 · 02.11.2010, 00:23

https://www.cyberforum.ru/cpp-... 10807.html

@Tim novicvok · 03.11.2010, 21:56 **[ТС]**

В конце выполнения программы должно выходить 4 значения а1 а2 а3 а4 !!!!!
А они не выходят, хотя ошибок нет (((((

@Lyohich84 · 04.11.2010, 10:37

Сообщение от Tim novicvok

В конце выполнения программы должно выходить 4 значения а1 а2 а3 а4 !!!!!
А они не выходят, хотя ошибок нет (((((

А это что в 28-ой строке?

C++
1
cout <<a1<<"     "<<a2<<"       "<<a3<<"       "<<a4<<" "<<endl;

@Tim novicvok · 04.11.2010, 12:16 **[ТС]**

Написано, но на экран то не выводит...
Попробуй, сделай компиляцию, такое ощущение что программы и вовсе нет ((((

@dihlofos · 04.11.2010, 12:28

Tim novicvok, вы прикалываетесь?) Всё там работает. Какой у вас компилятор? cin.get(); добавили? Попробуйте перед return 0 написать system("pause");

@Tim novicvok · 04.11.2010, 16:09 **[ТС]**

У меня вот что вылезает ((((((
[Linker Error] Unresolved external '_Form1' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\PROJECT 1.OBJ
[Linker Error] Unresolved external 'TForm1::' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\PROJECT 1.OBJ
А компилирую я через C++ builder 6.

@dihlofos · 04.11.2010, 16:14

Какая ещё Form1? Вы консольный проект создаёте?

@Tim novicvok · 04.11.2010, 16:54 **[ТС]**

Все получилось !!!!!!!! Спасибо огромное )) А какая разница между консольным и другим ???

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Tim novicvok 1 / 1 / 0 Регистрация: 12.10.2010 Сообщений: 43
	01.11.2010, 20:48 [ТС]
	А что нужно написать что бы программа сразу не закрывалась ??? 0

silent_1991 5058 / 3118 / 271 Регистрация: 11.11.2009 Сообщений: 7,044
	01.11.2010, 20:55
	перед return 0; написать cin.get(); 1

@M128K145 8384 / 3617 / 419 Регистрация: 03.07.2009 Сообщений: 10,709
	02.11.2010, 00:23
	https://www.cyberforum.ru/cpp-... 10807.html 0

@Tim novicvok 1 / 1 / 0 Регистрация: 12.10.2010 Сообщений: 43
	03.11.2010, 21:56 [ТС]
	В конце выполнения программы должно выходить 4 значения а1 а2 а3 а4 !!!!! А они не выходят, хотя ошибок нет ((((( 0

@Tim novicvok 1 / 1 / 0 Регистрация: 12.10.2010 Сообщений: 43
	04.11.2010, 12:16 [ТС]
	Написано, но на экран то не выводит... Попробуй, сделай компиляцию, такое ощущение что программы и вовсе нет (((( 0

@dihlofos Бродяга 315 / 269 / 56 Регистрация: 27.08.2010 Сообщений: 553
	04.11.2010, 12:28
	Tim novicvok, вы прикалываетесь?) Всё там работает. Какой у вас компилятор? cin.get(); добавили? Попробуйте перед return 0 написать system("pause"); Миниатюры 1

@Tim novicvok 1 / 1 / 0 Регистрация: 12.10.2010 Сообщений: 43
	04.11.2010, 16:09 [ТС]
	У меня вот что вылезает (((((( [Linker Error] Unresolved external '_Form1' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\PROJECT 1.OBJ [Linker Error] Unresolved external 'TForm1::' referenced from C:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\PROJECT 1.OBJ А компилирую я через C++ builder 6. 0

@dihlofos Бродяга 315 / 269 / 56 Регистрация: 27.08.2010 Сообщений: 553
	04.11.2010, 16:14
	Какая ещё Form1? Вы консольный проект создаёте? 1

@Tim novicvok 1 / 1 / 0 Регистрация: 12.10.2010 Сообщений: 43
	04.11.2010, 16:54 [ТС]
	Все получилось !!!!!!!! Спасибо огромное )) А какая разница между консольным и другим ??? 0