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

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

Войти
Регистрация
Восстановить пароль
 
vladuxa
0 / 0 / 0
Регистрация: 22.03.2013
Сообщений: 24
#1

Перевод из pascal в Visual C++ - C++

17.03.2014, 14:26. Просмотров 218. Ответов 1
Метки нет (Все метки)

Добрый день!
Не могли бы вы помочь мне в переводе с Pascal в Visual C++? Очень нужна ваша помощь
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
Program TAB;
users crt;
var a,b,h1,h2,e,y,y0,y1,y2,t,x:real;
begin
clrscr;
writeln('Задайте концы отрезка субтабулирования:');
readln(a,b);
writeln('Новый шаг таблицы:');
readln(h2);
writeln('Значение функции в начальной точке:');
readln('y0');
writeln('Конечные разности первого и второго порядков:');
readln('y1,y2');
x:=a;
writeln('  x','  y','  e');
repeat
t:=(x-a)/h1;
y:=y0+t*y1+t*(t-1)*y2/2;
e:=0.00001*t*(t-1)*(t-2)/6;
writeln(x:6:3,'  ',y:9:6,'  ',e:11:8);
x:=x+h2;
until x-(b+h2/10)>0;
readkey;
end.
Заранее большое спасибо,думаю вам не составит больших усилий перевести этот код.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.03.2014, 14:26
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из pascal в Visual C++ (C++):

перевод в C++ из Pascal - C++
Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью рабочая. вот на всякий случай сама задача: Таблица...

Перевод с pascal на c++ - C++
Вообще не знаю pasсal, нужен перевод. program aaa; Type mas=array of integer; Var a: array of integer; s, d:mas; {массив элементов...

Перевод из Pascal в C++ - C++
Помогите,пожалуйста, с переводом программы из паскаля в C++ uses crt; function F(x:real):real; begin F:=1+x-x*x*x; ...

Перевод из pascal в С - C++
Program pr4_1; uses crt; var firstmaxpos, lastminpos, n, i :integer; x, MAX,MIN ...

Перевод из Pascal в C++ - C++
Здравствуйте! Помогите,пожалуйста,перевести программу из паскаля в С++ uses crt; var A, B, x, y, h, n, O: real; s: string; ...

Перевод из Pascal на C++ - C++
Народ! Помогите пожалуйста перевести код из Паскаля в C++ const w:array of real=(1.5,-1,0.5); type fly=class ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
mustimur
268 / 222 / 57
Регистрация: 22.11.2013
Сообщений: 832
Записей в блоге: 1
17.03.2014, 19:57 #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
31
#include <iostream>
using namespace std;
 
int main()
{
    double  a,b,h1,h2,e,y,y0, y1,y2,t,x;
    setlocale(LC_ALL,"Russian"); 
    system ("cls");
    cout<<"Задайте концы отрезка субтабулирования:";
    cin>>a>>b;
    cout<<"Новый шаг таблицы:";
    cin>>h2;
    cout<<"Значение функции в начальной точке:";
    cin>>y0;
    cout<<"Конечные разности первого и второго порядков:";
    cin>>y1>>y2;
    x=a;
    h1=h2;
    cout<<"  x" <<"  y"<<"  e";
    do
    {
        t=(x-a)/h1;
        y=y0+t*y1+t*(t-1)*y2/2;
        e=0.00001*t*(t-1)*(t-2)/6;
        cout<<x<<"  "<<y<<"  "<<e;
        x+=h2;
    }
    while (x-(b+h2/10)>0);
    system ("pause");
    return 0;
}
Кое что выкинул, а кое-что от себя добавил (иначе у вас исходник с ошибками) но результат может из-за этого тоже с ошибкой, а вообще Вы не в тот раздел написали
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2014, 19:57
Привет! Вот еще темы с ответами:

Перевод с pascal на c++ - C++
привет всем , помогите ПОЖАЛУЙСТА перевести с pascal на c++. пытался перевести, но с++ сложноват , на изучение языка времени...

Перевод с pascal на С++ - C++
разбиваем n-элементного множество Х на k блоков разбиения для n=4 Последовательность разбиений множества {1,2,3,4} ( 1 2 3 4 ) ( 1...

Перевод с Pascal на C++ - C++
Вечер добрый. Перевожу с pascal на c++. Подскажите или отредактируйте код, что не так? program z1; var a,b:real; begin; ...

перевод из Pascal в C++ - C++
Здравствуйте!Задача: Прямоугольный садовый участок шириной N и длиной M метров разбит на квадраты со стороной 1 метр. На этом участке...


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

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

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