Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
..:::BesT:::..
 Аватар для Best-pm07
8 / 8 / 5
Регистрация: 19.03.2009
Сообщений: 195

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

19.03.2009, 20:23. Показов 1158. Ответов 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
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.03.2009, 20:23
Ответы с готовыми решениями:

перевести с pascal на С++
Помогите пожалуйста перевести на c++ Само задание : Пусть дан файл целых чисел. Создайте файл вещественных чисел, компонентами которого...

Перевести с pascal на С++
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++
Была цепь длиной L, N рыбин. Зная координаты головы и хвоста каждой из них, подсчитайте, на какие сутки у собаки появится голод, если он...

3
 Аватар для Gravity
577 / 571 / 65
Регистрация: 29.01.2009
Сообщений: 1,274
19.03.2009, 20:40
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:::..
 Аватар для Best-pm07
8 / 8 / 5
Регистрация: 19.03.2009
Сообщений: 195
19.03.2009, 20:50  [ТС]
А можно в С++, а то я вот не соображу как из С в С++


За это вот тоже спасибо
0
 Аватар для Gravity
577 / 571 / 65
Регистрация: 29.01.2009
Сообщений: 1,274
19.03.2009, 20:58
Не вижу принципиальной разницы.
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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.03.2009, 20:58
Помогаю со студенческими работами здесь

Перевести с pascal на с++
uses crt; var i_put,o_put:string; i,s_ch,n:byte; flag:boolean; Begin ClrScr; writeln('Vvedite stroku:'); ...

Перевести с Pascal на c++
uses crt; var n1,n2,i,j,r: integer; begin r:=0; write('n1='); readln(n1); write('n2='); readln(n2); for i:=1 to n1 do for...

Перевести с Pascal на c++
var A, B, N, S, G, P: integer; begin readln(G); readln(P); S := G * P; while (A + B) &lt; S do begin A := A +...

Перевести с Pascal на C++
var n:longint;max:integer; begin writeln('n='); readln(n); max:=0 ; while n&gt;0 do begin if max&lt;n mod 10...

Перевести из Pascal на С++
условие: Данная целочисленные квадратная матрица. Вычислить: 1) сумму элементов в тех строках, которые не содержат отрицательных...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru