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

Перевод программы с Pascal на C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Ввод вектора http://www.cyberforum.ru/cpp-beginners/thread721576.html
Здравствуйте, подскажите пожалуйста, не получается ввести вектор с клавиатуры. Делаю так:int main (){ vector<int>::size_type y; vector<int> x; cout << "Введите вектор: "; while (cin>>y){ x.push_back (y); cout << x; if (x.empty()) break;
C++ Чтение из файла при запуске из CMD Доброго времени суток. Столкнулся с проблемой, что если запускать программу из командной строки, то директорией по умолчанию считается не та, где лежит exe-шник, а та, которая указана при открытии командной строки (например в windows xp это "c:\documents and settings\user"). Мне же нужно считывать файл, который лежит в том же месте, что и исполняемый файл. Явное описание пути к файлу не подходит.... http://www.cyberforum.ru/cpp-beginners/thread721569.html
Класс пользовательское меню C++
Буду огромно благодарен, если поможете. Задача. Часто в программе нужно выводить на экран нумерованный список пунктов меню и предлагать пользователю выбрать пункт по номеру. Предлагается реализовать класс, кото- рый позволяет определить пункты меню, и затем вызовом соответствующего метода вывести на экран эти пункты с ожиданием ввода результата от пользователя. Метод должен вернуть номер...
C++ Прокоментируйте код
Моя первая программа не из учебника. Консольные шахматы без ИИ. Прошу оценить не интерфейс. И есть ли алгоритм определения мата не перебирая все ходы? //--------------------------------------------------------------------------- #pragma hdrstop //--------------------------------------------------------------------------- #include<iostream> using namespace std; #pragma argsused
C++ Создать класс жидкость http://www.cyberforum.ru/cpp-beginners/thread721556.html
Раздали задание и я вообще не представляю что это О_о ??? Задание: Создать класс жидкость, содержащий в качестве параметров название (строка), плотность. Определить конструкторы, деструктор и функцию печати. Создать public-производный класс – спиртной напиток, имеющий дополнительный параметр – крепость. Определить конструкторы по умолчанию и с разным числом параметров, деструкторы,...
C++ Создать класс Complex С чего начать? Задача: Создать класс Complex для работы с комплексными числами. Определить перегруженную функцию, возвращающую максимальный из двух аргументов. Функция не является членом класса комплексных чисел. Перегруженные функции имеют аргументы типа int, double, complex. Тело перегруженных функций должны быть одинаковыми. подробнее

Показать сообщение отдельно
prorider
0 / 0 / 0
Регистрация: 21.11.2012
Сообщений: 15
06.12.2012, 19:52     Перевод программы с Pascal на C++
Здравствуйте уважаемые форумчане, помогите перевести следующую программу на 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
53
54
55
56
program z3;
 
var
  a, b, c, x, x1, x2, dX, k: real;
 
function f(x: real; a: real; b: real; c: real): real;
begin
  if (x < 1) and (c <> 0) 
  then begin
    k := a * sqr(x) + b / c;
    if ((trunc(a) and trunc(b)) xor trunc(c)) <> 0
      then writeln('x= ', x:0:4, ' y= ', k:0:4)
    else writeln('x= ', x:0:4, ' y= ', trunc(k));
  end
  else
  if (x > 1.5) and (c = 0) 
  then begin
    k := (x - a) / (sqr(x - c));
    if ((trunc(a) and trunc(b)) xor trunc(c)) <> 0
      then writeln('x= ', x:0:4, ' y= ', k:0:4)
    else writeln('x= ', x:0:4, ' y= ', trunc(k));
  end
  else
  if c <> 0
  then begin
    k := sqr(x) / sqr(c);
    if ((trunc(a) and trunc(b)) xor trunc(c)) <> 0
      then writeln('x= ', x:0:4, ' y= ', k:0:4)
    else writeln('x= ', x:0:4, ' y= ', trunc(k));
  end
  else
    writeln('x= ', x:0:4, ' y Не определяется');
  
end;
 
begin
  writeln('Введите a: ');
  readln(a);
  writeln('Введите b: ');
  readln(b);
  writeln('Введите c: ');
  readln(c);
  write('Введите начальное x: ');
  readln(x1);
  write('Введите конечное x: ');
  readln(x2);
  write('Введите шаг dx: ');
  readln(dX);
  x := x1;
  while x <= x2 do
  begin
    f(x, a, b, c);
    x := x + dX;
  end;
  
end.
 Комментарий модератора 
Запрещено размещать задания в виде картинок и других файлов с их текстом.


Добавлено через 39 минут
Помогите пожалуйста.

Добавлено через 3 часа 12 минут
Кто сможет?
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 06:02. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru