Форум программистов, компьютерный форум 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){...
C++ Чтение из файла при запуске из CMD Доброго времени суток. Столкнулся с проблемой, что если запускать программу из командной строки, то директорией по умолчанию считается не та, где лежит exe-шник, а та, которая указана при открытии... http://www.cyberforum.ru/cpp-beginners/thread721569.html
Класс пользовательское меню C++
Буду огромно благодарен, если поможете. Задача. Часто в программе нужно выводить на экран нумерованный список пунктов меню и предлагать пользователю выбрать пункт по номеру. Предлагается...
C++ Прокоментируйте код
Моя первая программа не из учебника. Консольные шахматы без ИИ. Прошу оценить не интерфейс. И есть ли алгоритм определения мата не перебирая все ходы?...
C++ Создать класс жидкость http://www.cyberforum.ru/cpp-beginners/thread721556.html
Раздали задание и я вообще не представляю что это О_о ??? Задание: Создать класс жидкость, содержащий в качестве параметров название (строка), плотность. Определить конструкторы, деструктор и...
C++ Создать класс Complex С чего начать? Задача: Создать класс Complex для работы с комплексными числами. Определить перегруженную функцию, возвращающую максимальный из двух аргументов. Функция не является членом класса... подробнее

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

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

06.12.2012, 19:52. Просмотров 1381. Ответов 2
Метки (Все метки)

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