Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 26 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

26
Рис.8. Схема алгоритма
Операторная запись задачи.
PROGRAM KORNY(input, output);
VAR {описание переменных }
a, b, c : real;
X1, X2, D : real;
BEGIN
{ ввод коэффициентов квадратного уравнения }
ReadLn( ' Введите коэффициенты a, b, c: ', a, b, c );
{ вычисление дискриминанта D }
D = b * b - 4 * a * c;
WriteLn;
{ условный оператор }
IF D < 0 THEN
WriteLn( ' Уравнение не имеет действительных корней.')
ELSE
Begin
X1 := ( -b + SQRT(D) ) / 2* a;
X2 := ( -b - SQRT(D) ) / 2 *a;
WriteLn( ' X1= ', X1 : 7:2, ' X2= ', X2 : 7:2 )
End
END.
X1 = ( -b + D )/( 2a);
X2 = ( -b - D )/( 2a);
начало
ввод a, b, c
D<0
Корней нет
конец
да
D = b
2
- 4ac
Х1, Х2 
                                           начало


                                          ввод a, b, c


                                        D = b2 - 4ac
                                  да
                                             D<0

                                                         X1 = ( -b +     D )/( 2a);


                        Корней нет                     X2 = ( -b -     D )/( 2a);


                                                               Х1, Х2




                                            конец



                                   Рис.8. Схема алгоритма
Операторная запись задачи.
PROGRAM KORNY(input, output);
VAR {описание переменных }
    a, b, c    : real;
    X1, X2, D : real;
BEGIN
  { ввод коэффициентов квадратного уравнения }
  ReadLn( ' Введите коэффициенты a, b, c: ', a, b, c );
  { вычисление дискриминанта D }
  D = b * b - 4 * a * c;
  WriteLn;
  { условный оператор }
  IF D < 0 THEN
       WriteLn( ' Уравнение не имеет действительных корней.')
       ELSE
          Begin
            X1 := ( -b + SQRT(D) ) / 2* a;
            X2 := ( -b - SQRT(D) ) / 2 *a;
            WriteLn( ' X1= ', X1 : 7:2, ' X2= ', X2 : 7:2 )
          End
END.




                                                                                      26

Страницы