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

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

Войти
Регистрация
Восстановить пароль
 
Crydok
1 / 1 / 0
Регистрация: 16.12.2013
Сообщений: 27
#1

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

09.01.2014, 18:56. Просмотров 267. Ответов 1
Метки нет (Все метки)

Помогите,пожалуйста, с переводом программы из паскаля в C++
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
uses crt;
function F(x:real):real;
  begin
    F:=1+x-x*x*x;
  end;
var
  A, B, x, e, z, O: real;
  s: string;
  cod: integer;
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('Введите погрешность e[0;1]=');
        readln(S);
        val(S, e, cod);
      end;
    until (cod = 0) and (e > 0) and (e < 1);
    writeln('Левая граница=', a);
    writeln('Правая граница=', b);
    Writeln('Погрешность=', e);
    if F(a)*f(b)>0 then
      writeln('Корней нет')
      else
      begin
        while abs(a-b)>e do
          begin
            z:=(a+b)/2;
            if f(a)*f(z)>0 then a:=z else b:=z;
          end;
          x:=(a+b)/2;
    writeln('x=',x:2:4, 'f(x)=', f(x):2:10);
    readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2014, 18:56
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из Pascal в C++ (C++):

перевод из Pascal в C++ - C++
Здравствуйте!Задача: Прямоугольный садовый участок шириной N и длиной M метров разбит на квадраты со стороной 1 метр. На этом участке...

Перевод из Pascal в C++ - C++
В файле W задан массив из девяти элементов. В новом файле WW сформировать массив, в котором каждому элементу будет присвоено значение...

перевод с Pascal на C++ - C++
Const Max=1000; Eps=0.00001; Type Para=record X: integer;

Перевод с Pascal на Си++ - C++
Помогите, пожаалуйста перевести код программы с Паскаля на Си++. Очень прошу, помогите. Var S:String; W,Wrd:Array of String; ...

Перевод с Pascal на C++ - C++
Код на паскале, помогите его переписать в С ++ . Очень нужно ребят . Последняя задача. const mi = 100; type matrix = array of...

Перевод из Pascal в C++ - C++
Помогите перевести в С++. Вот код : program Adam; uses crt; var func,x,y,yp:array of real; proiz:array of real; ...

1
FraidZZ
Ex-Member
3898 / 1524 / 229
Регистрация: 06.01.2013
Сообщений: 4,050
Завершенные тесты: 1
09.01.2014, 19:20 #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
#include <iostream>
#include <cstdlib>
#include <cmath>
 
using namespace std;
 
 
float F(float x){
    return 1+x-x*x*x;
}
 
int main () {
    setlocale(0, "");
    float A, B, x, e, z, O;
    do {
        do {
            cout<<"Введите левую границу A[-100;100]=";
            cin>>A;
        } while (!((A > -100) && (A < 100)));
        do {
            cout<<"Введите правую границу B[-100;100]=";
            cin>>B;
        } while(!((B > -100)&&(B < 100)));
    } while (A == B);
    if (A > B) {
        O = B;
        B = A;
        A = O;
    }
    do {
        cout<<"Введите погрешность e[0;1]=";
        cin>>e;
    } while (e <= 0 || e >= 1);
    cout<<"Левая граница="<<A<<'\n';
    cout<<"Правая граница="<<B<<'\n';
    cout<<"Погрешность="<<e<<'\n';
    
    if (F(A)*F(B) > 0){
        cout<<"Корней нет";
    } else {
        while (abs(A-B) > e) {
            z = (A + B) / 2;
            if (F(A)*F(z) > 0) A = z; else B = z;
        }
        x = (A + B) / 2;
        cout<<"x="<<x<<"\tf(x)="<<F(x);
    }
    system("pause>nul");
}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2014, 19:20
Привет! Вот еще темы с ответами:

Перевод с Pascal на C++ - C++
Помогите пожалуйста перевести код с Pascal на C++, паскаль совсем не знаю. Задание :Дана строка символов, в конце которой стоит точка....

Перевод из Pascal в С++ - C++
Помогите пожалуйста перевести программу из Паскали в С++ var k,n: integer; d: char; procedure AddDigit(s: string); var ...

перевод из PASCAL в C++ - C++
Нужна программа для перевода из 2 в 10 систему счисления и обратно ... нашел на паскале но почти ничего не могу понять . объясните пжл как...

перевод в C++ из Pascal - C++
Кому не сложно переведите пожалуйста программу в С++. Она готова и полностью рабочая. вот на всякий случай сама задача: Таблица...


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

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

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