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

Перевод из Pascal в C++ - C++

Восстановить пароль Регистрация
 
Crydok
1 / 1 / 0
Регистрация: 16.12.2013
Сообщений: 27
04.01.2014, 20:24     Перевод из Pascal в C++ #1
Здравствуйте! Помогите,пожалуйста,перевести программу из паскаля в С++
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
uses crt;
var
A, B, x, y, h, n, O: real;
s: string;
cod: integer;
const
z = 0.0001;
begin
clrscr;
repeat
repeat
write('Введите начало интервала A[-100;100]=');
readln(S);
val(S, A, cod);
until (cod = 0) and (A > -100) and (A < 100);
repeat
write('Введите конец интервала B[-100;100]=');
readln(S);
val(S, B, cod);
until (cod = 0) and (B > -100) and (B < 100);
until a<>b;
if A > B then
begin
O := B;
B := A;
A := O;
end;
repeat
begin
write('введите количество разбиений H[1;50]=');
readln(S);
val(S, H, cod);
end;
until (cod = 0) and (H > 1) and (H < 50);
N := (B - A) / H;
writeln('Начало интервала=', a);
writeln('Конец интервала=', b);
Writeln('Количество разбиений=', h);
writeln('Размер шага=', n);
x:=a;
while x < b + z do
writeln('-------------------------');
begin
if x = 0 then writeln('|','x=', x:2:4, ' |не определено |') else
begin
y := ((sin(x)) / x) * (exp(-x)) * (1 + x * x * x);
writeln('|x=', x:2:4, ' |y=', y:2:4,'   |');
end;
x := x + n;
end;
writeln('------------------------');
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.01.2014, 20:24     Перевод из Pascal в C++
Посмотрите здесь:

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

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
sentike
4 / 4 / 0
Регистрация: 22.08.2013
Сообщений: 49
05.01.2014, 01:29     Перевод из Pascal в 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
// pascal.cpp: определяет точку входа для консольного приложения.
//
 
#include "stdafx.h"
#include <stdio.h>
#include <cstdio>
#include <iostream>
#include <string>
 
using namespace std;
//--------
double A;
double B;
double H;
double N;
//--------
double x, y;
//--------
 
const float z = 0.0001; 
 
 
int _tmain(int argc, _TCHAR* argv[])
{
    std::string var;
    ent_A:
    //==============================================
    std::cout << "Введите начало интервала A[-100;100]= ";
    std::getline (std::cin, var);
    A = atof(var.c_str());
    if(A < -100 || A > 100) goto ent_A;
 
    ent_B:
    //==============================================
    std::cout << "Введите конец интервала B[-100;100]= ";
    std::getline (std::cin, var);
    B = atof(var.c_str());
    if(B < -100 || B> 100) goto ent_B;
    //==============================================
    if(A > B)
    {
        H = B;
        B = A;
        A = H;
    }
 
    ent_H:
    //==============================================
    std::cout << "Ведите количество разбиений H[1;50]= ";
    std::getline (std::cin, var);
    H = atof(var.c_str());
    if(H < 1 || H > 50) goto ent_H;
    //==============================================
    N = (B - A) / H;
    //==============================================
    std::cout << "Начало интервала=" << A << endl;
    std::cout << "Конец интервала=" << B << endl;
    std::cout << "Количество разбиений=" << H << endl;
    std::cout << "Размер шага=" << N << endl;
    //==============================================
    while(x < B + z)
    {
        std::cout << "-------------------------"<< endl;
        if(x == 0)
        {
            std::cout << "x=" << (x/8) << "|не определено |" << endl;
        }
        else
        {
            y = ((sin(x)) / x) * (exp(-x)) * (1 + x * x * x);
            std::cout << "|x=" << (x/8) << "|y= " << (y/8) << endl;
        }
        x += N;
    }
    std::cout << "-------------------------"<< endl;
    std::cout << "------Завершено----------"<< endl;
    std::cout << "Перевел на C++ -- SeNTike"<< endl;
    cin.get();
    return 0;
}
Yandex
Объявления
05.01.2014, 01:29     Перевод из Pascal в C++
Ответ Создать тему
Опции темы

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