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

Переписать программу из паскаля в с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Выполните арифметические операции сложения, вычитания «машинным» методом http://www.cyberforum.ru/cpp-beginners/thread955660.html
Уважаемый форум! Помогите пожалуйста.Что-то я совсем запуталась. Может кто-то знает, как решить поставленную задачу? Выполните арифметические операции сложения, вычитания «машинным» методом,...
C++ Быстрая сортировка Помогите пожалуйста, при использовании алгоритма быстрой сортировки, конечный массив получается не отсортированным, хотя все операции проходят и при этом с правильными индексами. Сортировка... http://www.cyberforum.ru/cpp-beginners/thread955635.html
C++ как переделать на с++? с паскаля
function aaa(x: integer):boolean; var b: integer; begin b:=1; While (x-b*2)>0 do b:=b*2; x:=x-b; if x<>1 then result:=not(aaa(x)) else result:=false;
Препроцессор,исключительные ситуации C++
Всем доброго времени суток!) По прочтению изложенного в моей книге материала по искл. ситуациям и операторам препроцессора(? так можно назвать вот это: "#define","#ifdef","#ifndef","#else" ?) возник...
C++ Определить ф-цию, нахождения векторного произведения векторов трёхмерного пространства http://www.cyberforum.ru/cpp-beginners/thread955610.html
Определить ф-цию, нахождения векторного произведения векторов трёхмерного пространства(без массивов). Параметрами ф-ции должны быть координаты. Ф-ция должна возвращать несколько значений, для этого...
C++ Найти произведение отрицательных элементов массива Найти произведение отрицательных элементов массива. Использовать функцию для каждой строки матрицы K(4,8). Тело ф-ции реализовать 2 способами: через указатели и обычным способом. Добавлено через 1... подробнее

Показать сообщение отдельно
nvideal
Сообщений: n/a

Переписать программу из паскаля в с++ - C++

16.09.2013, 16:33. Просмотров 532. Ответов 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
24
25
26
uses crt;
Var A, B, C, D, X, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты уравнения (A, B, C) ');
readln(a,b,c);
If A=0 Then
   If B=0 Then
              If C=0 Then Writeln('X - любое число')
                  Else Writeln('Корней нет! ')
        Else
        Begin
        X:=-C/B;
        Writeln('X=',X:8:3);
        End
   Else
   Begin
   D:=B*B-4*A*C;
   If D<0 Then Writeln ('Корней нет! ')
      Else
      Begin
      X1:=(-B+SQRT(D))/2/A;
      X2:=(-B-SQRT(D))/2/A;
      Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);
      End;
   End;
End.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru