Паскаль в примерах. Иринчеев А.А - 35 стр.

UptoLike

35
Формула для определения уравнений типа Y1 и Y3 выглядит следующим образом:
YY
XX
YY
XX
=
1
1
21
21
,
где X1, X2, Y1, Y2 - координаты начала и конца отрезка.
Формула для определения уравнения типа Y2 выглядит следующим образом:
Y=(x ± a)
2
± в,
где
а и в координаты экстремума данной кривой.
После соответствующих преобразований имеем:
Y1 = 2.5 X+ 15; Y2 = (X+0.5)
2
+ 1.75;
Y3 = 7 - X.
2.7.
программа (вариант а):
PROGRAM PR11a;
VAR
X,Y,Y1,Y2,Y3:REAL;
BEGIN
WRITE (‘Введите X = ‘);
READLN(X);
Y1:=0.4X+15;
Y2:=SQR(X+0.5)+1/75;
Y3:= 7-X;
IF (X>=-6) AND (X<=-4) THEN Y:=Y1;
IF (X>-4) AND (X<=3) THEN Y:=Y2;
IF (X>3) AND (X<=7) THEN Y:=Y3;
WRITELN(‘ Ответ Y = ‘, Y:8:3);
END.
Программа (вариант б):
PROGRAM PR11b;
VAR
X,Y,Y1,Y2,Y3:REAL;
BEGIN
WRITE (‘Введите X = ‘);
READLN(X);
Y1:=2/5*X+15;
Y2:=SQR(X+0.5)+1/75;
Формула для определения уравнений типа Y1 и Y3 выглядит следующим образом:
            Y − Y1   Y 2 − Y1
                   =          ,
           X − X1 X 2 − X1

где X1, X2, Y1, Y2 - координаты начала и конца отрезка.
Формула для определения уравнения типа Y2 выглядит следующим образом:

        Y=(x ± a)2 ± в,
        где а и в координаты экстремума данной кривой.
После соответствующих преобразований имеем:
Y1 = 2.5 X+ 15; Y2 = (X+0.5) 2 + 1.75; Y3 = 7 - X.




                          2.7.
программа (вариант а):

PROGRAM PR11a;
  VAR
   X,Y,Y1,Y2,Y3:REAL;
    BEGIN
     WRITE (‘Введите X = ‘);
     READLN(X);
      Y1:=0.4X+15;
      Y2:=SQR(X+0.5)+1/75;
      Y3:= 7-X;
        IF (X>=-6) AND (X<=-4) THEN Y:=Y1;
         IF (X>-4) AND (X<=3) THEN Y:=Y2;
          IF (X>3) AND (X<=7) THEN Y:=Y3;
     WRITELN(‘ Ответ Y = ‘, Y:8:3);
    END.

Программа (вариант б):
 PROGRAM PR11b;
  VAR
   X,Y,Y1,Y2,Y3:REAL;
    BEGIN
      WRITE (‘Введите X = ‘);
      READLN(X);
       Y1:=2/5*X+15;
       Y2:=SQR(X+0.5)+1/75;

                                                                             35