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

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

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

Переведите пожалуйста прогамму на С++ - C++

12.02.2013, 18:38. Просмотров 288. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program ffair;
var x,a,b:real;
function Sign(x:real):integer;
begin
if a+b<0 then
   x:=-1
 else
   if a+b=0 then
      x:=0
    else
     if a+b>0 then
     x:=1;
        begin
        writeln('x=',x);
end;
end;
begin
writeln('Введите значение а');
read(a);
writeln('Введите значение b');
read(b);
Sign(x);
end.
Изначально прога написана на паскале, перевести нужно на С++.
И есть не сложно, сделайте скрин пожалуйста результата ее работы)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2013, 18:38
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите пожалуйста прогамму на С++ (C++):

Переведите пожалуйста прогамму на С++ - C++
program variant23; uses crt; var s,a:real; n:integer; Begin clrscr; writeln('Введите а'); read(a); S:=0; for n:=1 to 10 do

Переведите прогамму с паскаля на c++ - C++
program lnert; uses crt; cоnst h=0.2; var y,x:real; begin x:=-3; repeat y:=(sin(x*2))+6; x:=x+h; write('При x=', x:3:4); ...

Пожалуйста переведите из С++ в С(Си) - C++
Задание: Работа со строками. Найти длину самого короткого слова #include &lt;string&gt; #include &lt;iostream&gt; #include &lt;sstream&gt; using...

переведите с паскаля на с++.пожалуйста - C++
uses crt; var i,j,n,k:integer; a:array of byte; begin Write ('Введите n='); Readln(n); clrscr; k:=0; j:=0; i:=1;

Переведите, пожалуйста, с паскаля на C++ - C++
type Person = record Surname, Name, Adress, City: string; ...

Пожалуйста, переведите с Pascal на C++ - C++
Помогите, пожалуйста. Времени в обрез. var arr: array of integer; i,n: integer; begin read(n); for i := 1 to n do ...

2
anklbenz
7 / 7 / 1
Регистрация: 21.12.2012
Сообщений: 68
12.02.2013, 19:45 #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
#include <iostream>
using namespace std;
 
int Sign(int a, int b)
{
    if (a+b<0)
    return -1;
    else if (a+b==0)
    return 0;
    else if (a+b>0)
    return 1;
};
 
int main()
  {
    int a=0, b=0; 
    
    cout<<"Enter a"<<endl;
    cin>>a;
 
    cout<<"Enter b"<<endl;
    cin>>b;
 
    cout<<"X = "<<Sign(a,b)<<endl;
 
  system("pause>null");
  return 0;
}
Добавлено через 8 минут
или вот так тогда
переменная х
изменится в фунции

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
#include <iostream>
using namespace std;
 
void Sign(int a, int b, int &x)
{
      if (a+b<0)
    x= -1;
      else if (a+b==0)
    x = 0;
      else if (a+b>0)
    x = 1;
};
 
int main()
{
    int a=0, b=0, x=0; 
    cout<<"Enter a"<<endl;
    cin>>a;
 
    cout<<"Enter b"<<endl;
    cin>>b;
 
    Sign(a,b,x);
    cout<<"X = "<<x<<endl;
 
    system("pause>null");
return 0;
}
1
anklbenz
7 / 7 / 1
Регистрация: 21.12.2012
Сообщений: 68
12.02.2013, 19:49 #3
скрин
2
Миниатюры
Переведите пожалуйста прогамму на С++  
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2013, 19:49
Привет! Вот еще темы с ответами:

Переведите пожалуйста программу в C++ - C++
Изначально прога написана на Паскале. Нужно перевести ее в C++ . И сделайте пожалуйста скрин работы программы) Условие: Дан текстовый...

Переведите пожалуйста с паскаля на с++ - C++
var i,j: integer; function lol(x: integer): integer; var i,k: integer; begin k:=0; for i:=1 to x-1 do if x mod i = 0 then ...

Переведите пожалуйста прогу) - C++
Program m3; Uses CRT; Const n=5; m=5; k1=100; k2=k 1 *2+1; Type matr =array of integer; Var a :matr; i, j, f, ma...

Переведите пожалуйста с CLIPS на C++ - C++
//Клипс не знаю вовсе, знаю, что семантика другая, но нужно что-то похожее, пожалуйста!!! (deffunction ask-question (?question) ...


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

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

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