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

@Crydok · Регистрация: 16.12.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте! Помогите,пожалуйста,перевести программу из паскаля в С++

Pascal

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.

@sentike · 05.01.2014, 01:29

Вот, попробуй. Надеюсь, еще не поздно =)

C++

// 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;
}

	05.01.2014, 01:29

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

Решение