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

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

Войти
Регистрация
Восстановить пароль
 
Best-pm07
..:::BesT:::..
7 / 7 / 1
Регистрация: 19.03.2009
Сообщений: 195
#1

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

19.03.2009, 20:23. Просмотров 859. Ответов 3
Метки нет (Все метки)

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

Перевести с Pascal на С++ - C++
помогите пожалуйста с переводом на язык с++ Procedure ReadLong(Var A : Tlong); Var ch : char; i : Integer; Begin FillChar(A,...

Перевести с Pascal на С++ - C++
Помогите пожалуйста Дано натуральное число n, переставить местами первую и последнию цифру местами uses crt; var...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 1) Поменять местами в каждом слове первую половину слова со второй. Есть решение этих задач, но нужно мне...

Перевести с Pascal на С++ - C++
Нужно перевести начало, хотяб до процедур из Pascal на С++ Я застрял на пункте x:array of pp; и не могу понять, как это в С++ прописать...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 2) Слова, содержащие сочетание ‘кот’, расположить в конце последовательности, сохраняя исходный порядок...

Перевести с pascal на c++ - C++
Помогите тоже перевести из Pascal в с+ visual studio 6.0 Нашел тут похожую на свою задачу, хочу разобраться, но учу только с++ (( ...

3
Gravity
564 / 558 / 39
Регистрация: 29.01.2009
Сообщений: 1,274
19.03.2009, 20:40 #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;
}
1
Best-pm07
..:::BesT:::..
7 / 7 / 1
Регистрация: 19.03.2009
Сообщений: 195
19.03.2009, 20:50  [ТС] #3
А можно в С++, а то я вот не соображу как из С в С++


За это вот тоже спасибо
0
Gravity
564 / 558 / 39
Регистрация: 29.01.2009
Сообщений: 1,274
19.03.2009, 20:58 #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;
}
1
19.03.2009, 20:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2009, 20:58
Привет! Вот еще темы с ответами:

Перевести из Pascal на C++ - C++
Var n,p1,p2,i,k,j:integer; Begin write('Введите N: ');readln(n); For i:=n-1 downto 2 do Begin k:=0; For...

Перевести на C++ из Pascal - C++
Буду очень рад тому, кто переведет из Pascal на C++ :) procedure ChangeToInc(var st:string); var f:boolean; begin f:=true;...

Перевести с Pascal на C++ - C++
uses crt; var a,y:extended; i:longint; begin clrscr; write('a=');readln(a); if a&lt;1 then begin writeln('1'); ...

Перевести с Pascal на C++ - C++
Program kirill; uses crt; function KvSumCif(a,b:integer):boolean; var sum,i,x,code:integer; s:string; begin str(a,s); ...


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

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

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