maksimstelmach

18.12.2020 20:36 •  Информатика

Мне нужно перевести код с С++ на PascalABC. #include "stdafx.h"
#include
#include
using namespace std;

int main(int argc, _TCHAR* argv[])
{
float a,b,c,d,f;
float x1,x2,y1,y2;

cout<<"cx2+dx+f=0\nc=";
cin>>c;
cout<<"d=";
cin>>d;
cout<<"f=";
cin>>f;
cout<<"y=ax+b\na=";
cin>>a;
cout<<"b=";
cin>>b;
x1=(a-d+sqrt((a-d)*(a-d)-4*c*(f-b)))/(2*c);
x2=(a-d-sqrt((a-d)*(a-d)-4*c*(f-b)))/(2*c);
y1= a*x1+b;
y2= a*x2+b;

cout<<"x1="< system("pause");
return 0;
}