По разделам



Задача Proc 17


Описать функцию RootsCount(A, B, C) целого типа, определяющую
количество корней квадратного уравнения A·x
2 + B·x + C = 0 (A, B, C —
вещественные параметры, A 6= 0). С ее помощью найти количество корней
для каждого из трех квадратных уравнений с данными коэффициентами.
Количество корней определять по значению дискриминанта:
D = B
2 − 4·A·C.

Код (C/C++)

# include <iostream>
# include <windows.h>
# include <cmath>
# include <iomanip>
# include <fstream>
 
using namespace std;
 
int RootsCount (double A, double B, double C);
 
int main ()
 
{
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  double A, B, C;
  int answer = 0;  // количество корней квадратного уравнения
  for (int i = 1; i < 4; ++i) {
    cout << "Введите число A: ";     cin >> A;
    cout << "Введите число B: ";     cin >> B;
    cout << "Введите число C: ";     cin >> C;
    answer = RootsCount (A, B, C);
    cout << "Количество корней квадратного уравнения = " << answer << endl; 
  }
  system ("pause");
  return 0;
}
 
int RootsCount(double A, double B, double C)
{
  int res;  
  double D;   // дискриминант 
  res = 0;
  D = B * B -4 * A * C;
  if ( D < 0 ) {res = 0;}   else if ( D == 0 ) {res = 1;}   else if ( D > 0 ) {res = 2;}
  
  return res;
}

Код (Python)

import random

def RootsCount(A,B,C):
    D = B**2 - 4*A*C
    if D < 0:
        return 0
    elif D > 0:
        return 2
    return 1

A = random.randrange(-10,10)
B = random.randrange(-10,10)
C = random.randrange(-10,10)
print("A = ", A)
print("B = ", B)
print("C = ", C)
print("Количество корней:", RootsCount(A,B,C))
									

Код (Pascal)

program Proc17;
function RootsCount(A,B,C:Real):Integer;
var D:Real;
begin
 D:=Sqr(B)-4*A*C;
 if D<0 then RootsCount:=0; if D=0 then RootsCount:=1; if D>0 then RootsCount:=2;
end;
 
var
  A, B, C:Real;
  i:Integer;
begin
 for i:=0 to 3 do
  begin
   Write('Введите  A: ');
   Readln(A);
   Write('Введите  B: ');
   Readln(B);
   Write('Введите  C: ');
   Readln(C);
   Writeln('У квадратного уровнения ',RootsCount(A,B,C),' корня.');
  end;
end.
									




Proc. Абрамян
Proc 1 Просмотров: 13
Proc 2 Просмотров: 14
Proc 3 Просмотров: 12
Proc 4 Просмотров: 12
Proc 5 Просмотров: 14
Proc 6 Просмотров: 10
Proc 7 Просмотров: 12
Proc 8 Просмотров: 13
Proc 9 Просмотров: 12
Proc 10 Просмотров: 11
Proc 11 Просмотров: 14
Proc 12 Просмотров: 10
Proc 13 Просмотров: 12
Proc 14 Просмотров: 13
Proc 15 Просмотров: 13
Proc 16 Просмотров: 11
Proc 17 Просмотров: 22
Proc 18 Просмотров: 13
Proc 19 Просмотров: 14
Proc 20 Просмотров: 9
Proc 21 Просмотров: 12
Proc 22 Просмотров: 12
Proc 23 Просмотров: 11
Proc 24 Просмотров: 12
Proc 25 Просмотров: 9
Proc 26 Просмотров: 11
Proc 27 Просмотров: 16
Proc 28 Просмотров: 18
Proc 29 Просмотров: 22
Proc 30 Просмотров: 25
Proc 31 Просмотров: 13
Proc 32 Просмотров: 12
Proc 33 Просмотров: 10
Proc 34 Просмотров: 18
Proc 35 Просмотров: 9
Proc 36 Просмотров: 11
Proc 37 Просмотров: 12
Proc 38 Просмотров: 10
Proc 39 Просмотров: 13
Proc 40 Просмотров: 9
Proc 41 Просмотров: 13
Proc 42 Просмотров: 11
Proc 43 Просмотров: 12
Proc 44 Просмотров: 12
Proc 45 Просмотров: 14
Proc 46 Просмотров: 10
Proc 47 Просмотров: 10
Proc 48 Просмотров: 14
Proc 49 Просмотров: 10
Proc 50 Просмотров: 12
Proc 51 Просмотров: 18
Proc 52 Просмотров: 11
Proc 53 Просмотров: 13
Proc 54 Просмотров: 11
Proc 55 Просмотров: 13
Proc 56 Просмотров: 10
Proc 57 Просмотров: 11
Proc 58 Просмотров: 11
Proc 59 Просмотров: 8
Proc 60 Просмотров: 11

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться