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

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

Восстановить пароль Регистрация
 
vladuxa
0 / 0 / 0
Регистрация: 22.03.2013
Сообщений: 23
17.03.2014, 14:26     Перевод из pascal в Visual C++ #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++
Посмотрите здесь:

перевод из PASCAL в C++ C++
C++ перевод с Pascal на C++
C++ Перевод с С++ на Pascal
Перевод из Pascal в C++ C++
Перевод с pascal на c++ C++
C++ Перевод из Pascal на C++
C++ Перевод c Pascal на С++
Перевод из Pascal в C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
mustimur
268 / 222 / 57
Регистрация: 22.11.2013
Сообщений: 832
Записей в блоге: 1
17.03.2014, 19:57     Перевод из pascal в Visual C++ #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;
}
Кое что выкинул, а кое-что от себя добавил (иначе у вас исходник с ошибками) но результат может из-за этого тоже с ошибкой, а вообще Вы не в тот раздел написали
Yandex
Объявления
17.03.2014, 19:57     Перевод из pascal в Visual C++
Ответ Создать тему
Опции темы

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