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

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

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

Перевод кода из паскаля в с++ - C++

26.06.2014, 22:08. Просмотров 310. Ответов 3
Метки нет (Все метки)

Незнаю как перевести из паскаля в с++
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
ar
  x, y: real;
 
begin
  readln(x, y);
  if ((x < 0) and (y < 0)) then
  begin
    x := abs(x);
    y := abs(y);
  end
  else
  if (((x < 0) and (y >= 0)) or ((x >= 0) and (y < 0))) then
  begin
    x += 0.5;
    y += 0.5;
  end
  else
  if (((0.5 <= x) and (x <= 2)) or ((0.5 <= y) and (y <= 2))) then
  begin
    x /= 10;
    y /= 10;
  end;
  writeln(x, ' ', y);
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2014, 22:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод кода из паскаля в с++ (C++):

Перевод кода из паскаля в c++ - C++
Собственно надо перевести этот код из паскаля в c++, чтобы программа выдавала такие же данные и тот же результат. const n=30; ...

Перевод кода из Паскаля в С++ - C++
Я в С++ не бум бум, написал прогу на паскале а нуно на Си++ помогите перевести Задача : Назовем допустимым преобразованием матрицы...

Перевод кода из Паскаля в C++ - C++
помогите пожалуйста перевести код в c++ integer procedure F2(ref(position) p,integer alpha,integer beta): begin integer m,t;...

Перевод кода из Паскаля в С++ - C++
uses crt,graph; type TPoint=record x,y:integer; end; var p1,p2,p3,p4:arrayof TPoint; gd,gm:integer; ...

Перевод кода с паскаля на С++ - C++
Нужно перевести на С++ program dvumerniu; uses crt; const m=2; n=4; type mat=array of integer; var ...

Перевод кода с Паскаля на С++ - C++
Помогите плиз перевести код с Паскаля на С++, компилятор DEV C++. Буду вам очень благодарен. Код Pascal Var i:longint; n,k:byte; ...

3
Issues
430 / 365 / 37
Регистрация: 06.08.2012
Сообщений: 961
26.06.2014, 22:42 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Dreyko2,
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>
 
int main()
{
    float x, y;
 
    std::cin >> x >> y;
    
    if ((x < 0) && (y < 0))
    {
        x = abs(x);
        y = abs(y);
    }
    else if (((x < 0) && (y >= 0)) || ((x >= 0) && (y < 0))) 
    {
        x += 0.5;
        y += 0.5;
    }
    else if (((0.5 <= x) && (x <= 2)) || ((0.5 <= y) && (y <= 2)))
    {
        x /= 10;
        y /= 10;
    }
 
    std::cout << x << ' ' << y << std::endl;
 
    return 0;
}
1
Dreyko2
0 / 0 / 0
Регистрация: 21.06.2014
Сообщений: 16
26.06.2014, 22:46  [ТС] #3
Issues спасибо за помощь.
0
EfimKR
53 / 26 / 10
Регистрация: 24.06.2014
Сообщений: 229
Записей в блоге: 1
26.06.2014, 22:46 #4
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#include<iostream>
#include<cmath>
using namespace std;
int main()
{
    setlocale(LC_CTYPE, "Russian");
    double x, y;
    cout<<"Введите х и у через пробел\t";
    cin>>x>>y;
    if (x<0 && y<0) { x=fabs(x); y=fabs(y); }
    if ((x<0 && y>=0) || (x>=0 && y<0)) { x+=0.5; y+=0.5; }
    if ((x>=0.5 && x<=2) || (y>=0.5 && y<=2)) { x/=10; y/=10; }
    cout<<x<<" "<<y<<"\n";
    return 0;
}
0
26.06.2014, 22:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.06.2014, 22:46
Привет! Вот еще темы с ответами:

Перевод кода с Паскаля на C++ - C++
Помогите пожалуйста перевести код программы из паскаля в с++ Uses crt; Var j,i,nech_kol,ch_kol,q,p,sum_nech,sum_ch: Integer; ...

Перевод кода с Паскаля на С++ - C++
помогите перевести код программы с Паскаля в с++, пожалуйста! Program pr1; uses crt; var f:text; s:string; i:byte; n:integer; ...

Перевод кода с паскаля в С++ - C++
помогите перевести код с Паскаля в С++, пожалуйста! Program pr1; uses crt; var s:string; begin clrscr; write('введите слова:');...

Перевод кода из Турбо паскаля в С++ - C++
Помогите перевести код из турбо Паскаля в С++ {$N+} { Вычисление интегpала десятиточечным методом Гаусса } uses crt,graph; var...


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

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

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