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

Перевести из Pascal в С++ - C++

Восстановить пароль Регистрация
 
Best-pm07
..:::BesT:::..
 Аватар для Best-pm07
7 / 7 / 1
Регистрация: 19.03.2009
Сообщений: 195
19.03.2009, 20:23     Перевести из Pascal в С++ #1
Помогите перевести программу на C++


Исходник Pascal:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program Posled;
Uses winCRT;
Var Eps, AOld, ANew : Real; N : Integer;
Begin
Writeln('Введите число Epsilon:'); ReadLn(Eps);
AOld := 0; ANew := ArcTan(AOld) + 1;
N := 2;
WriteLn(AOld : 8 :5); WriteLn(ANew : 8 :5);
While Abs(ANew - AOld) >= Eps Do
Begin
AOld := ANew;
ANew := ArcTan(AOld) + 1;
WriteLn(ANew : 8 :5);
N := N + 1
End;
WriteLn('Искомый номер ', N)
End.

Вот я что-то пытался но не выходит (выполнение программы должно быть таким же как и на Pascal):
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# include <iostream.h>
# include <math.h>
void main ()
{int N;
double Eps, AOld, ANew;
cout<<"Введите эпсилон: \n";
cin>>Eps;
AOld = 0;
ANew = atan(AOld) + 1;
N = 2;
while
(abs(ANew - AOld) >= Eps)
do
AOld = ANew;
ANew = atan(AOld) + 1;
N = N + 1;
cout<<"Искомый номер: "<<N;}
Каким должен быть результат программы:
Изображения
 
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.03.2009, 20:23     Перевести из Pascal в С++
Посмотрите здесь:

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

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Gravity
 Аватар для Gravity
556 / 550 / 39
Регистрация: 29.01.2009
Сообщений: 1,274
19.03.2009, 20:40     Перевести из 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
#include <stdio.h>
#include <conio.h>
#include <math.h>
 
int main()
{
    int N;
    float Eps, Aold, ANew;
    
    printf("Enter epsilon: ");
    scanf("%f", &Eps);
    
    Aold = 0;
    ANew = atan(Aold) + 1;
    N = 2;
    printf("%f\n%f\n", Aold, ANew);
    
    while(fabs(ANew - Aold) >= Eps) {
       Aold = ANew;
       ANew = atan(Aold) + 1;
       printf("%f\n", ANew);
       N = N + 1;
    }
    printf("Nomer = %d", N);
    getch();
    return 0;
}
Best-pm07
..:::BesT:::..
 Аватар для Best-pm07
7 / 7 / 1
Регистрация: 19.03.2009
Сообщений: 195
19.03.2009, 20:50  [ТС]     Перевести из Pascal в С++ #3
А можно в С++, а то я вот не соображу как из С в С++


За это вот тоже спасибо
Gravity
 Аватар для Gravity
556 / 550 / 39
Регистрация: 29.01.2009
Сообщений: 1,274
19.03.2009, 20:58     Перевести из Pascal в С++ #4
Не вижу принципиальной разницы.
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
#include <iostream>
#include <conio.h>
#include <math.h>
using namespace std;
 
int main()
{
    int N;
    float Eps, Aold, ANew;
    
    cout << "Enter epsilon: ";
    cin >> Eps;
    
    Aold = 0;
    ANew = atan(Aold) + 1;
    N = 2;
    cout << Aold << endl;
    cout << ANew << endl;
    
    while(fabs(ANew - Aold) >= Eps) {
       Aold = ANew;
       ANew = atan(Aold) + 1;
       cout << ANew << endl;
       N = N + 1;
    }
    cout << "Nomer = " << N;
    getch();
    return 0;
}
Yandex
Объявления
19.03.2009, 20:58     Перевести из Pascal в С++
Ответ Создать тему
Опции темы

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