Написать программу, которая выводит таблицу значений функции у= -2, 4х2+5x-3 в диапазоне от –2 до 2 с шагом 0, 5 написать на паскале

Var  x,y: real; begin writeln('x': 4,'y': 6); x: =-2; repeat   y: =-2.4*x*x+5*x-3;   writeln(x: 4,y: 8: 2);   x: =x+0.5;   until x> 2; end.

7 единиц

Объяснение:

Переведем число 1243(10) в 2-ичную систему счисления, при последовательного деления на 2, до тех пор, пока неполное частное не будет равно нулю. В результате будет получено число из остатков деления записанное справа налево.

1243 :  2 =  621 остаток: 1

621 :  2 =  310 остаток: 1

310 :  2 =  155 остаток: 0

155 :  2 =  77 остаток: 1

77 :  2 =  38 остаток: 1

38 :  2 =  19 остаток: 0

19 :  2 =  9 остаток: 1

9 :  2 =  4 остаток: 1

4 :  2 =  2 остаток: 0

2 :  2 =  1 остаток: 0

1 :  2 =  0 остаток: 1

1243(10) = 10011011011(2)

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

uses crt;

Var A, B, C, D, X, X1, X2 : Real;

Begin

Writeln ('Введите коэффициенты уравнения (A, B, C) ');

readln(a,b,c);

If A=0 Then

  If B=0 Then

             If C=0 Then Writeln('X - любое число')

                 Else Writeln('Корней нет! ')

       Else

       Begin

       X:=-C/B;

       Writeln('X=',X:8:3);

       End

  Else

  Begin

  D:=B*B-4*A*C;

  If D<0 Then Writeln ('Корней нет! ')

     Else

     Begin

     X1:=(-B+SQRT(D))/2/A;

     X2:=(-B-SQRT(D))/2/A;

     Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);

     End;

  End;

End.

Объяснение:

Это код для решения квадратных уавнений