SCREEN 7
cls
LINE (60, 20)-(0, 80)
LINE (60, 20)-(120, 80)
LINE (0, 80)-(120, 80)
LINE (80, 40)-(80, 20)
LINE (80, 20)-(100, 20)
LINE (100, 20)-(100, 60)
LINE (20, 80)-(20, 160)
LINE (20, 160)-(100, 160)
LINE (100, 160)-(100, 80)
LINE (30, 160)-(30, 110)
LINE (30, 110)-(60, 110)
LINE (60, 110)-(60, 160)
LINE (70, 90)-(90, 90)
LINE (90, 90)-(90, 110)
LINE (90, 110)-(70, 110)
LINE (70, 110)-(70, 90)
LINE (80, 90)-(80, 110)
LINE (70, 100)-(90, 100)
CIRCLE (200, 20), 20
LINE (150, 20)-(170, 20)
LINE (230, 20)-(250, 20)
LINE (180, 40)-(160, 60)
LINE (220, 40)-(240, 60)
LINE (200, 50)-(200, 70)
Код программы:
#include <iostream>
#include <locale>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
double D, a, b, c, x1, x2;
cout<<"Введите коэффициент a" << endl;
cin >> a;
if (a == 0) {
cout << "Ошибка ввода! Коэффициент a не должен равняться 0" << endl;
return 0;
}
cout << "Введите коэффициент b" << endl;
cin >> b;
cout << "Введите коэффициент c" << endl;
cin >> c;
cout << "\nВаше уравнение: " << a << "x^(2) + " << b << "x + " << c << endl;
D = sqrt(b*b - 4 * a * c);
if (D >= 0) {
if (D == 0) {
x1 = (-b) / (2 * a);
cout << "x1 = " << x1 << endl;
}
else {
x1 = (-b - D) / (2 * a);
x2 = (-b + D) / (2 * a);
cout << "x1 = " << x1 << endl;
cout << "x2 = " << x2 << endl;
}
}
else
cout << "\nУравнение не имеет корней (D < 0)" << endl;
return 0;
}
В данном варианте - никак.
Для начала ты должен получить значение x. Это делается через функцию Read(x) или Readln(x). Далее ты должен произвести проверку, чтобы x не равнялся нулю (это обязательно в любом случае, иначе будет попросту ошибка). Это делается через условие if x <> 0 then ...
Далее ты должен откуда-то взять числа a1, a2, a3 и a4. Если они уже есть, то произвести деление. Если же нет, то их нужно все ввести, как показано с переменной x.
После всех манипуляций ты складываешь a1 и a4.
И да, в первом (a1 := 1/(13x)) у тебя допущена ошибка. Я так понял, ты хотел изобразить умножение 13 на x. Нет, так нельзя. Надо писать через умножение: a := 1/(13*x)
Посмотри внимательней в задание, есть ли там какие-то значения.