Помогите пожалуйста перевести код с Pascal на С++ [требует правки]

261
03 мая 2017, 11:43

Помогите пожалуйста перевести код с Pascal на С++

   uses crt;
   var
    a,b,c,d,e,f,m,g:integer;
   begin
    write('введите a=');readln(a);
    write('введите b=');readln(b);
    write('введите c=');readln(c);
    write('введите d=');readln(d);
    write('введите e=');readln(e);
    write('введите f=');readln(f);
    m:=(a*c*f)-(a*e*e)-(b*b*f)+(b*e*d)+(d*b*e)-(d*c*d);
    g:=(a*c)-(b*b);
    if (m<>0) and(g>0) then writeln('Вид графика эллипс')
    else if (m<>0) and(g<0) then writeln('Вид графика гипербола')
    else if (m<>0) and(g=0) then writeln('Вид графика парабола')
    else if (m=0) and (g>0) then writeln('Вид графика две мнимые прямые')
    else if (m=0) and (g<0) then writeln('Вид графика две пересекающиеся прямые')
    else if (m=0) and (g=0) then writeln('Вид графика две параллельные прямые');
   end.
Answer 1
#include <iostream>
using namespace std;
int main()
{
setlocale (LC_ALL, "rus");
int a,b,c,d,e,f,m,g;
cout<<"ВВедите a\n";
cin>>a;
cout<<"ВВедите b\n";
cin>>b;
cout<<"ВВедите c\n";
cin>>c;
cout<<"ВВедите d\n";
cin>>d;
cout<<"ВВедите e\n";
cin>>e;
cout<<"ВВедите f\n";
cin>>f;
m=(a*c*f)-(a*e*e)-(b*b*f)+(b*e*d)+(d*b*e)-(d*c*d);
g=(a*c)-(b*b);
if (m!=0 && g>0)
cout<<"Вид графика элипс\n";
if (m!=0 && g<0) 
cout<<"Вид графика гиперболa\n";
if (m!=0 && g==0) 
cout<<"Вид графика парабола\n";
if (m==0 && g>0)
cout<<"Вид графика две мнимые прямые\n";
if (m==0 && g<0 )
cout<<"Вид графика две пересекающиеся прямые";
if (m==0 && g==0) 
cout<<"Вид графика две параллельные прямые";
return 0;
}
READ ALSO
Проблема с inline

Проблема с inline

Здравствуйте! Пишу обработчик для WM_MOUSEMOVE для своего элемента UIЕсть массив этих элементов UI Сol *col[100000]={NULL}, часть которого не NULL

267
Смена языка сообщения error_code в boost

Смена языка сообщения error_code в boost

Когда я получаю ошибку в бусте, я могу ее прочитать, вызвав метод error_code::message()Я бы хотел, чтобы она выводилась на английском (сейчас она выводится...

281
Стэк не работает

Стэк не работает

Хотелось бы вывести 4 3 2 1 0Но ничего не выводит

285
Ошибка в программе. Некорректный вывод

Ошибка в программе. Некорректный вывод

Помогите пожалуйстаФункция должна выводить слово(слова) минимальной длины

282