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

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

Восстановить пароль Регистрация
 
Crydok
1 / 1 / 0
Регистрация: 16.12.2013
Сообщений: 27
09.01.2014, 18:56     Перевод из Pascal в C++ #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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.01.2014, 18:56     Перевод из Pascal в C++
Посмотрите здесь:

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

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
FraidZZ
Модератор
 Аватар для FraidZZ
3879 / 1505 / 227
Регистрация: 06.01.2013
Сообщений: 4,029
Завершенные тесты: 1
09.01.2014, 19:20     Перевод из 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
#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");
}
Yandex
Объявления
09.01.2014, 19:20     Перевод из Pascal в C++
Ответ Создать тему
Опции темы

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