1)даны 3 числа a,b,c, являющиеся коэффициентами квадратного уравнения. составить алгоритм и программу для нахождения корней этого квадратного уравнения.
Преобразуем условие в более понятное. Обозначаем: a=Первая буква согласная; b=Вторая буква согласная c=Третья буква гласная Тогда условие можно записать следующим образом: Перейдем к исходным обозначениям, учтя, что отрицание "гласная" есть "согласная", а отрицание "согласная" есть "гласная": (Первая буква гласная ИЛИ Вторая буква гласная) И Третья буква согласная. Можно сформулировать еще короче: "Первая ИЛИ вторая буква гласная, а третья обязательно согласная". Этому условию удовлетворяет только имя 4) Лидия - в нем вторая буква гласная, а третья согласная.
CLS INPUT "Nazvanie 1: ", Nazv1$ INPUT "Perviy: ", P1 INPUT "Otvetniy: ", O1 INPUT "Nazvanie 2: ", Nazv2$ INPUT "Perviy: ", P2 INPUT "Otvetniy: ", O2 IF P1+O1>P2+O2 THEN PRINT Nazv1$ ELSE IF P1+O1<P2+O2 THEN PRINT Nazv2$ ELSE IF O1-O2>P2-P1 THEN PRINT Nazv1$ ELSE IF O1-O2<P2-P1 THEN PRINT Nazv2$ ELSE PRINT "Dopolnitelnoe:" PRINT Nazv1$ INPUT D1 PRINT Nazv2$ INPUT D2 IF D1>D2 THEN PRINT Nazv1$ ELSE IF D1<D2 THEN PRINT Nazv2$ ELSE PRINT "Nichia" END IF END IF END IF END IF END IF END IF END
Пример:
Nazvanie 1: A Perviy: 2 Otvetniy: 0 Nazvanie 2: B Perviy: 0 Otvetniy: 2 Dopolnitelnoe: A ? 3 B ? 3 Nichia
var a,b,c:real;
begin
writeln('Введите A,B,C');
readln(a,b,c);
if((b*b-4*a*c)<0) then begin writeln('Уравнение не имеет корней'); halt(); end;
writeln('x1 =',' ',(((b*(-1)-sqrt(b*b-4*a*c))/2*a)));
writeln('x2 =',' ',(((b*(-1)+sqrt(b*b-4*a*c))/2*a)));
end.