М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
95731
95731
24.07.2020 03:31 •  Информатика

Даны вещественные числа a, b и c, причем a отлично от 0. решить квадратное уравнение a•x2 + b•x + c = 0 или сообщить о том, что решений нет. написать программу на компиляторе !

👇
Ответ:
zinovevartem2017
zinovevartem2017
24.07.2020
INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
IF c = 0 THEN
   IF b = 0 THEN
      PRINT "x=0"
   ELSE
      x1 = 0: x2 = -b / a
      PRINT "x1="; x1, "x2="; x2
   END IF
ELSE
   IF b = 0 THEN
      x1 = -c / a: x2 = -x1
      PRINT "x1="; x1, "x2="; x2
   ELSE
      D = b ^ 2 - 4 * a * c
      IF D < 0 THEN
         PRINT "Нет действительных корней"
      ELSE
         IF D = 0 THEN
            x = -b / (2 * a)
            PRINT "x="; x
         ELSE
            D = SQR(D)
            x1 = (-b - D) / (2 * a): x2 = (-b + D) / (2 * a)
            PRINT "x1="; x1, "x2="; x2
         END IF
      END IF
   END IF
END IF
END
4,5(41 оценок)
Открыть все ответы
Ответ:
sophiexmartinez
sophiexmartinez
24.07.2020
А) не ( A или не В и С ) упрощаем выражение и получаем
not(a) and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=not(a) and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)

б) А и не ( В и или не С) получим такое выражение:
a and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)


в) не ( не А или В и С)  преобразуем:
a and (b or c)

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or c)
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)
4,7(44 оценок)
Ответ:
muratowaasya
muratowaasya
24.07.2020
1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.
4,6(52 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ