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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Создать объект типа "связаный двунаправленный список", с перегруженными унарными операциями http://www.cyberforum.ru/cpp-beginners/thread1217932.html
Помогите, пожалуйста, с задачей! Создать объект типа "связаный двунаправленный список", с перегруженными унарными операциями ++, --(постфиксным и префиксным) для движения по списку вперед и назад.
C++ Неверная кодировка в текстовом документе как с этим справиться? кодировка unicode. как сделать нормальные буквы? http://www.cyberforum.ru/cpp-beginners/thread1217923.html
Создать класс углов на плоскости C++
Ребят, помогите решить пожалуйста. Создать класс углов на плоскости с данными-членами значение угла в градусах и минутах. Перегрузить операторы ввода и вывода объекта, сложения и вычитания углов....
Программа записывает русские слова в txt, но они отображаются кракозябрами C++
в slovar.txt нормально записываются только английские слова, русские отображаются символами. #include <StdAfx.h> #include <fstream> #include <iostream> #include <Windows.h> int main() { ...
C++ Можно ли в std::string записать Ansi символ (например NUL)? http://www.cyberforum.ru/cpp-beginners/thread1217861.html
Можно ли в std::string записать Ansi символ(например NUL)?
C++ Вычислить длину введенной с клавиатуры строки используя библиотеку string Напишите программу, которая вычисляет длину введенной с клавиатуры строки используя библиотеку string подробнее

Показать сообщение отдельно
Dreyko2
0 / 0 / 0
Регистрация: 21.06.2014
Сообщений: 16

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

26.06.2014, 22:08. Просмотров 308. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru