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

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

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

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

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

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

Перевести с Pascal на C++ - C++
Была цепь длиной L, N рыбин. Зная координаты головы и хвоста каждой из них, подсчитайте, на какие сутки у собаки появится голод, если он...

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

Перевести с Pascal на C++ - C++
Каково содержание задачи? var a:array of integer; i,j,k,l,q,w,e:integer; begin // Randomize; for i:=1 to 10 do begin...

Перевести с 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++. (В паскале нифига не шарю) Const MAX_X=80; MAX_Y=24; Type...

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

Перевести с pascal на С++ - C++
const n=30; var c,a:array of integer; i,k,max:integer; begin {ввод массива c} for i:=1 to n do read(c); ...

Перевести из Pascal в С++ - C++
Заранее благодарен var s, a, x :real;i,j, fac: integer; begin cls; readln(x); begin for j:=1 to 15 do fac:=fac*(j*2+1); ...

Перевести из Pascal в C++ - C++
procedure RectPS(x1,x2,y1,y2: real); var p,s: real; begin begin P := (abs(x2-x1) + abs(y2-y1)) * 2; S := abs(x2-x1) *...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Gravity
562 / 556 / 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:::..
7 / 7 / 1
Регистрация: 19.03.2009
Сообщений: 195
19.03.2009, 20:50  [ТС]     Перевести из Pascal в С++ #3
А можно в С++, а то я вот не соображу как из С в С++


За это вот тоже спасибо
Gravity
562 / 556 / 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 в С++
Ответ Создать тему
Опции темы

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